您正在使用 IPV4 [44.200.175.46] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
[公益]保护绿色环境,构建和谐社会       悟空收录网      

【腾讯云】 爆款2核2G3M云服务器首年 61元,叠加红包再享折上折      
[公益] 地球是我家,绿化靠大家      
2024年 清明节 006
2024年 劳动节 033
2025年 元 旦 278
2025年 春 节 306
 
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
净化网络环境 ASP程序实现过滤脏话
内容摘要: !--#include file='../conn/dbconn1.asp'--!--#include file='../inc/safe.asp'--%content=Replace_Text(request.Form('content'))content=replace(content,'','[')content=replace(content,'',......

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

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:精确到每秒 实现在线人数的显示

 

下一篇:在客户端验证密码强度,兼容FireFox和IE

发布日期:2021/6/15
手机扫二维码直达本页
发布时间:12:34:56
点  击:5
录  入:壹家怡园
相关文章
Baidu
YiJiaCMS 7.3.8 build231228(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,Cloudflare提供加速防护
运行时间载入中.....