笨朱先行

<%
Dim GetFlag,ErrorSql,RequestKey,ForI
ErrorSql = "***.com||彩铃" 
'此处写上你要过滤的关键字，记住，如果是英文请使用小写，大写的英文将无法被验证!
'其中***.com就是你要过滤的域名，用||隔开，彩铃的垃圾最多了，也写上吧，其他的大家自己加
ErrorSql = split(ErrorSql,"||")
If Request.ServerVariables("REQUEST_METHOD")="GET" Then
GetFlag=True
Else
GetFlag=False
End If
If GetFlag Then
  For Each RequestKey In Request.QueryString
   For ForI=0 To Ubound(ErrorSql)
    If Instr(LCase(Request.QueryString(RequestKey)),ErrorSql(ForI))<>0 Then
    Response.Write ("对不起你提交的字段中有被管理员列入黑名单的关键字")
    Response.End
    End If
   Next
  Next 
Else
  For Each RequestKey In Request.Form
   For ForI=0 To Ubound(ErrorSql)
    If Instr(LCase(Request.Form(RequestKey)),ErrorSql(ForI))<>0 Then
    Response.Write("对不起你提交的字段中有被管理员列入黑名单的关键字")
    Response.End
    End If
   Next
  Next
End If
%>