本站内容搜索:
   您的位置:素材中国>>教程 >>网络编程 >>ASP编程 >>净化网络环境 ASP程序实现过滤脏话 提交错误报告
净化网络环境 ASP程序实现过滤脏话
[ 来源:素材中国 | 作者:| 时间:2007-04-03 18:20:27 | 浏览:人次 ]

 
  以下是引用片段:

<!--#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>

 
 
 
首页
     
   您的位置:素材中国>>教程 >>网络编程 >>ASP编程 >>净化网络环境 ASP程序实现过滤脏话
 点此在百度搜索关键字"净化网络环境ASP程序实现过滤脏话"  点此在GOOGLE搜索关键字"净化网络环境ASP程序实现过滤脏话"
热门文章:
  ·ASP进度条   ·ASP读取数据库中数据到数组的类
  ·一个简单的ASP+留言板程序   ·如何获取设置图片大小以适应大小在页面上显示
  ·实现有管理功能的ASP留言板   ·用ASP实现图片上传并存入数据库
  ·ASP中DateAdd函数用法   ·ASP程序漏洞解析及黑客入侵防范方法
  ·ASP横向读出数据,一行列出三个记录   ·ASP中几条语句运行速度的测试

  首页  素材图片  高精图库  矢量图库  网页素材  网页模板  壁纸  明星  下载  教程  字体  香车美女  QQ专题  论坛

网站介绍 | 广告业务 | 设计业务 | 免责声明 | 版权声明 | 联系我们|提交错误报告
素材中国版权所有