<!-#includeFile = "Common/Conn.asp"->
<!-#includeFile = "común/sub.asp"->
<%
server_v1 = cstr (request.serverVariAbles ("http_referer"))
Response.Write (server_v1)
server_v2 = cstr (request.serverVariAbles ("server_name"))
ifmid (server_v1,8, len (server_v2)) <> server_v2then
Respuesta. Escribe "Prohibir la presentación externa de datos"
respuesta.
endif
iflen (request.form ("frmContent"))> 1000THEN
Respuesta.WRITE "El contenido de entrada excede el número especificado de caracteres"
respuesta.
endif
ifrequest.cookies ("visitime") <> "" entonces
ifdatediff ("s", request.cookies ("visitime"), ahora ()) <60Then
Respuesta. Escribe "Por favor, no envíe comentarios repetidamente dentro de 1 minuto"
respuesta.
endif
endif
count = "全公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公 �
Connts = Split (Connt, ",")
ForeachglWordInconnts
ifinstr (request.form ("frmContent"), glword) <> 0then
Respuesta.WRITE "Esta palabra clave se ha filtrado"
respuesta.
endif
próximo
Dimusernam, comentarios
Dimfieldlist, valuelista
Username = request.form ("UserName")
Comentarios = request.form ("comentarios")
NewsID = request.form ("NewsId")
Ifusername = "" Orcomments = "" entonces
Response.write ("El nombre o el contenido no se completan")
Respuesta.end ()
Endif
FieldList = Array ("Nombre de usuario", "Comentarios", "NewsId")
Valuelist = Array (nombre de usuario, comentarios, Newsid)
Setobjrs = server.createObject ("ADODB.Recordset")
objrs.open "comentarios", objconn, 1,2
objrs.addnewfieldlist, valuelista
Closei ()
Response.cookies ("visitime") = ahora ()
Response.Redirect (server_v1)
%>