موصى به: فصل التعليمات البرمجية والصفحة في ASP من أجل تجنب صعوبات الصيانة الناجمة عن خلط برامج ASP ورمز HTML ، تقدم هذه المقالة طريقة لاستخدام القوالب لفصل البرامج والصفحات لجعل البرمجة أسهل. عند استخدام ASP لإنشاء موقع ، غالبًا ما يكون هناك موقف يتم فيه خلط رمز البرنامج ورمز HTML في ملف ASP. هناك العديد من العيوب للقيام بذلك: 1. ناهيك عن البرمجة ، تحتاج إلى ذلك
الوظيفة: قم بإنشاء رقم الهاتف على الصفحة إلى تنسيق الصورة.
<٪
اتصل com_creatvalidcode (request.querystring (tel))
public sub com_creatvalidcode (ptel)
'-------------------------------------------------------------------------------------------------------------------------------
استجابة. expires = 0
استجابة
استجابة
استجابة. contenttype = Image/BMP
عشوائي
Dim I ، II ، III ، Rndcolor ، Strlen ، SQL ، RS
codds const = 5 "-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
const str = 0123456789-
Strlen = Len (Ptel)
RndColor = CHRB (CINT (RND*255)) و CHRB (CINT (RND*255)) و CHRB (CINT (RND*255))
'-------------------------------------------------------------------------------------------------------------------------------
قاتمة vcolordata (1)
'vcolordata (0) = chrb (0) & chrb (0) & chrb (0)' ----- Blue 0 ، Green 0 ، Red 0 (Black)
'Vcolordata (1) = Chrb (255) و CHRB (255) و CHRB (255) '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'Vcolordata (0) = Chrb (197) و Chrb (106) و Chrb (49)' --- الأزرق 0 ، الأخضر 0 ، أحمر 0 (أسود)
'Vcolordata (1) = Chrb (238) و CHRB (210) و CHRB (193) "------- Blue 250 ، Green 236 ، Red 211 (Light Blue)
Vcolordata (0) = Chrb (0) و Chrb (0) و CHRB (0) '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Vcolordata (1) = Chrb (205) و CHRB (237) و CHRB (245) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'-------------------------------------------------------------------------------------------------------------------------------
عشوائي
Dim Vcode ()
redim vcode (strlen-1)
لأني = 0 إلى strlen-1
vCode (i) = instr (1 ، str ، mid (ptel ، i+1،1) ، 1) -1
التالي
'-------------------------------------------------------------------------------------------------------------------------------
Dim Vnumberdata (11)
خط فيردانا
VnumberData (0) = 1111111111111111111111111111111111111111111111111111111111111111
VnumberData (1) = 11111111111111111111111111111111111111111111111111111111111111111111111111111111111
VnumberData (2) = 11111111111111111111111111111111111111111111111111111111111111111111111111111111111
VnumberData (3) = 11111111111111111111111111111111111111111111111111111111111111111111
VnumberData (4) = 1111111111111111111111111111111111111111111111111111111001111111111
Vnumberdata (5) = 1111111110011111111111111110000111111111111111111111111111111111111111
VnumberData (6) = 1111111111111111111111111111111111111111111111111111111111111111111111
VnumberData (7) = 1111111111000001110111111111111111111111111111111111111111111111111111
VnumberData (8) = 11111111111111111111111111111111111111111111111111111111111111
Vnumberdata (9) = 1111111111111111111111111111111111111111111111111111111111
VnumberData (10) = 111111111111111111111111111111111111111111111111111111111111111111111
VnumberData (11) = 11111111111111111111111111111111111111111111111111111111111111111111
'-------------------------------------------------------------------------------------------------------------------------------
استجابة. binarywrite chrb (66) و chrb (77) و chrb (((strlen*8*10*3+54) mod 256)) و chrb (((strlen*8*10*3+54)/ 256) mod 256) & _
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 (0) & chrb (10) & chrb (0) & _ _
Chrb (0) و CHRB (0) و CHRB (1) و 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) 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) & chrb (0) & chrb (0)
لأني = 9 إلى 0 خطوة -1 '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
لـ II = 0 إلى Strlen-1 '--------- بعد كل الكلمات
ل III = 1 إلى 8 '-------------------------------------------------------------------------------------------------------------
"---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
إذا كان rnd * 99 + 1 <codds ثم '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
استجابة. binarywrite rndcolor
آخر
Response.BinaryWrite Vcolordata (Mid (Vnumberdata (Vcode (II)) ، I * 8 + III ، 1))
إنهاء إذا
التالي
التالي
التالي
نهاية الفرعية
٪>
احفظ الرمز أعلاه كـ img.asp ، وأدخل <img src = img.asp؟ tel = 0591-26728373> في الموقع الذي سيتم عرض رقم الهاتف فيه.
المصدر: Muziwu المؤلف: Dnawo
Share: ASP Tutorial: Tips for ASP لتوليد المعلمات الزائفة قبل يومين ، كنت أعمل على إصدار في الموقع من Enterprise Search Enterprise ووجدت أن بعض المواقع يمكنها الارتباط بمحتوى الموقع. . نظرت إليها بشكل غريب ووجدت أنه مرتبط وفقًا لقواعد الترقيم التلقائية لمعرف قاعدة البيانات ~~ لقد صنعت الشيء التالي في أوقات فراغي ، على أمل أن يكون مفيدًا للجميع في برامج كتابة ASP المستقبلية! ٪ '' // إنشاء عدد عشوائي من الأرقام المحددة "// يمكنك أيضًا استخدام GUID