<% '将以下内容添加您的论坛或者留言板的提交程序上进行过滤处理。 '请根据您留言板或者论坛提交页面的输入框字段进行设置 GuestBookTitle=trim(Request.Form("Title")) 'Title为留言本输入框的标识名称,根据您的实际情况进行修改。 GuestBookConntent=trim(Request.Form("Content")) 'Content为留言本输入框留言内容字段,根据您的实际情况进行修改。 BadWord="银川@志达@四方@电子@科技@有限@公司" '以下代码为检测内容是否包含需要屏蔽的字符 '请不要修改 SplitBadWords=split(BadWord,"@") for each SplitBadWord in SplitBadWords '循环分离出每一个非法字符 if instr(GuestBookTitle,SplitBadWord)<>0 then '判断留言标题是否包含非法字符 Response.Write("对不起,您输入的内容中包含非法字符,禁止提交!") Response.end() exit for end if if instr(GuestBookConntent,SplitBadWord)<>0 then '判断留言标题是否包含非法字符 Response.Write("对不起,您输入的内容中包含非法字符,禁止提交!") Response.end() exit for end if next %> |