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

يحد تطبيق ASP من طريقة الوصول إلى IP مرة واحدة فقط

الكاتب：Eve Cole وقت التحديث：2025-03-07 09:32:02

تقدم هذه المقالة بشكل أساسي طريقة الحد من وصول IP إلى تطبيق ASP مرة واحدة.

تقييد عنوان IP للوصول مرة واحدة فقط ، الآن سأشارك رمز ASP معك:

  1. <٪
  2. '////////////////////////////////////////////////////// ///////////////////////////////////
  3. '////
  4. '// الوظيفة: عنوان IP واحد يسمح فقط بالوصول إلى هذه الصفحة مرة واحدة //
  5. '// QUOTE: <!-#includefile = check_ip.asp-> //
  6. '////
  7. '////////////////////////////////////////////////////// ///////////////////////////////////
  9. "reponse.charset = 936" قم بتعيين ترميز الإخراج على الصينية المبسطة
  10. 'reponse.buffer = false' أغلق المخزن المؤقت
  12. Dimfso ، TS ، iPlist ، CFS
  14. قم بتعيين وظيفة ملفات تعريف الارتباط
  15. functionSetCookie ()
  16. استجابة
  17. استجابة
  18. الوظيفية
  20. سجل وظيفة عنوان IP
  21. FunctionWriteip (اسم الملف ، ipaddress)
  22. setfso = server.createBject (scripting.filesystemObject)
  23. setts = fso.opentextFile (server.mappath (اسم الملف) ، 8 ، صحيح)
  24. ts.writelineipaddress
  25. Ts.close
  26. setts = لا شيء
  27. setfso = لا شيء
  28. الوظيفية
  30. قراءة وظيفة عنوان IP
  31. FunctionReadiPlist (اسم الملف)
  32. setfso = server.createBject (scripting.filesystemObject)
  33. ifnotfso.filexists (server.mappath (filename)) ثم
  34. CreateFile (iplist.txt)
  35. exitfunction
  36. Endif
  38. setTs = fso.opentextFile (server.mappath (اسم الملف))
  39. iPlist = ts.readall
  40. Ts.close
  41. setts = لا شيء
  42. setfso = لا شيء
  43. ReadiPlist = iPlist
  44. الوظيفية
  46. 'إنشاء وظيفة ملف
  47. وظيفة createfile (اسم الملف)
  48. setfso = server.createBject (scripting.filesystemObject)
  49. setcfs = fso.createTextFile (server.mappath (اسم الملف))
  50. cfs.close
  51. setCFS = لا شيء
  52. setfso = لا شيء
  53. الوظيفية
  55. "أغلق وظيفة نافذة IE الحالية (ملاحظة: تم تمريرها تحت IE6 ، لم يتم اختبار المتصفحات الأخرى لها)
  56. وظيفة closewindow ()
  57. 'response.write <script> window.location =' javaScript: window.opener = null ؛ window.close () ؛ '</script>
  58. Response.redirectThttp: //www.baidu.com
  59. الوظيفية
  61. IP = request.ServerVariables (Remote_addr) "احصل على عنوان IP الخاص بالمشاهد
  63. ملف تعريف الارتباط = request.cookies (isbrow) 'احصل على ملفات تعريف الارتباط الحالية
  64. 'الرد. writecookie
  66. ifrequest.servervariables (http_x_forwarded_for) <> ثم
  67. استجابة. اكتب هذا الموقع لا يسمح بالوصول إلى الوكيل
  68. استجابة.
  69. آخر
  70. ifcookie = بروثين
  71. Closewindow ()
  72. آخر
  73. IFINSTR (rewiPlist (iPlist.txt) ، IP) <> 0then
  74. Closewindow ()
  75. آخر
  76. writeipiplist.txt ، IP
  77. Endif
  78. setcookie ()
  79. Endif
  80. Endif
  81. ٪>

ما سبق هو رمز تنفيذ ASP المشترك معك ، وآمل أن يكون مفيدًا لتعلمك.

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