Function: Generate the phone number on the page to image format.
The code copy is as follows:
<%
CallCom_CreatValidCode(Request.QueryString("tel"))
PublicSubCom_CreatValidCode(pTel)
'-----------------------------------------------------------------------------------------------------------------------------
Response.Expires=0
Response.AddHeader"Pragma","no-cache"
Response.AddHeader"cache-ctrol","no-cache"
Response.ContentType="Image/BMP"
Randomize
Dimi,ii,iii,rndColor,strLen,sql,rs
ConstcOdds=5'---------------------------------------------------------------------------------------------------------------------
Conststr="0123456789-"
strLen=len(pTel)
rndColor=ChrB(cint(rnd*255))&ChrB(cint(rnd*255))&ChrB(cint(rnd*255)))
'-----------------------------------------------------------------------------------------------------------------------------
DimvColorData(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
DimvCode()
redimvCode(strLen-1)
Fori=0TostrLen-1
vCode(i)=instr(1,str,mid(pTel,i+1,1),1)-1
Next
'-----------------------------------------------------------------------------------------------------------------------------
DimvNumberData(11)
'VerdanaFont
vNumberData(0)="1111111111100011111011110111101111011111011111011111111"