<!-#includefile = "common/conn.asp"->
<!-#includefile = "สามัญ/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
endif
iflen (request.form ("frmcontent"))> 1000 จากนั้น
Response.write "เนื้อหาอินพุตเกินจำนวนอักขระที่ระบุ"
Response.end
endif
ifrequest.cookies ("Visitime") <> "" แล้ว
ifdatediff ("s", request.cookies ("Visitime"), ตอนนี้ ()) <60 แล้ว
Response.write "โปรดอย่าส่งความคิดเห็นซ้ำ ๆ ภายใน 1 นาที"
Response.end
endif
endif
นับ = "全公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公�
connts = split (connt, ",")
foreachglwordinconnts
ifinstr (request.form ("frmcontent"), glword) <> 0 แล้ว
Response.write "คำหลักนี้ได้รับการกรอง"
Response.end
endif
ต่อไป
Dimusernam ความคิดเห็น
Dimfieldlist, Valuelist
username = request.form ("ชื่อผู้ใช้")
ความคิดเห็น = request.form ("ความคิดเห็น")
newsid = request.form ("newsid")
ifuserName = "" orcomments = "" แล้ว
Response.write ("ชื่อหรือเนื้อหาไม่ได้กรอก")
Response.end ()
endif
fieldlist = array ("ชื่อผู้ใช้", "ความคิดเห็น", "newsid")
valuelist = array (ชื่อผู้ใช้, ความคิดเห็น, newsid)
setObjrs = server.createObject ("adodb.recordset"))
objrs.open "ข้อเสนอแนะ", objconn, 1,2
objrs.addnewfieldlist, Valuelist
closei ()
Response.cookies ("Visitime") = ตอนนี้ ()
Response.redirect (Server_v1)
-