Empfohlen: Trennung von Code und Seite in ASP Um Wartungsschwierigkeiten zu vermeiden, die durch das Mischen von ASP -Programmen und HTML -Code verursacht werden, führt dieser Artikel mit einer Methode zur Verwendung von Vorlagen für Programme und Seiten ein, um die Programmierung zu vereinfachen. Wenn Sie ASP zum Erstellen einer Website verwenden, gibt es häufig eine Situation, in der der Programmcode und der HTML -Code in einer ASP -Datei gemischt werden. Dies gibt viele Nachteile: 1. Ganz zu schweigen von der Programmierung, Sie müssen
Funktion: Generieren Sie die Telefonnummer auf der Seite zum Bildformat.
<%
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) = instr (1, str, Mid (ptel, i+1,1), 1) -1
Nächste
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Dim VnumberData (11)
'Verdana -Schrift
vnumberData (0) = 11111111111000111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
vnumberData (1) = 11111111111111111111111111111111111111111111111111111111111111111111111111111111111111111
vnumberData (2) = 1111111111100011111111111111111111111111111111111111111111111111111111111111111111111111111
vnumberData (3) = 11111111111000111111111111111111111111111111111111111111111111111111111111111111
vnumberData (4) = 11111111111111111111111111111111111111111111111111111100000011111111111
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
Nächste
Nächste
Nächste
Ende sub
%>
Speichern Sie den obigen Code als IMG.asp und fügen Sie <img src = img.asp? Tel = 0591-26728373> an der Stelle ein, an der die Telefonnummer angezeigt werden soll.
Quelle: Muziwu Autor: DNAWO
Share: ASP Tutorial: Tipps für ASP, um Pseudo-Parameter zu generieren Vor zwei Tagen arbeitete ich an einer In-Site-Version der Enterprise-Suchmaschine und stellte fest, dass einige Websites auf Site-Inhalte verlinken können. . Ich schaute es mir seltsam an und stellte fest, dass es gemäß den automatischen Nummerierungsregeln der Datenbank -ID verknüpft war. Ich habe in meiner Freizeit das Folgende erstellt und gehofft, dass es für alle in zukünftigen Schreiben von ASP -Programmen hilfreich sein wird! % '' // generieren zufällige Anzahl angegebener Ziffern '' // Sie können auch die GUID verwenden