استخدم برنامج ASP لإنشاء تنسيق صورة لأرقام الهواتف في الصفحة

موصى به: كيفية تنفيذ ضغط RAR وإزالة الضغط من كود المصدر في ASP
يقوم ASP بتنفيذ ضغط RAR وإزالة الضغط من رمز المصدر ، ويمكن القيام به مع ملف واحد فقط. ASP يضغط الدلائل أو الملفات ، ويقوم بإزالة ضغط ملفات RAR ، ويحذف ملفات محددة ووظائف أخرى. هذا الكود المصدر مناسب للجميع لتطوير الثانوية ومشاركته. فيما يلي رمز winrar.asp:

الوظيفة: استخدم برنامج ASP لإنشاء تنسيق صورة لأرقام الهواتف في الصفحة.

فيما يلي مقتطف مقتبس:

ما يلي هو المحتوى المقتبس:

<٪

اتصل com_creatvalidcode (request.querystring (tel))

public sub com_creatvalidcode (ptel)

'-------------------------------------------------------------------------------------------------------------------------------

استجابة. expires = 0

استجابة

استجابة

استجابة. contenttype = Image/BMP

عشوائي

Dim I ، II ، III ، Rndcolor ، Strlen ، SQL ، RS

Const Codds = 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) = 1111111111111111111111111111111111111111111111111111111111111111111111111111111

VnumberData (2) = 11111111111111111111111111111111111111111111111111111111111111111111111111111111111

VnumberData (3) = 11111111111111111111111111111111111111111111111111111111111111111111

VnumberData (4) = 111111111111111111111111111111111111111111111111111111111111001111111111

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 (((((((strlen*8*10*3 54)/ 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 = 010-000000> في الموقع الذي سيتم فيه عرض رقم الهاتف.

المشاركة: يقوم ASP بتنفيذ عمليات الإضافة والطرح في تنسيق تاريخ بيان SQL
واجهت مشكلة في العمل اليوم ، وكنت بحاجة إلى الاستعلام عن الوقت ، ولكن تم عرض نتائج الاستعلام بشكل غير صحيح. على سبيل المثال ، لمعرفة الأعضاء المسجلين على موقع الويب بين 2007-10-12 و 2007-10-31 ، بعد تحديد التاريخ ، انقر فوق "Query & r