<%
'基本配置
dim getpost,getpostwml
set rs=Server.CreateObject("ADODB.Recordset")
  rs.open"select getpost,getpostwml from admin where id=1",conn,1,1
getpost=rs("getpost")&"||[sid]" '限制会员用[sid]参数功能
getpostwml=rs("getpostwml")
rs.close
set rs=nothing
'自定义需要过滤的字串,用 "||" 分隔
dim RD_In,RD_Inf,RD_Get,RD_Post,RD_Xh
RD_In = ""&getpost&""

if instr(Request.ServerVariables("HTTP_CONTENT_TYPE"),"multipart/form-data")=0 then
RD_Inf = split(RD_In,"||")
'--------POST部份------------------
If Request.Form<>"" Then
For Each RD_Post In Request.Form

For RD_Xh=0 To Ubound(RD_Inf)
If Instr(LCase(Request.Form(RD_Post)),RD_Inf(RD_Xh))<>0 Then
Response.clear
Response.ContentType="text/vnd.wap.wml; charset=utf-8"
Response.Write "<?xml version=""1.0"" encoding=""utf-8""?><!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml"">" & vbnewline
Response.Write "<wml><head><meta http-equiv=""Cache-Control"" content=""no-cache""/></head>" & chr(13)
  Call Error("<card title=""出错""><p>"&getpostwml)
  end if
Next
Next
End If
'--------GET部份-------------------
If Request.QueryString<>"" Then
For Each RD_Get In Request.QueryString

For RD_Xh=0 To Ubound(RD_Inf)
If Instr(LCase(Request.QueryString(RD_Get)),RD_Inf(RD_Xh))<>0 Then
Response.clear
Response.ContentType="text/vnd.wap.wml; charset=utf-8"
Response.Write "<?xml version=""1.0"" encoding=""utf-8""?><!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml"">" & vbnewline
Response.Write "<wml><head><meta http-equiv=""Cache-Control"" content=""no-cache""/></head>" & chr(13)
  Call Error("<card title=""出错""><p>"&getpostwml)
  end if
Next
Next
End If
End If
%>
