作用：将页面中的电话号码生成图片格式。
复制代码代码如下:
<%
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"