<!-#includeFile = "Common/Conn.asp"->
<!-#includeFile = "Common/Sub.asp"->
<%
server_v1 = cstr (request.serverVariable ("http_referer"))
Response.write (server_v1)
server_v2 = cstr (request.serverVariable ("server_name"))
IFMID (server_v1,8, len (server_v2)) <> server_v2then
response.write "melarang pengiriman data eksternal"
respons.end
endif
iflen (request.form ("frmcontent"))> 1000then
response.write "Konten input melebihi jumlah karakter yang ditentukan"
respons.end
endif
ifrequest.cookies ("Visitime") <> "" Lalu
ifdatediff ("s", request.cookies ("Visitime"), sekarang ()) <60then
response.write "Tolong jangan mengirimkan komentar berulang kali dalam 1 menit"
respons.end
endif
endif
Count = "全公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公 �
Connts = split (connt, ",")
Foreachglwordinconnts
ifinstr (request.form ("frmcontent"), glword) <> 0then
response.write "Kata kunci ini telah difilter"
respons.end
endif
Berikutnya
Dimusernam, komentar
DiMfieldList, Valuelist
Username = request.form ("nama pengguna")
Komentar = request.form ("komentar")
newsid = request.form ("newsid")
Ifusername = "" orComments = "" lalu
Response.write ("Nama atau konten tidak diisi")
Response.end ()
Endif
fieldlist = array ("nama pengguna", "komentar", "newsid")
Valuelist = Array (Nama Pengguna, Komentar, NewsID)
SetoBjrs = server.CreateObject ("adodb.recordset")
objrs.open "umpan balik", objconn, 1,2
objrs.addnewfieldlist, valueelist
closei ()
response.cookies ("kunjungan") = sekarang ()
response.redirect (server_v1)
%>