Verwenden Sie das ASP -Programm, um das Bildformat für Telefonnummern auf der Seite zu generieren

Autor：Eve Cole Aktualisierungszeit：2025-06-06 12:48:02

Empfohlen: So implementieren Sie die RAR -Komprimierung und Dekompression des Quellcode in ASP
ASP implementiert die RAR -Komprimierung und Dekompression des Quellcodes und kann mit nur einer Datei erfolgen. ASP komprimiert Verzeichnisse oder Dateien, dekomprimiert RAR -Dateien, löscht bestimmte Dateien und andere Funktionen. Dieser Quellcode ist für alle bequem, sekundär zu entwickeln und ihn zu teilen. Das Folgende ist Winrar.asp Code:

Funktion: Verwenden Sie das ASP -Programm, um Bildformat für Telefonnummern auf der Seite zu generieren.

Das Folgende ist ein zitierter Snippet:

Das Folgende ist der zitierte Inhalt:

Rufen Sie com_creatvalidcode an (Request.queryString (Tel))

Public sub com_creatvalidcode (ptele)

Response.expires = 0

Response.addHeader Pragma, No-Cache

Response.addHeader cache-ctrol, no-cache

Antwort.ContentType = Bild/BMP

Randomisieren

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)' ----- blau 0, grün 0, rot 0 (schwarz)

'vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

'vcolordata (0) = chrb (197) & chrb (106) & chrb (49)' --- blau 0, grün 0, rot 0 (schwarz)

'vcolordata (1) = chrb (238) & chrb (210) & chrb (193)' ------- Blue 250, Green 236, Red 211 (hellblau)

vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

vcolordata (1) = chrb (205) & chrb (237) & chrb (245) '----------------------------------------------------------------------------------------------------------------------------------------------------------

Randomisieren

Dim vcode ()

REDIM VCODE (STRLEN-1)

Für i = 0 bis strlen-1

Vcode (i) = Instrument (1, str, Mid (ptel, i 1,1), 1) -1

Dim VnumberData (11)

'Verdana -Schrift

vnumberData (0) = 11111111111000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111

vnumberData (1) = 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111

vnumberData (2) = 1111111111100011111111111111111111111111111111111111111111111111111111111111111111111111111

vnumberData (3) = 11111111111000111111111111111111111111111111111111111111111111111111111111111111

vnumberData (4) = 1111111111111111111111111111111111111111111111111111111110000111111111111111111111111111111111111111111100111111

vnumberData (5) = 111111111000001111111111111111111111111111111111111111111111111111111111111111111

vnumberData (6) = 1111111111100011111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111

vnumberData (7) = 111111111100000111111111111111111111111111111111111111111111111111111111111111111111

vNumberData(8) = 111111111110001111101111011110111100011111101111011111111111111111111

vnumberData (9) = 11111111111000111111111111111111111111111111111111111111111111

vnumberData (10) = 1111111111111111111111111111111111111111111111111111111111111111111111111111111

vnumberData (11) = 111111111111111111111111111111111111111111111111111111111111111111111111111111111

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(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 (0) & CHRB (10) & CHRB (0) & _

CHRB (0) & CHRB (0) & CHRB (1) & CHRB (0)

Antwort.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((((((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)

Für i = 9 bis 0 Schritt -1 '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Für ii = 0 bis strlen-1 '--------- nach allen Wörtern

Für iii = 1 bis 8 '------------------------------------------------------------------------------------------------------------------------

'--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------/ -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Wenn rnd * 99 1 <codds dann '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- ---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Antwort.Binarywrite Rndcolor

Anders

Antwort.

Ende wenn

Ende sub

Speichern Sie den obigen Code als IMG.asp und fügen Sie <img src = img.asp? Tel = 010-000000> an der Stelle ein, an der die Telefonnummer angezeigt werden soll.

Aktien: ASP implementiert Additions- und Subtraktionsvorgänge im SQL -Anweisungsdatumformat
Ich habe heute bei der Arbeit auf ein Problem gestoßen, und ich musste nach Zeit nachfragen, aber die Abfragergebnisse wurden falsch angezeigt. Zum Beispiel, um die auf der Website zwischen 2007-10-12-12 und 2007-10-31 registrierten Mitglieder nach Auswahl des Datums auf "Abfrage & R) zu ermitteln