Der folgende Code kann einige gute digitale Informationen auf der Webseite verbergen, die andere daran hindern, sie direkt zu kopieren oder zu sammeln. Beispielsweise kann die Telefonnummer andere daran hindern, sie zu suchen. Funktion: Verwenden Sie das ASP-Programm, um die Telefonnummer auf der Seite in ein Bildformat zu generieren.
Kopieren Sie den Codecode wie folgt:
<%
Rufen Sie Com_CreatValidCode(Request.QueryString(tel)) auf.
Öffentlicher Sub Com_CreatValidCode(pTel)
'----------Caching deaktivieren
Response.Expires = 0
Response.AddHeader Pragma, kein Cache
Response.AddHeader Cache-Steuerung, kein Cache
Response.ContentType = Bild/BMP
Randomisieren
Dim i, ii, iii ,rndColor,strLen,sql,rs
Const cOdds = 5 '--------Die Wahrscheinlichkeit, dass Rauschen auftritt
Const str=0123456789-
strLen = len(pTel)
rndColor = ChrB(cint(rnd*255)) & ChrB(cint(rnd*255)) & ChrB(cint(rnd*255))
'----------Farbdaten (Zeichen, Hintergrund)
vColorData(1) dimmen
'vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '----Blau 0, Grün 0, Rot 0 (schwarz)
'vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) '----Blau 250, Grün 236, Rot 211 (hellblau)
'vColorData(0) = ChrB(197) & ChrB(106) & ChrB(49) '---- Blau 0, Grün 0, Rot 0 (schwarz)
'vColorData(1) = ChrB(238) & ChrB(210) & ChrB(193) '-----Blau 250, Grün 236, Rot 211 (hellblau)
vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '---------Blau 0, Grün 0, Rot 0 (schwarz)
vColorData(1) = ChrB(205) & ChrB(237) & ChrB(245) '------------Blau 250, Grün 236, Rot 211 (hellblau)
'------------ Zeichen werden zufällig generiert
Randomisieren
vCode dimmen()
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
'----------Zeichendaten
vNumberData(11) dimmen
'Verdana-Schriftart
vNumberData(0) = 11111111111000111101110111011101110111011101110111011101110111011110001111111111
vNumberData(1) = 1111111111110111111001111111011111110111111101111110111111101111110001111111111
vNumberData(2) = 11111111111000111101110111011101111110111111011111101111110111111100000111111111
vNumberData(3) = 1111111111100011110111011111110111110011111111011111101110111011110001111111111
vNumberData(4) = 111111111111101111110011111010111110101111011011111000011111101111111001111111111
vNumberData(5) = 11111111110000011101111111011111110000111111110111111101110111011110001111111111
vNumberData(6) = 11111111111000111101101111011111110000111101110111011101110111011110001111111111
vNumberData(7) = 1111111111000001110110111111101111110111111101111110111111011111110111111111111
vNumberData(8) = 11111111111000111101110111011101111000111101110111011101110111011110001111111111
vNumberData(9) = 11111111111000111101110111011101110111011110000111111101111011011110000111111111
vNumberData(10) = 111111111111111111111111111111111111111100000111111111111111111111111111111111
vNumberData(11) = 1111111111111111111111111111111111111111111111111111111111111111111111111111
'-----------------Bilddatei-Header ausgeben<br>
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(((((strLen*8*10*3+54)/ 256)/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(10) & ChrB(0) &_
ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)
'------------------Bildinformationsheader ausgeben
Response.BinaryWrite ChrB(24) & 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)/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)
Für i = 9 bis 0 Schritt -1 '----------Alle Zeilen durchgehen
For ii = 0 To strLen-1 '------Alle Wörter durchgehen
Für iii = 1 bis 8 '--------Alle Pixel durchlaufen
'---------Bilddaten Zeile für Zeile, Wort für Wort und Pixel für Pixel ausgeben
If Rnd * 99 + 1 < cOdds Then '--------- Erzeugt zufällig Rauschen
Response.BinaryWrite rndColor
Anders
Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 8 + iii, 1))
Ende wenn
Nächste
Nächste
Nächste
Sub beenden
%>
Speichern Sie den obigen Code als img.asp und fügen Sie <img src=img.asp?tel=010-0000000> an der Stelle ein, an der Sie die Telefonnummer anzeigen möchten.