ASP منع رمز البريد العشوائي

<!-#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") = الآن ()

استجابة.

٪>