<% '基本配置 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 "" & vbnewline Response.Write "" & chr(13) Call Error("

"&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 "" & vbnewline Response.Write "" & chr(13) Call Error("

"&getpostwml) end if Next Next End If End If %>