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