首页 > 语言 > 关键词  > 正文

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

2008-04-18 15:02 · 稿源:豆豆网

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

以下为引用的内容:
<!--#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>

  • 相关推荐
  • 大家在看
  • 企业采购最佳抄底时机,华为云双十一爆品秒杀即将结束

    进入第四季度之后,企业年终采购提上了日程。在数字化浪潮之下,许多企业都在抓紧今年最后的这段时间加快数字化转型的部署,“企业上云”一时间成为硬需求。如何以最稳定可靠且极具性价比的方式完成企业上云?正处于活动倒计时阶段的华为云双十一上云嘉年华,为企业年终采购提供了现成的“答案”。多样化的云产品、更大力度的优惠折扣、满赠抽奖活动丰富了企业上云的选择,也进一步降低了上云成本,可谓是企业采购最佳的“抄底”时

  • 聚焦新零售 杰和科技GDSM-C信息发布系统着力商业革新

    随着信息技术的快速发展与应用,智能制造业快速响应市场号召,致力于为智慧城市的可持续发展注入新的活力。近年来,智能显示系统不断优化升级,多项产品融合于不同商业场景进行广泛应用。对于消费者而言,“躺平式”购物已成为一大热门体验,除了“躺平”这个原因外,实体商店为消费者提供的舒适服务与便捷购物,以及物品快速入手所带来的愉悦都是在线上购物所不能满足的。为客户提供更加便利适宜的购物体验是线下门店获得流量的重

  • 华云数据参与编制的《企业数字化转型白皮书(2021版)》正式发布!

    近日,由全国信标委大数据标准工作组、中国电子技术标准化研究院牵头,国家电网、中国联通、中国南方电网、华云数据等 30 余家单位共同参与编制的《企业数字化转型白皮书( 2021 版)》(简称《白皮书》)在 2021 全国大数据标准化工作会议上正式发布。数字经济是全球未来的发展方向,是推动世界经济发展的重要动能。数字化转型作为数字经济发展的重要着力点,以云计算、大数据、人工智能等数字技术为抓手,广泛赋能各行业各领域,

  • 领峰环球:投资优势满满,四大亮点值得品鉴!

    黄金自古以来都是交易市场的流通货币,为什么黄金会成为流通货币,而不是铜,铁,铝呢?那是因为黄金比其他金属更具优势,作为投资工具,它与其他投资工具相比,也有诸多优点。黄金具有以下特性:稀有性,变现性,逆向性,投资性。接下来领峰环球简单围绕这四大特性逐一讲解。首先:稀有性目前全球黄金总存量约有 16 到 20 万吨左右,地面上的黄金存量每年以2%速度增涨,黄金年供应量约为 4200 吨。目前由于全球工业,首饰业的飞速

  • 苹果仍在开发多设备无线充电器 未来实现设备之间相互充电

    苹果几年前发布的 AirPower 失败了,但有消息显示该公司仍在开发多设备无线充电器。据彭博社报道,苹果正在开发一种多设备充电器,以及短距离和长距离无线充电技术,以实现所有主要设备「可以相互充电」的未来理念。

  • 苹果仍在开发多设备充电器:未来有望实现设备间反向充电

    据国外媒体报道,尽管几年前的AirPower实验失败,但据报道苹果仍在为其产品开发多设备充电器,以及短距离和长距离无线充电技术,实现所有主要设备“相互充电”。

  • PUBGMobile全球总收入超过70亿美元 平均每天810万美元

    据Sensor Tower商店情报数据显示,在2021年第三季度收入创新高之后,腾讯旗下的手游《绝地求生手游》(PUBG Mobile,合并《和平精英》收入)在全球App Store和Google Play的累计收入已超过 70 亿美元。

  • 原神冲刺节拍怎么获得 冲刺节拍详细获取攻略

    原神最近2.3版本中有一个冲刺节拍的机关,很多人还不清楚具体怎么获得,下面就来为大家分享一下冲刺节拍详细获取攻略。

  • ​法本信息喜获“2021深圳行业领袖百强企业”殊荣

    2021 年 11 月 24 日,在深圳市行业领袖企业发展促进会、《深圳商报》和读创共同主办的行业领袖对话峰会上发布了 2021 深圳行业领袖企业百强榜单,法本信息凭借自身实力成功入选,喜获该项殊荣。法本信息作为国内领先的软件技术服务的一面旗帜,此次实力登榜获奖,既彰显了在行业领域的优势和地位,也是对公司综合实力的又一次权威肯定。据悉,深圳行业领袖企业 100 强评选标准主要从创新力、推动力、贡献力、影响力和企业社会责任

  • 与拜耳、西门子合作 深透医疗落地AI医疗全新商业模式

    成为西门子首个量产设备预装合作伙伴、与拜耳合作研发新影像药剂应用,深透医疗跑通AI医学影像多重商业模式今年的医学影像盛会RSNA刚刚开幕,知名AI医学影像企业深透医疗(Subtle Medical)宣布两个重要商业落地消息: 11 月 29 日,深透医疗先后宣布与西门子医疗、拜耳合作,分别探索AI软件预装MRI机器及AI+造影药剂合作研发与销售两大全新商业落地模式。据悉,本次合作中,西门子将深透医疗旗下SubtleMR? 相关模块作为预装推荐软件?

这篇文章对你有价值吗?

  • 热门标签

热文

  • 3 天
  • 7天