<!--#include file="../conn/dbconn1.asp"-->
<!--#include file="../inc/safe.asp"-->
<%
content=Replace_Text(request.Form("コンテンツ"))
content=replace(コンテンツ,"<","[")
content=replace(content,">","]")
newsid=Replace_Text(request.Form("newsid"))
ip=リクエスト.フォーム("ip")
rname=Replace_Text(request.Form("rname"))
rname=replace(rname,"<","[")
rname=replace(rname,">","]")
'ユーザー名=Replace_Text(request.Form("ユーザー名"))
'ユーザー名=replace(ユーザー名,"<","[")
'username=replace(username,">","]")
'处理発行表内容是脏话
set rs=server.CreateObject("adodb.recordset")
sql="不正な単語から * を選択"
rs.open SQL,conn,3,3
もし rs.eof なら
response.Write("梅子寮!")
それ以外の場合は
エラーが発生した場合は次を再開します
rs.bof および rs.eof ではないときに実行します
content=replace(content,rs.fields("word").value,"**")
rname=replace(rname,rs.fields("word").value,"**")
rs.movenext
ループ
終了する場合
rs.close
rs=何も設定しない
''''''''''''''''''''''''''''
set rs=server.CreateObject("ADODB.RecordSet")
sql="select * from pl"
rs.open SQL,conn,3,3
rs.addnew
rs("コンテンツ")=コンテンツ
rs("ニュースID")=ニュースID
rs("ip")=ip
rs("rname")=rname
rs("ユーザー名")=ユーザー名
rs.アップデート
rs.close
%>
<%
set rsn=server.CreateObject("adodb.recordset")
sqln="newsid="&newsid&" のニュースから newsid,plnum,plbz を選択します"
rsn.open sqln,conn,1,3
rsn("plnum")=rsn("plnum")+1
rsn("plbz")=1
RSN.アップデート
RSN.close
%>
<スクリプト>
alert("配信成功！")
parent.location.href="shownews.asp?newsid=<%=newsid%>"
</script>