在const.asp最后个%>前加入以下代码即可!
Dim GetFlag,ErrorSql,RequestKey,ForI
ErrorSql = "*.com||8ru"
'此处写上你要过滤的关键字，记住，如果是英文请使用小写，大写的英文将无法被验证!
'其中***.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