الصفحة الرئيسية>دروس برمجة الشبكات>البرنامج التعليمي لـ ASP

رمز تصويت IP المقيد ASP المقيد

الكاتب：Eve Cole وقت التحديث：2025-05-06 23:32:02

موصى به: يتم فصل أرقام ASP الطويلة بواسطة فواصل لعرض رمز المثيل
٪ وظيفة فاصلة (str) إذا لم يكن (isNumeric (str)) أو str = 0 ثم النتيجة = 0 elseif len (fix (str)) 4 ثم النتيجة = str else pos = instr (1 ، str ،.) إذا poS 0 ثم dec = mid (str ، pos) إذا res = strreverse (fix (str)) loopcount = 1 بينما

نظرًا لعلاقات العمل ، تتمثل إحدى الوظائف في التصويت للمستخدمين ، مما يتطلب أن نفس عنوان IP لا يمكنه التصويت إلا لنفس المستخدم مرة واحدة ، ونشر رمز ASP

  1.  <٪
  2.  المؤلف: المصدر القاسي:
  3.  db_conn (DBS)
  4.  pottusername = trim (request.querystring (اسم المستخدم))
  5.  RS_CREATE (SelectUserNameFrom [user] whereusername = '& pottusername &')
  6.  ifrs.eofandrs.bofthen
  7.  استجابة. كتابة معلمات غير صحيحة ، يرجى الوصول إليها من بشكل صحيح!
  8.  استجابة.
  9.  Endif
  11.  "الحالة الأولى هي النقر الأول ، ملفات تعريف الارتباط فارغة ، و IP فارغة
  12.  "الوضع الثاني هو النقر على الشخص الثاني للتصويت ، وتواجد ملفات تعريف الارتباط الخاصة بالشخص الأول ، وملفات تعريف الارتباط الخاصة بالشخص الثاني ، لكن IP موجود
  13.  "الوضع الثالث هو التصويت باستخدام IP ، ووجود ملفات تعريف الارتباط ، و IP فارغ
  15.  ifrequest.cookies (DWWW) (& pottusername &) = ثم
  16.  Response.cookies (DWWW) (& pottusername &) = pottusername & |
  17.  استجابة
  18.  callvoteBody ()
  19.  آخر
  20.  IFINSTR (request.cookies (DWWW) (& pottusername &) ، request.cookies (dwww) (& pottusername &) & |) <> 0then
  21.  callvoteBody ()
  22.  آخر
  23.  'الرد. اكتب آسف ، لقد صوتت! تكرر ملفات تعريف الارتباط
  24.  Response.write <Script> ALERT ("آسف ، لقد صوتت!") ؛ History.back () ؛ </script>
  25.  استجابة.
  26.  Endif
  27.  Endif
  29.  تخزين المكواة ()
  30.  pottusername = trim (request.querystring (اسم المستخدم))
  31.  cadcip = request.servervariables (http_x_forwarded_for) 'propass proxy ip
  32.  ifcheckip = thecheckip = request.servervariables (Remote_addr)
  33.  geturl =
  34.  geturl = request.servervariables (http_referer)
  36.  SQL = SelectUserName ، ipfromVotewhereUserName = '& pottusername &' andip = '& checkip &'
  37.  rs_create (SQL)
  38.  ifnotrs.bofandnotrs.eofthen
  39.  'الرد. اكتب آسف ، لقد صوتت! IP تكرار
  40.  Response.write <Script> ALERT ("آسف ، لقد صوتت!") ؛ History.back () ؛ </script>
  41.  استجابة.
  42.  آخر
  43.  conn.execute (insertintovote (اسم المستخدم ، IP ، AddTime) القيم ('& pottusername &' ، '& chovip &' ، '& now ())))
  44.  conn.execute (تحديث [المستخدم] setVote = التصويت+1 WhyeSurname = '& pottusername &')
  45.  'الرد. نجح التصويت!
  46.  Response.write <Script> ALERT ('تهانينا ، التصويت كان ناجحًا!)
  47.  استجابة.
  48.  Endif
  49.  ينتهي
  51.  rs_close ()
  52.  db_close ()
  53.  ٪>

مشاركة: ASP ينشئ برنامج التحقق من صفحة تسجيل الدخول
البرنامج النصي للتحقق من تسجيل تسجيل الدخول ، CHKPWD.ASP ٪ '=========== المستخدم تسجيل تسجيل الدخول إلى المستخدم =======' إذا لم يتم تعريف الكائن الذي تم تمريره بعد ، حدده على أنه خطأ ، مما يعني أنه لم يتم تمرير التحقق. إذا كانت isempty (جلسة (تم تمريرها)) ثم الجلسة (تم تمريرها) = نهاية خاطئة إذا كانت الجلسة (تم تمريرها) = خطأ ، فهذا يعني أنه لم يتم تمرير التحقق ، ثم تبدأ القراءة.

مقالات ذات صلة