ใช้โปรแกรม ASP เพื่อสร้างรูปแบบรูปภาพสำหรับหมายเลขโทรศัพท์ในหน้า

แนะนำ: วิธีการใช้การบีบอัด RAR และการบีบอัดของซอร์สโค้ดใน ASP
ASP ใช้การบีบอัด RAR และการบีบอัดของซอร์สโค้ดและสามารถทำได้ด้วยไฟล์เดียว ASP บีบอัดไดเรกทอรีหรือไฟล์, คลายไฟล์ RAR, ลบไฟล์เฉพาะและฟังก์ชั่นอื่น ๆ ซอร์สโค้ดนี้สะดวกสำหรับทุกคนในการพัฒนาทุติยภูมิและแบ่งปัน ต่อไปนี้คือ winrar.asp code:

ฟังก์ชั่น: ใช้โปรแกรม ASP เพื่อสร้างรูปแบบภาพสำหรับหมายเลขโทรศัพท์ในหน้า

ต่อไปนี้เป็นตัวอย่างที่ยกมา:

ต่อไปนี้เป็นเนื้อหาที่ยกมา:

-

โทร com_creatvalidcode (request.querystring (โทร))

Public Sub COM_CREATVALIDCODE (PTEL)

-

Response.exext = 0

Response.addheader Pragma ไม่มีแคช

response.addheader cache-ctrol, ไม่มีแคช

Response.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))

-

Dim Vcolordata (1)

'VCOLORDATA (0) = CHRB (0) & ChRB (0) & ChRB (0)' ----- สีน้ำเงิน 0, สีเขียว 0, สีแดง 0 (สีดำ)

'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)' ------- สีน้ำเงิน 250, สีเขียว 236, สีแดง 211 (สีฟ้าอ่อน)

VCOLORDATA (0) = ChRB (0) & ChRB (0) & ChRB (0) '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

VCOLORDATA (1) = CHRB (205) & ChRB (237) & ChRB (245) '--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

-

สุ่ม

dim vcode ()

REDIM VCODE (Strlen-1)

สำหรับ i = 0 ถึง strlen-1

vCode (i) = instr (1, str, mid (ptel, i 1,1), 1) -1

ต่อไป

-

Dim Vnumberdata (11)

'Verdana Font

VnumberData (0) = 1111111111000111111111111111011110111101110111101111011101111111111111111111111111111

VnumberData (1) = 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111

VnumberData (2) = 111111111100011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111

VnumberData (3) = 11111111110001111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111

VnumberData (4) = 1111111111111111111111111110111101111011101111011111111111111100001111111111111111111111111111

VnumberData (5) = 111111111000001111111111111111111111111111111111111111111111111111111111111111111111

VnumberData (6) = 111111111100011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111

VnumberData (7) = 111111111100000111011011111111111111111111111111111111111111111111111111111111111111

VnumberData (8) = 111111111100011111011111111111111111000111110111101111111111111111111111111111

VnumberData (9) = 11111111110001111101111111011110111101110111111111000111111111111111111101111011111111111000111111111111111111111111111111111111

VnumberData (10) = 11111111111111111111111111111111111111111111100111111111111111111111111111111111111

VnumberData (11) = 11111111111111111111111111111111111111111111111111111111111111111111111111111111

-

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*3 54)/ 256)/ 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)

-

Response.binaryWrite Chrb (24) & Chrb (0) & Chrb (0) & 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 ((((((((((((((((((((((((((((

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)

สำหรับ i = 9 ถึง 0 ขั้นตอน -1 - -

สำหรับ 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-000000> ที่ตำแหน่งที่จะแสดงหมายเลขโทรศัพท์

แชร์: ASP ดำเนินการเพิ่มเติมและการดำเนินการลบในรูปแบบวันที่คำสั่ง SQL
ฉันพบปัญหาในที่ทำงานในวันนี้และฉันต้องสอบถามตามเวลา แต่ผลลัพธ์การสืบค้นแสดงอย่างไม่ถูกต้อง ตัวอย่างเช่นเพื่อค้นหาสมาชิกที่ลงทะเบียนบนเว็บไซต์ระหว่าง 2007-10-12 และ 2007-10-31 หลังจากเลือกวันที่คลิก "Query & R