<!--#include file="../conn/dbconn1.asp"-->
<!--#include file="../inc/safe.asp"-->
<%
контент = Заменить_Текст(запрос.Форма("содержание"))
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=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("слово").значение,"**")
rs.movenext
петля
конец, если
RS.закрыть
установить rs=ничего
''''''''''''''''''''''''''''''
set rs=server.CreateObject("ADODB.RecordSet")
sql="выберите * из pl"
rs.open sql,conn,3,3
rs.addnew
rs("содержание")=содержание
rs("newsid")=newsid
rs("ip")=ip
rs("rname")=rname
rs("имя пользователя")=имя пользователя
RS.обновление
RS.закрыть
%>
<%
set rsn=server.CreateObject("adodb.recordset")
sqln="выберите newsid,plnum,plbz из новостей, где newsid="&newsid&""
RSN.open sqln,conn,1,3
RSN("plnum")=rsn("plnum")+1
рсн("плбз")=1
RSN.обновление
рсн.закрыть
%>
<скрипт>
alert("成功发布！")
родитель.location.href="shownews.asp?newsid=<%=newsid%>"
</скрипт>