作用：將頁面中的電話號碼生成圖片格式。
複製代碼代碼如下:
<%
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)'----藍0，綠0，紅0（黑色）
'vColorData(1)=ChrB(255)&ChrB(255)&ChrB(255)'----藍250，綠236，紅211（淺藍色）
'vColorData(0)=ChrB(197)&ChrB(106)&ChrB(49)'----藍0，綠0，紅0（黑色）
'vColorData(1)=ChrB(238)&ChrB(210)&ChrB(193)'-----藍250，綠236，紅211（淺藍色）
vColorData(0)=ChrB(0)&ChrB(0)&ChrB(0)'---------藍0，綠0，紅0（黑色）
vColorData(1)=ChrB(205)&ChrB(237)&ChrB(245)'------------藍250，綠236，紅211（淺藍色）
'--------------------隨機產生字符
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)="11111111111000111101110111011101110111011101110111011101110111011110001111111111"