作用：将页面中的电话号码生成图片格式。

复制代码 代码如下:

<%

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"

vNumberData(1)="11111111111101111110011111110111111101111111011111110111111101111110001111111111"

vNumberData(2)="11111111111000111101110111011101111110111111011111101111110111111100000111111111"

vNumberData(3)="11111111111000111101110111111101111100111111110111111101110111011110001111111111"

vNumberData(4)="11111111111110111111001111101011111010111101101111100001111110111111100111111111"

vNumberData(5)="11111111110000011101111111011111110000111111110111111101110111011110001111111111"

vNumberData(6)="11111111111000111101101111011111110000111101110111011101110111011110001111111111"

vNumberData(7)="11111111110000011101101111111011111101111111011111110111111101111111011111111111"

vNumberData(8)="11111111111000111101110111011101111000111101110111011101110111011110001111111111"

vNumberData(9)="11111111111000111101110111011101110111011110000111111101111011011110000111111111"

vNumberData(10)="11111111111111111111111111111111111111111100000111111111111111111111111111111111"

vNumberData(11)="11111111111111111111111111111111111111111111111111111111111111111111111111111111"

'-----------------输出图像文件头<br>

Response.BinaryWriteChrB(66)&ChrB(77)&chrb(((strLen*8*10*3+54)mod256))&chrb(((strLen*8*10*3+54)256)mod256)&ChrB((((strLen*8*10*3+54)256)256)mod256)&ChrB(((((strLen*8*10*3+54)256)256)256)mod256)&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(10)&ChrB(0)&_

ChrB(0)&ChrB(0)&ChrB(1)&ChrB(0)

'------------------输出图像信息头

Response.BinaryWriteChrB(24)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&_

ChrB((strLen*8*10*3)mod256)&ChrB(((strLen*8*10*3)256)mod256)&ChrB((((strLen*8*10*3)256)256)mod256)&ChrB(((((strLen*8*10*3)256)256)256)mod256)&_

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)

Fori=9To0Step-1'----------历经所有行

Forii=0TostrLen-1'-------历经所有字

Foriii=1To8'--------历经所有像素

'---------逐行、逐字、逐像素地输出图像数据

IfRnd*99+1<cOddsThen'---------随机生成杂点

Response.BinaryWriterndColor

Else

Response.BinaryWritevColorData(Mid(vNumberData(vCode(ii)),i*8+iii,1))

EndIf

Next

Next

Next

EndSub

%>

演示

http://tools.jb51.net/telimg/index.asp

index.asp内容为

复制代码 代码如下:

<imgsrc="http://tools.jb51.net/telimg/telimg.asp?tel=0516-82767226">

【利用ASP实现在线生成电话图片效果脚本附演示】相关文章：

★ 使用ASP控制指定站点解析脚本语言函数

★ 用ASP实现对MP3曲目信息的操作

★ 用ASP实现距指定日期的倒记时程序源码

★ ASP中利用execute实现动态包含文件的方法

★ 使用ASP列出NT用户组及用户

★ 用ASP木马实现FTP和解压缩

★ 利用ASPUPLOAD，ASPJPEG实现图片上传自动生成缩略图及加上水印

★ ASP 程序实现自动升级功能

★ 用XML+FSO+JS实现服务器端文件的

★ 使用函数自动生成n层目录