您正在使用 IPV4 [3.230.143.213] 访问本站,您本次已经查看了 1 页
用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
[公益]保护绿色环境,构建和谐社会       悟空收录网      

【腾讯云】 爆款2核2G3M云服务器首年 61元,叠加红包再享折上折      
[公益] 地球是我家,绿化靠大家      
2024年 劳动节 017
2024年 端午节 057
2025年 元 旦 262
2025年 春 节 290
综合数码金融娱乐服务报刊政府机构 推荐 排名 今日 申请 友情  
您现在的位置:首页 >> ASP/ASP.net >> 内容
本类新增
本类热门
把网页中的(电话,qq等数字)生成图片的ASP程序
内容摘要: %CallCom_CreatValidCode(Request.QueryString('tel'))PublicSubCom_CreatValidCode(pTel)'----------禁止缓存Response.Expires=0Response.AddHeader'Pragma','no-cache'Response.AddHeader'cache-c......
<%

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

%>

将以上代码保存为img.asp,在要显示电话号码的位置插入<imgsrc="img.asp?tel=010-0000000">即可。

版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
上一篇:asp 用InStr查找特定字符串的代码

 

下一篇:用ASP实现写IIS日志的代码

发布日期:2024/2/27
手机扫二维码直达本页
发布时间:15:29:46
点  击:11
录  入:伊伊
相关文章
Baidu
YiJiaCMS 7.3.8 build231228(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,Cloudflare提供加速防护
运行时间载入中.....