ทำความสะอาดสภาพแวดล้อมเครือข่ายโดยใช้โปรแกรม ASP เพื่อกรองคำสกปรกออก

<!--#include file="../conn/dbconn1.asp"-->
<!--#include file="../inc/safe.asp"-->
-
content=Replace_Text(request.Form("เนื้อหา"))
เนื้อหา = แทนที่ (เนื้อหา "<", "[")
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,">","]")
'ชื่อผู้ใช้=Replace_Text(request.Form("ชื่อผู้ใช้"))
'ชื่อผู้ใช้=แทนที่(ชื่อผู้ใช้"<","[")
'username=replace(username,">","]")

'处理发表内容是脏话
ตั้งค่า rs=server.CreateObject("adodb.recordset")
sql = "เลือก * จากคำที่ไม่ดี"
rs.open sql,conn,3,3
ถ้า rs.eof แล้ว
response.Write("mei ziliao!")
อย่างอื่น

มีข้อผิดพลาดดำเนินการต่อต่อไป
ทำในขณะที่ไม่ใช่ rs.bof และไม่ใช่ rs.eof
content=replace(content,rs.fields("word").value,"**")
rname=replace(rname,rs.fields("word").value,"**")
rs.movenext
วนซ้ำ
สิ้นสุดถ้า
฿.ปิด
ตั้งค่า rs=nothing
-
ตั้งค่า rs=server.CreateObject("ADODB.RecordSet")
sql = "เลือก * จาก pl"
rs.open sql,conn,3,3
rs.เพิ่มใหม่
rs("เนื้อหา")=เนื้อหา
rs("newsid")=newsid
อาร์เอส("ไอพี")=ไอพี
rs("rname")=rname
rs("ชื่อผู้ใช้")=ชื่อผู้ใช้
อาร์เอสอัปเดต
฿.ปิด
-
-
ตั้งค่า rsn=server.CreateObject("adodb.recordset")
sqln = "เลือก newsid, plnum, plbz จากข่าวโดยที่ newsid = "& newsid &""
rsn.open sqln,conn,1,3
rsn("plnum")=rsn("plnum")+1
rsn("plbz")=1
rsn.อัพเดต
rsn.ปิด
-
<สคริปต์>
alert("成功发布!")
parent.location.href="shownews.asp?newsid=<%=newsid%>"
</สคริปต์>