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

يقوم ASP بتنفيذ رمز التحقق مع وظيفة التحديث

الكاتب：Eve Cole وقت التحديث：2025-03-14 14:48:02

ستشاركك هذه المقالة في دالة رمز التحقق التي يتم تنفيذها باستخدام ASP ، ويتم تحديثها.

ضع الكود التالي في صفحة checkcode.asp منفصلة

  1. <٪
  2. OptionExplicit
  3. استجابة. buffer = صحيح
  4. CallCom_CreatvalidCode (ValityEcode)
  6. subcom_creatvalidcode (PSN)
  7. لا التخزين المؤقت
  8. استجابة. expires = -9999
  9. استجابة
  10. استجابة
  11. استجابة. contenttype = Image/BMP
  13. عشوائي
  15. ديمي ، الثاني ، الثالث
  17. constcodds = 2'Thibility ظهور البقع المتنوعة
  18. constcamount = 10'number من النص
  19. constccode = 0123456789
  21. بيانات الألوان (الأحرف ، الخلفية)
  22. dimvcolordata (1)
  23. vcolordata (0) = chrb (0) & chrb (0) & chrb (211) 'Blue 0 ، Green 0 ، Red 0 (Black)
  24. Vcolordata (1) = Chrb (255) و CHRB (255) و CHRB (255) 'Blue 250 ، Green 236 ، Red 211 (Light Blue)
  26. 'شخصيات تم إنشاؤها عشوائيا
  27. dimvcode (4) ، vcodes
  28. fori = 0to3
  29. vCode (i) = int (rnd*camount)
  30. vCodes = vCodes & Mid (ccode ، vcode (i) +1،1)
  31. التالي
  32. الجلسة (PSN) = سجل VCODES في الجلسة
  33. بيانات الأحرف
  34. dimvnumberdata (9)
  35. vnumberdata (0) =
  37. 111000011111011111111111111111111111111111111111011111111101111111111111111111111111111
  39. 110000111
  40. vnumberdata (1) =
  42. 1111011111111111111111111111111111111111111111111111111111111111111111111111111111111
  44. 100000111
  45. vnumberdata (2) =
  47. 11100001111111111111111111111111111111111111111111111111111111111111111111111111111111
  49. 100000011
  50. vnumberdata (3) =
  52. 11100001111111111111111111111111111111111111111111111111111111111111111111111111111111111
  54. 110000111
  55. vnumberdata (4) =
  57. 111110111111111111111111111111111111111111111111111111111111000000001111111111111111111
  59. 111000011
  60. vnumberdata (5) =
  62. 1100000011111111111111111111101111111111111111111111111111111111111111111111111111
  64. 110000111
  65. vnumberdata (6) =
  67. 1111000111111111111111111111111111111111111111111111111111111111111111111111111111111
  69. 110000111
  70. vnumberdata (7) =
  72. 1100000011111111111111111111111111111111111111111111111111111111111111111111111111111
  74. 111011111
  75. vnumberdata (8) =
  77. 1110000111111111111111111111111111111111111111111111111111111111111111111111111111111111
  79. 110000111
  80. vnumberdata (9) =
  82. 111000111111111111111111111111111111111111111001111100010111111111111111111111110111111
  84. 110001111
  85. "رأس ملف صورة الإخراج
  86. Response.BinaryWritechrb (66) و CHRB (77) و CHRB (230) و CHRB (4) و CHRB (0) و CHRB (0) و CHRB (0) و CHRB (0)
  88. & chrb (0) & _
  89. chrb (0) & chrb (0) & chrb (54) & chrb (0) & chrb (0) & chrb (0) & chrb (40) & chrb (0) & _ _
  90. chrb (0) & chrb (0) & chrb (40) & chrb (0) & chrb (0) & chrb (0) & chrb (10) & chrb (0) & chrb (0) & _ _
  91. Chrb (0) و CHRB (0) و CHRB (1) و CHRB (0)
  93. "رأس معلومات معلومات الصورة
  94. Response.BinaryWriteChrb (24) و CHRB (0) و CHRB (0) و CHRB (0) و CHRB (0) و CHRB (0) و CHRB (0) و CHRB (176)
  96. & chrb (4) & _
  97. chrb (0) & chrb (0) & chrb (18) & chrb (11) & chrb (0) & chrb (0) & chrb (18) & chrb (11) & _ _
  98. chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & chrb (0) & _ _
  99. Chrb (0) و CHRB (0)
  101. لقد مر Fori = 9to0step-1 "بجميع الخطوط
  102. لقد مر Forii = 0to3 'بكل الكلمات
  103. فوري = 1to10 'قد مرت جميع وحدات البكسل
  104. "إخراج سطر بيانات صورة حسب السطر ، كلمة بواسطة Word ، Pixel by Pixel
  105. ifrnd*99+1 <coddsthen 'يولد بشكل عشوائي نقاط متنوعة
  106. استجابة.
  107. آخر
  108. Response.BinaryWriteVcolordata (Mid (Vnumberdata (Vcode (II)) ، I*10+III ، 1))
  109. Endif
  110. التالي
  111. التالي
  112. التالي
  113. ينتهي
  114. ٪>

يتم نقل الصفحات التي تحتاج إلى استخدامها بالطريقة التالية:

رمز التحقق: src = checkcode.asp cellpadding = "0" cellpacing = "0" style = "حدود الحدود: الانهيار ؛ تباعد الحدود: 0px ؛ العرض: 780px ؛ clear: ! المهم ؛ Border-Bottom-Radius: Line-Height: Outsiped Outly: Outsible. الرأسي: خط الأساس! ">

ما سبق هو المحتوى الكامل لهذه المقالة ، أتمنى أن تنال إعجابك.

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