<!-#includefile = "common/conn.asp"->
<!-#includefile = "common/sub.asp"->
<٪
server_v1 = cstr (request.servervariables ("http_referer")))
استجابة. write (server_v1)
server_v2 = cstr (request.servervariables ("server_name")))
IFMID (server_v1،8 ، len (server_v2)) <> server_v2then
استجابة. الكتابة "لا سمح التقديم الخارجي للبيانات"
استجابة
Endif
iflen (request.form ("frmcontent"))> 1000 then
استجابة. الكتابة "محتوى الإدخال يتجاوز العدد المحدد من الأحرف"
استجابة
Endif
ifrequest.cookies ("زيارة") <> "" ثم
ifdatediff ("S" ، request.cookies ("Visitime") ، الآن ()) <60then
الرد
استجابة
Endif
Endif
العد = "全公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公公 �
connts = انقسام (connt ، "،")
foreachglowdinconnts
IFINST (request.form ("frmcontent") ، glword) <> 0then
استجابة. "تم تصفية هذه الكلمة الرئيسية"
استجابة
Endif
التالي
Dimusernam ، التعليقات
Dimfieldlist ، Valuelist
اسم المستخدم = request.form ("اسم المستخدم")
التعليقات = request.form ("التعليقات")
newsid = request.form ("newsid")
ifuserName = "" orComments = "" ثم
استجابة. write ("الاسم أو المحتوى غير ملء")
استجابة.
Endif
Fieldlist = Array ("اسم المستخدم" ، "التعليقات" ، "NewsId")
Valuelist = Array (اسم المستخدم ، التعليقات ، NewsId)
setObjrs = server.createBject ("adodb.recordset")
Objrs.Open "ردود الفعل" ، objconn ، 1،2
Objrs.Addnewfieldlist ، Valuelist
Closei ()
Response.cookies ("Visitime") = الآن ()
استجابة.
٪>