ASP中实现过滤脏话的程序

<%
　　content=Replace_Text(request.Form("content"))
　　content=replace(content,"<","[")
　　content=replace(content,">","]")
　　
　　newsid=Replace_Text(request.Form("newsid"))
　　ip=request.Form("ip")
　　rname=Replace_Text(request.Form("rname"))
　　rname=replace(rname,"<","[")
　　rname=replace(rname,">","]")
　　'username=Replace_Text(request.Form("username"))
　　'username=replace(username,"<","[")
　　'username=replace(username,">","]")
　　
　　'处理发表内容是脏话
　　setrs=server.CreateObject("adodb.recordset")
　　sql="select*frombadword"
　　rs.opensql,conn,3,3
　　ifrs.eofthen
　　response.Write("meiziliao!")
　　else
　　
　　onerrorresumenext
　　dowhilenotrs.bofandnotrs.eof
　　content=replace(content,rs.fields("word").value,"**")
　　rname=replace(rname,rs.fields("word").value,"**")
　　rs.movenext
　　loop
　　endif
　　rs.close
　　setrs=nothing
　　''''''''''''''''''''''''''''''
　　setrs=server.CreateObject("ADODB.RecordSet")
　　sql="select*frompl"
　　rs.opensql,conn,3,3
　　rs.addnew
　　rs("content")=content
　　rs("newsid")=newsid
　　rs("ip")=ip
　　rs("rname")=rname
　　rs("username")=username
　　rs.update
　　rs.close
　　%>
　　<%
　　setrsn=server.CreateObject("adodb.recordset")
　　sqln="selectnewsid,plnum,plbzfromnewswherenewsid="&newsid&""
　　rsn.opensqln,conn,1,3
　　rsn("plnum")=rsn("plnum")+1
　　rsn("plbz")=1
　　rsn.update
　　rsn.close
　　%>
　　<script>
　　alert("成功发布！")
　　parent.location.href="shownews.asp?newsid=<%=newsid%>"
　　</script>

分享到：