<!--#include file="../conn/dbconn1.asp"-->
<!--#include file="../inc/safe.asp"-->
<%
contenido=Reemplazar_Texto(solicitud.Form("contenido"))
contenido=reemplazar(contenido,"<","[")
contenido=reemplazar(contenido,">","]")
newsid=Reemplazar_Texto(request.Form("newsid"))
ip=solicitud.Form("ip")
nombre=Reemplazar_Texto(solicitud.Form("nombre"))
nombre=reemplazar(nombre,"<","[")
nombre=reemplazar(nombre,">","]")
'nombre de usuario = Reemplazar_Texto (solicitud.Form ("nombre de usuario"))
'nombre de usuario=reemplazar(nombre de usuario,"<","[")
'nombre de usuario=reemplazar(nombre de usuario,">","]")
'处理发表内容是脏话
establecer rs=server.CreateObject("adodb.recordset")
sql="seleccionar * de mala palabra"
rs.open sql, conexión, 3,3
si rs.eof entonces
respuesta.Escribir("mei ziliao!")
de lo contrario,
en caso de error, reanudar a continuación
hacer mientras no sea rs.bof y no rs.eof
contenido = reemplazar (contenido, rs.fields ("palabra"). valor, "**")
nombre=reemplazar(nombre,rs.fields("palabra").valor,"**")
rs.movenext
bucle
terminar si
rs.cerrar
establecer rs = nada
''''''''''''''''''''''''''''
establecer rs=servidor.CreateObject("ADODB.RecordSet")
sql="seleccionar * de pl"
rs.open sql, conexión, 3,3
rs.añadirnuevo
rs("contenido")=contenido
rs("idnoticia")=idnoticia
rs("ip")=ip
rs("nombre")=nombre
rs("nombre de usuario")=nombre de usuario
rs.actualización
rs.cerrar
%>
<%
establecer rsn=servidor.CreateObject("adodb.recordset")
sqln="seleccione newsid,plnum,plbz de noticias donde newsid="&newsid&""
rsn.open sqln,conexión,1,3
rsn("plnum")=rsn("plnum")+1
rsn("plbz")=1
rsn.actualización
rsn.cerrar
%>
<guión>
alerta("成功发布！")
parent.location.href="shownews.asp?newsid=<%=newsid%>"
</script>