<!-#incluirfile = "Common/Conn.asp"->
<!-#incluirfile = "Common/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
Response.Write "Proibir o envio externo de dados"
resposta.END
endif
iflen (request.form ("frmContent"))> 1000then
Response.Write "O conteúdo de entrada excede o número especificado de caracteres"
resposta.END
endif
ifrequest.cookies ("visitime") <> "" então
ifdatediff ("s", request.cookies ("visitime"), agora ()) <60then
Response.Write "Por favor, não envie comentários repetidamente em 1 minuto"
resposta.END
endif
endif
count = "全公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公 �
Connts = Split (Connt, ",")
Foreachglwordinconnts
ifInstr (request.form ("frmContent"), glword) <> 0then
Response.Write "Esta palavra -chave foi filtrada"
resposta.END
endif
próximo
Dimusernam, comentários
Dimfieldlist, valuelista
Nome de usuário = request.form ("nome de usuário")
Comentários = request.form ("Comentários")
newsid = request.form ("newsid")
IfUserName = "" Orcomments = "" então
Response.Write ("Nome ou conteúdo não está preenchido")
Response.end ()
Endif
FieldList = Array ("Nome de usuário", "Comentários", "Newsid")
Valuelista = Array (nome de usuário, comentários, Newsid)
Setobjrs = server.createObject ("adodb.recordset")
objrs.open "Feedback", Objconn, 1,2
objrs.addnewfieldlist, valuelista
Closei ()
Response.Cookies ("Visitime") = agora ()
Response.Redirect (Server_v1)
%>