本页内容是《ASP程序实现过滤脏话》同时我们还提供济宁地区的网站建设,百度,雅虎,google的推广,点金,商友,等营销软件
请输入关键字:

标题搜索 内容搜索  

你现在所在的位置->首页->asp专区->ASP程序实现过滤脏话

ASP程序实现过滤脏话

时间:[2012-2-1 1:00:18]     作者:请作者尽快与我们联系。

<!--#include file="../conn.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>  

【声明】本站刊载的《ASP程序实现过滤脏话》一文如果有侵害你权益的情况,请联系我们。我们将及时采取措施。
QQ:44637339 Email:just6@163.com Tel:13355163107 Lining studios

友情链接

本页内容是《ASP程序实现过滤脏话》 返回顶部
© 2001-2024 Lining studios 济宁速创科技有限公司, All Rights Reserved
 Processed Time:62.500ms
中华人民共和国信息产业部网站备案号: 鲁ICP备09103015号-1