Recommended: How to implement rar compression and decompression of source code in Asp Asp implements rar compression and decompression of source code, and can be done with just one file. Asp compresses directories or files, decompresses rar files, deletes specific files and other functions. This source code is convenient for everyone to develop secondary and share it. The following is winrar.asp code:
Function: Use the ASP program to generate image format for phone numbers in the page.
The following is a quoted snippet:
The following is the quoted content:
<%
Call Com_CreatValidCode(Request.QueryString(tel))
Public Sub Com_CreatValidCode(pTel)
'-----------------------------------------------------------------------------------------------------------------------------
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 '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
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) '-----Blue 0, green 0, red 0 (black)
'vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) '-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'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) '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
vColorData(1) = ChrB(205) & ChrB(237) & ChrB(245) '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------------------------
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
'-----------------------------------------------------------------------------------------------------------------------------
Dim vNumberData(11)
'Verdana Font
vNumberData(0) = 11111111111000111110111101111011110111101111011110111101111111111111111
vNumberData(1) = 111111111111101111110111111101111111111101111111111111111111111111111111111111111111111111111
vNumberData(2) = 111111111110001111110111110111111101111111110111111111111011111111111111111111111111111111111
vNumberData(3) = 1111111111100011111110111111101111110111111101111111111111111111111111111111111
vNumberData(4) = 1111111111111101111101111011110111101111011110111101111101111100001111111111
vNumberData(5) = 11111111100000111111111011111100001111111111111111111111111111111111111111111111111
vNumberData(6) = 111111111110001111110111111000111111110111111011111111111111111111111111111111111
vNumberData(7) = 11111111110000011101101111111011111101111111011111110111111101111111011111111111
vNumberData(8) = 1111111111000111110111101111011110001111110111101111111111111111111111
vNumberData(9) = 11111111111000111110111101111011110111101111011110001111111111111111
vNumberData(10) = 11111111111111111111111111111111111111111100000111111111111111111111111111111111
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*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)
'-----------------------------------------------------------------------------------------------------------------------------
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((((((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)
For i = 9 To 0 Step -1 '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
For ii = 0 To strLen-1 '---------After all words
For iii = 1 To 8 '-------------------------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
If Rnd * 99 1 < cOdds Then '-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
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-000000> at the location where the phone number is to be displayed.
Share: ASP implements addition and subtraction operations in SQL statement date format I encountered a problem at work today, and I needed to query by time, but the query results were displayed incorrectly. For example, to find out the members registered on the website between 2007-10-12 and 2007-10-31, after selecting the date, click "Query &r