净化网络环境 ASP程序实现过滤脏话

王朝asp·作者佚名  2008-05-31
窄屏简体版  字體: |||超大  

<!--#include file="../conn/dbconn1.asp"-->

<!--#include file="../inc/safe.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,">","]")

'处理发表内容是脏话

set rs=server.CreateObject("adodb.recordset")

sql="select * from badword"

rs.open sql,conn,3,3

if rs.eof then

response.Write("mei ziliao!")

else

on error resume next

do while not rs.bof and not rs.eof

content=replace(content,rs.fields("word").value,"**")

rname=replace(rname,rs.fields("word").value,"**")

rs.movenext

loop

end if

rs.close

set rs=nothing

''''''''''''''''''''''''''''''

set rs=server.CreateObject("ADODB.RecordSet")

sql="select * from pl"

rs.open sql,conn,3,3

rs.addnew

rs("content")=content

rs("newsid")=newsid

rs("ip")=ip

rs("rname")=rname

rs("username")=username

rs.update

rs.close

%>

<%

set rsn=server.CreateObject("adodb.recordset")

sqln="select newsid,plnum,plbz from news where newsid="&newsid&""

rsn.open sqln,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>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航