The following code can hide some good digital information in the web page that prevents others from directly copying or collecting it. For example, the phone number can prevent others from searching. Function: Use ASP program to generate the phone number in the page into image format.
Copy the code code as follows:
<%
Call Com_CreatValidCode(Request.QueryString(tel))
Public Sub Com_CreatValidCode(pTel)
'----------Disable caching
Response.Expires = 0
Response.AddHeader Pragma,no-cache
Response.AddHeader cache-ctrol,no-cache
Response.ContentType = Image/BMP
Randomize
Dim i, ii, iii ,rndColor,strLen,sql,rs
Const cOdds = 5 '--------The probability of noise appearing
Const str=0123456789-
strLen = len(pTel)
rndColor = ChrB(cint(rnd*255)) & ChrB(cint(rnd*255)) & ChrB(cint(rnd*255))
'----------Color data (characters, background)
Dim 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) '----Blue 250, Green 236, Red 211 (light blue)
'vColorData(0) = ChrB(197) & ChrB(106) & ChrB(49) '---- Blue 0, Green 0, Red 0 (black)
'vColorData(1) = ChrB(238) & ChrB(210) & ChrB(193) '-----Blue 250, Green 236, Red 211 (light blue)
vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0) '---------Blue 0, Green 0, Red 0 (black)
vColorData(1) = ChrB(205) & ChrB(237) & ChrB(245) '------------Blue 250, Green 236, Red 211 (light blue)
'-------------------------- Randomly generate characters
Randomize
Dim vCode()
redim vCode(strLen-1)
For i = 0 To strLen-1
vCode(i) =instr(1,str,mid(pTel,i+1,1),1)-1
Next
'----------Character data
Dim vNumberData(11)
'Verdana Font
vNumberData(0) = 11111111111000111101110111011101110111011101110111011101110111011110001111111111
vNumberData(1) = 11111111111101111110011111110111111101111111011111110111111101111110001111111111
vNumberData(2) = 11111111111000111101110111011101111110111111011111101111110111111100000111111111
vNumberData(3) = 11111111111000111101110111111101111100111111110111111101110111011110001111111111
vNumberData(4) = 111111111111101111110011111010111110101111011011111000011111101111111001111111111
vNumberData(5) = 11111111110000011101111111011111110000111111110111111101110111011110001111111111
vNumberData(6) = 11111111111000111101101111011111110000111101110111011101110111011110001111111111
vNumberData(7) = 111111111100000111011011111110111111011111110111111101111111011111110111111111111
vNumberData(8) = 11111111111000111101110111011101111000111101110111011101110111011110001111111111
vNumberData(9) = 11111111111000111101110111011101110111011110000111111101111011011110000111111111
vNumberData(10) = 1111111111111111111111111111111111111111100000111111111111111111111111111111111
vNumberData(11) = 111111111111111111111111111111111111111111111111111111111111111111111111111
'-----------------Output image file header<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)
'------------------Output image information header
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)
For i = 9 To 0 Step -1 '----------Go through all rows
For ii = 0 To strLen-1 '------Go through all words
For iii = 1 To 8 '--------Go through all pixels
'---------Output image data line by line, word by word, and pixel by pixel
If Rnd * 99 + 1 < cOdds Then '--------- Randomly generate noise
Response.BinaryWrite rndColor
Else
Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 8 + iii, 1))
End If
Next
Next
Next
End Sub
%>
Save the above code as img.asp and insert <img src=img.asp?tel=010-0000000> where you want to display the phone number.