dim getflag,errorsql,requestkey,fori[br]errorsql = "过滤字符||过滤字符" [br]errorsql = split(errorsql,"||")[br]if request.servervariables("request_method")="get" then '取得表单提交的方式！[br]　getflag=true[br]else[br]　getflag=false[br]end if[br]if getflag then[br]　for each requestkey in request.querystring '这个主要从提交的参数里面循环进行判断[br]　　for fori=0 to ubound(errorsql)[br]　　　if instr(lcase(request.querystring(requestkey)),errorsql(fori))<>0 then[br]　　　　 showmsg "警 告!","禁止在本站发布垃圾信息!
返回","erroricon",""[br]　　　end if[br]　　next[br]　next [br]else[br]　for each requestkey in request.form[br]　　for fori=0 to ubound(errorsql)[br]　　　if instr(lcase(request.form(requestkey)),errorsql(fori))<>0 then[br]　　　　 showmsg "警 告!","禁止在本站发布垃圾信息!
返回","erroricon",""[br]　　　end if[br]　　next[br]　next[br]end if[br][br]其实原理都很简单,大家自己看看吧！