<! - # includeFile = "Common / Conn.asp" ->
<! - # includeFile = "Common / sub.asp" ->
<%
server_v1 = cstr (request.servervariables ("http_referer")))
Réponse.write (server_v1)
server_v2 = cstr (request.servervariables ("server_name"))
ifmid (server_v1,8, Len (server_v2)) <> server_v2Then
Response.Write "Interdire la soumission externe des données"
réponse.
endire
iflen (request.form ("frmcontent"))> 1000Then
Response.Write "Le contenu d'entrée dépasse le nombre de caractères spécifié"
réponse.
endire
ifrequest.cookies ("Visitime") <> "" puis
ifdatediff ("s", request.cookies ("visiter"), maintenant ()) <60 ans
Response.Write "Veuillez ne pas soumettre de commentaires à plusieurs reprises dans une minute"
réponse.
endire
endire
count = "全公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公 �
Connts = Split (Connt, ",")
Foreachglwwordincnts
iFinstr (request.form ("frmcontent"), glword) <> 0THEN
Response.Write "Ce mot clé a été filtré"
réponse.
endire
suivant
DiMusernam, commentaires
DimFieldlist, Valuelist
Username = request.form ("nom d'utilisateur")
Commentaires = request.form ("commentaires")
newsId = request.form ("newsid")
IfUsername = "" orcomments = "" puis
Réponse.write ("le nom ou le contenu n'est pas rempli")
Réponse.end ()
Endire
FieldList = Array ("nom d'utilisateur", "Commentaires", "NewsId")
VAUELIST = Array (nom d'utilisateur, commentaires, NewsId)
SetObjrs = server.createObject ("adodb.recordSet")
objrs.open "feedback", Objconn, 1,2
Objrs.AddNewFieldlist, ValueList
closei ()
réponse.cookies ("Visitime") = maintenant ()
réponse.redirect (server_v1)
%>