作用用ASP程序将页面中的电话号码生成图片格式
以下是引用片段
以下为引用的内容
<%
Call Com_CreatValidCode(RequestQueryString(tel))
Public Sub Com_CreatValidCode(pTel)
禁止缓存
ResponseExpires =
ResponseAddHeader Pragmanocache
ResponseAddHeader cachectrolnocache
ResponseContentType = Image/BMP
Randomize
Dim i ii iii rndColorstrLensqlrs
Const cOdds = 杂点出现的机率
Const str=
strLen = len(pTel)
rndColor = ChrB(cint(rnd*)) & ChrB(cint(rnd*)) & ChrB(cint(rnd*))
颜色的数据(字符背景)
Dim vColorData()
vColorData() = ChrB() & ChrB() & ChrB() 蓝绿红（黑色）
vColorData() = ChrB() & ChrB() & ChrB() 蓝绿红（浅蓝色）
vColorData() = ChrB() & ChrB() & ChrB() 蓝绿红（黑色）
vColorData() = ChrB() & ChrB() & ChrB() 蓝绿红（浅蓝色）
vColorData() = ChrB() & ChrB() & ChrB() 蓝绿红（黑色）
vColorData() = ChrB() & ChrB() & ChrB() 蓝绿红（浅蓝色）
随机产生字符
Randomize
Dim vCode()
redim vCode(strLen)
For i = To strLen
vCode(i) =instr(strmid(pTeli ))
Next
字符的数据
Dim vNumberData()
Verdana Font
vNumberData() =
vNumberData() =
vNumberData() =
vNumberData() =
vNumberData() =
vNumberData() =
vNumberData() =
vNumberData() =
vNumberData() =
vNumberData() =
vNumberData() =
vNumberData() =
输出图像文件头 <br>
ResponseBinaryWrite ChrB() & ChrB() &chrb(((strLen*** ) mod )) & chrb(((strLen*** )/ )mod ) & ChrB((((strLen*** )/ )/)mod ) & ChrB(((((strLen*** )/ )/)/)mod ) & ChrB() & ChrB() &_
ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() &_
ChrB() & ChrB() & ChrB(strLen*) & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() &_
ChrB() & ChrB() & ChrB() & ChrB()
输出图像信息头
ResponseBinaryWrite ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB()&_
ChrB((strLen***)mod )&ChrB(((strLen***)/)mod )&ChrB((((strLen***)/)/)mod )&ChrB(((((strLen***)/)/)/)mod )&_
ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB()&ChrB() & ChrB() &_
ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB() & ChrB()
For i = To Step 历经所有行
For ii = To strLen 历经所有字
For iii = To 历经所有像素
逐行逐字逐像素地输出图像数据
If Rnd * < cOdds Then 随机生成杂点
ResponseBinaryWrite rndColor
Else
ResponseBinaryWrite vColorData(Mid(vNumberData(vCode(ii)) i * iii ))
End If
Next
Next
Next
End Sub
%>
将以上代码保存为imgasp在要显示电话号码的位置插入<img src=imgasp?tel=>即可
