إخراج ASP BMP
[2005-03-0612: 04: 25 | المؤلف: Flashsoft]
حجم الخط: كبير | متوسط | صغير
<٪
CallCom_CreatvalidCode ("ValidCode")
subcom_creatvalidcode (PSN)
المؤلف: لاين
QQ: 84815733
البريد الإلكتروني: [email protected]
لا التخزين المؤقت
استجابة. expires = -9999
Response.addheader "pragma" ، "عدم وجود آثار"
استجابة.
استجابة. contenttype = "Image/BMP"
عشوائي
ديمي ، الثاني ، الثالث
constcodds = 8'tray احتمال ظهور البقع المتنوعة
constcamount = 36'number من النص
constccode = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
بيانات الألوان (الأحرف ، الخلفية)
dimvcolordata (1)
Vcolordata (0) = chrb (0) & chrb (0) & chrb (0) 'Blue 0 ، Green 0 ، Red 0 (Black)
Vcolordata (1) = Chrb (250) و CHRB (236) و CHRB (211) 'Blue 250 ، Green 236 ، Red 211 (Light Blue)
'شخصيات تم إنشاؤها عشوائيا
dimvcode (4) ، vcodes
fori = 0to3
vCode (i) = int (rnd*camount)
vCodes = vCodes & Mid (ccode ، vcode (i) +1،1)
التالي
الجلسة (PSN) = سجل VCODES في الجلسة
بيانات الأحرف
dimvnumberdata (35)
vnumberdata (0) = "111000011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111100001111"
VnumberData (1) = "1111011111111100011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"
VnumberData (2) = "11100001111111111111111111111111111111111111111111111111111111111111111111111111111111111111100000011"
VnumberData (3) = "111000011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111001111"
VnumberData (4) = "1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111000011"
vnumberdata (5) = "110000001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"
VnumberData (6) = "111100011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"
VnumberData (7) = "11000000111111111111111111111111111111111111111111111111111111111111111111111111111111111"
VnumberData (8) = "111000011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"
VnumberData (9) = "111000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"
VnumberData (10) = "11110111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111"
vnumberdata (11) = "100000011111111111111111111111111111111111111111111111111100111111111111111111111111111111111111111111011111111111111111111111111111001111111111"