<!-#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 "запретить внешнее представление данных"
response.end
эндиф
iflen (request.form ("frmcontent"))> 1000then
response.write "Входной контент превышает указанное количество символов"
response.end
эндиф
ifrequest.cookies ("Vitime") <> "" Then
ifdatediff ("s", request.cookies ("visitime"), теперь ()) <60then
response.write "Пожалуйста, не отправляйте комментарии неоднократно в течение 1 минуты"
response.end
эндиф
эндиф
count = "全公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公 �
Connts = split (connt, ",")
Foreachglienconnts
ifinstr (request.form ("frmcontent"), glword) <> 0then
response.write "Это ключевое слово было отфильтровано"
response.end
эндиф
следующий
Dimusernam, комментарии
Dimfieldlist, Valuelist
Username = request.form ("имя пользователя")
Комментарии = request.form ("Комментарии")
newsid = request.form ("газета")
Ifusername = "" orcomments = "" then
Response.write («Имя или контент не заполнен»)
Response.end ()
Эндиф
FieldList = Array («Имя пользователя», «Комментарии», «Газета»)
Valuelist = Array (имя пользователя, комментарии, газета)
SetObjrs = server.createObject ("adodb.recordset")
objrs.open «обратная связь», objconn, 1,2
objrs.addnewfieldlist, Valuelist
challi ()
response.cookies ("visitime") = теперь ()
response.redirect (server_v1)
%>