常州网络公司首页 >>> WEB编程 >> ASP

ASP如何过滤非法关键词以及不良信息

发布时间:2009-12-30 9:02:08   浏览次数:7098

现在全国对网上信息查得都很严,一但发现,不是封80就是断服务器网,针对一些互动性比较强的网站来说,不能不时刻看着网站上的信息,有没有不良信息或非法信息,可有的时候,实现是没有什么时间来盯着他,所以我们在网站在写一个过滤函数,把一些不良信息关键词或非法信息关键词,都放在一个TXT文档里,当有人在网上发信息进,对所有关键词进行搜索,如果有替换或禁止发布。

方法如下:

第一步:我们建一个keyword.txt的文档,把所有不良关键词都放到里面去,一个关键词一行,在关键后面加个等于,再加需要替换的词,如果是禁止发布的直接写等于零。

如:
不能信息关键词=********
禁止发布关键词=0
.........

第二步:过滤函数
sub replaceKeywrod(nCon)'关键词过滤
 dim txtobject,txtfile,txtpath
 txtpath="/inc/keyword.txt"
 set txtobject=server.CreateObject("scripting.filesystemobject")
 set txtfile=txtobject.opentextfile(server.MapPath(txtpath))
 do while not txtfile.atendofstream
  'response.write server.HTMLencode(txtfile.readline) &"<br>"
  keyStr=txtfile.readline
  if keyStr<>"" then
   ks=split(keyStr,"=")
   if instr(nCon,ks(0))>0 then
    if ks(1)="0" then
     call errormsg("出现非法字符“"&ks(0)&"”,禁止发布")
    else
     nCon=replace(nCon,ks(0),ks(1))
    end if
   end if
  end if
 loop
 txtfile.close

end sub

 当然,你也可以把关键词放到数据库里,不过本人认为,放到数据库,第次都要去搜索数据库,速度没有直接读取文件快。

上一条:在ASP里使用Google图表API来实现自己的折线图
下一条:多步 OLE DB 操作产生错误。如果可能,请检查每个 OLE DB 状态值。没有工作被完成。
首页 | 在线留言 | 网站地图

CopyRight ©2008-2014   糊涂蛋技术网    苏ICP备05013073号
站长:万创   QQ:54960248  E-mail:xlxcn#126.com