الوظيفة: استخدم برنامج ASP لإنشاء رقم الهاتف الموجود في الصفحة بتنسيق صورة.
هنا اقتباس:
<%
اتصل بـ Com_CreatValidCode(Request.QueryString("tel"))
Com_CreatValidCode(pTel) الفرعي العام
'----------تعطيل التخزين المؤقت
الاستجابة.انتهاء الصلاحية = 0
Response.AddHeader "Pragma"، "لا يوجد ذاكرة تخزين مؤقت"
Response.AddHeader "التحكم في ذاكرة التخزين المؤقت"، "عدم وجود ذاكرة تخزين مؤقت"
Response.ContentType = "صورة/BMP"
عشوائية
Dim i, ii, iii ,rndColor,strLen,sql,rs
Const cOdds = 5 '--------احتمال ظهور الضوضاء
كونست str="0123456789-"
سترلين = لين (بتيل)
rndColor = ChrB(cint(rnd*255)) & ChrB(cint(rnd*255)) & ChrB(cint(rnd*255))
'----------بيانات الألوان (الأحرف والخلفية)
خافت vColorData(1)
'vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '----أزرق 0، أخضر 0، أحمر 0 (أسود)
'vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) '----أزرق 250، أخضر 236، أحمر 211 (أزرق فاتح)
'vColorData(0) = ChrB(197) & ChrB(106) & ChrB(49) '---- أزرق 0، أخضر 0، أحمر 0 (أسود)
'vColorData(1) = ChrB(238) & ChrB(210) & ChrB(193) '-----أزرق 250، أخضر 236، أحمر 211 (أزرق فاتح)
vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '---------أزرق 0، أخضر 0، أحمر 0 (أسود)
vColorData(1) = ChrB(205) & ChrB(237) & ChrB(245) '------------أزرق 250، أخضر 236، أحمر 211 (أزرق فاتح)
'---- - --------------- إنشاء الأحرف بشكل عشوائي
عشوائية
خافت vCode()
استرداد vCode(strLen-1)
لأني = 0 إلى strLen-1
vCode(i) =instr(1,str,mid(pTel,i+1,1),1)-1
التالي
'----------بيانات الشخصية
خافت vNumberData(11)
"خط فيردانا."
vNumberData(0) = "11111111111000111101110111011101110111011101110111011101110111011110001111111111"
vNumberData(1) = "111111111111011111110111111101111111011111110111111101111110001111111111"
vNumberData(2) = "1111111111100011110111011101110111111011111101111110111111100000111111111"
vNumberData(3) = "111111111110001111011101111111011111110111111101110111011110001111111111"
vNumberData(4) = "1111111111111011111100111110101111011011111000011111101111111001111111111"
vNumberData(5) = "11111111110000011111110000111111110111111101110111011110001111111111"
vNumberData(6) = "11111111111000111101101111011111110000111101110111011101110111011110001111111111"
vNumberData(7) = "11111111110000011011111110111111011111110111111101111111011111110111111111111"
vNumberData(8) = "11111111111000111101110111011101111000111101110111011101110111011110001111111111"
vNumberData(9) = "11111111111000111101110111011101110111011110000111111101111011011110000111111111"
vNumberData(10) = "111111111111111111111111111000001111111111111111111111111111111"
vNumberData(11) = "111111111111111111111111111111111111111111111111111111111111111"
'-----------------رأس ملف صورة الإخراج<br>
Response.BinaryWrite ChrB(66) & ChrB(77) &chrb(((strLen*8*10*3+54) mod 256)) & chrb(((strLen*8*10*3+54) 256)mod 256 ) & ChrB((((strLen*8*10*3+54) 256)256)mod 256) & ChrB((((strLen*8*10*3+54) 256)256) 256)mod 256) & ChrB(0) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(strLen*8) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(10) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)
'------------------رأس معلومات صورة الإخراج
Response.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)&_
ChrB((strLen*8*10*3)mod 256)&ChrB(((strLen*8*10*3)256)mod 256)&ChrB((((strLen*8*10*3)256)256 )mod 256)&ChrB((((strLen*8*10*3)256)256)256)mod 256)&_
ChrB(196) & ChrB(14) & ChrB(0) & ChrB(0) & ChrB(196) & ChrB(14)&ChrB(0) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)
لـ i = 9 إلى 0 الخطوة -1 '---------- قم بالمرور عبر كافة الصفوف
For ii = 0 إلى strLen-1 '------راجع كل الكلمات
لـ iii = 1 إلى 8 '-------- قم بالمرور عبر جميع وحدات البكسل
'---------إخراج بيانات الصورة سطرًا تلو الآخر، وكلمة بكلمة، وبكسل ببكسل
إذا كان Rnd * 99 + 1 < cOdds ثم '--------- توليد الضوضاء بشكل عشوائي
Response.BinaryWrite rndColor
آخر
Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 8 + iii, 1))
نهاية إذا
التالي
التالي
التالي
نهاية الفرعية
%>
احفظ الكود أعلاه كـ img.asp وأدخل <img src="img.asp?tel=010-0000000"> حيث تريد عرض رقم الهاتف.