<!-#includeFile = "Common/conn.asp"->
<!-#includeFile = "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 "Verbot die externe Einreichung von Daten"
Antwort.end
Endif
iflen (request.form ("frmcontent")> 1000Then
Antwort.Write "Eingabeinhalt überschreitet die angegebene Anzahl von Zeichen"
Antwort.end
Endif
iFrequest.cookies ("Visitime") <> "" dann
ifdatediff ("s", request.cookies ("Visitime"), jetzt ()) <60Then
Antwort.Write "Bitte senden Sie keine Kommentare innerhalb von 1 Minute wiederholt."
Antwort.end
Endif
Endif
count = "全公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公 �
connts = split (connt, ",")
Foreachglwordinconnts
ifInStr (Request.form ("frmcontent"), Glword) <> 0Then
Antwort.Write "Dieses Schlüsselwort wurde gefiltert"
Antwort.end
Endif
nächste
Dimusernam, Kommentare
Dimfieldlist, Valuelist
Benutzername = Request.Form ("Benutzername")
Kommentare = Request.form ("Kommentare")
newSID = Request.form ("NewSID")
Ifusername = "" orcommentments = "" Dann
Antwort.Write ("Name oder Inhalt wird nicht ausgefüllt"))
Antwort.end ()
Endif
FELDLIST = Array ("Benutzername", "Kommentare", "NewSID")
Valuelist = Array (Benutzername, Kommentare, NewsID)
SetObjrs = server.createObject ("adodb.recordset")
objrs.open "Feedback", Objconn, 1,2
objrs.addnewfieldlist, Valuelist
Closei ()
response.cookies ("besuchen") = jetzt ()
Antwort.Redirect (Server_v1)
%>