把网页中的(电话,qq等数字)生成图片的ASP程序
来源:asp之家 发布时间:2011-04-11 10:40:00
作用:用ASP程序将页面中的电话号码生成图片格式。
代码如下:
<%
Call Com_CreatValidCode(Request.QueryString("tel"))
Public Sub Com_CreatValidCode(pTel)
'----------禁止缓存
Response.Expires = 0
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Response.ContentType = "Image/BMP"
Randomize
Dim i, ii, iii ,rndColor,strLen,sql,rs
Const cOdds = 5 '------------杂点出现的机率
Const str="0123456789-"
strLen = len(pTel)
rndColor = ChrB(cint(rnd*255)) & ChrB(cint(rnd*255)) & ChrB(cint(rnd*255))
'-----------颜色的数据(字符,背景)
Dim vColorData(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
Dim vCode()
redim vCode(strLen-1)
For i = 0 To strLen-1
vCode(i) =instr(1,str,mid(pTel,i+1,1),1)-1
Next
'-----------字符的数据
Dim vNumberData(11)
'Verdana Font
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.BinaryWrite ChrB(66) & ChrB(77) &chrb(((strLen*8*10*3+54) mod 256)) & chrb(((strLen*8*10*3+54)\ 256)mod 256) & ChrB((((strLen*8*10*3+54)\ 256)\256)mod 256) & ChrB(((((strLen*8*10*3+54)\ 256)\256)\256)mod 256) & 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.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)&_
ChrB((strLen*8*10*3)mod 256)&ChrB(((strLen*8*10*3)\256)mod 256)&ChrB((((strLen*8*10*3)\256)\256)mod 256)&ChrB(((((strLen*8*10*3)\256)\256)\256)mod 256)&_
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)
For i = 9 To 0 Step -1 '----------历经所有行
For ii = 0 To strLen-1 '-------历经所有字
For iii = 1 To 8 '--------历经所有像素
'---------逐行、逐字、逐像素地输出图像数据
If Rnd * 99 + 1 < cOdds Then '---------随机生成杂点
Response.BinaryWrite rndColor
Else
Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 8 + iii, 1))
End If
Next
Next
Next
End Sub
%>
将以上代码保存为img.asp,在要显示电话号码的位置插入<img src="img.asp?tel=010-0000000">即可。
猜你喜欢
- 回滚段管理一直是ORACLE数据库管理的一个难题,本文通过实例介绍ORACLE回滚段的概念,用法和规划及问题的解决。 回滚段概述 回滚段用于
- <!DOCTYPE html PUBLIC "-//W3C//DTD X
- 信息架构的组件可以拆分成四类组织系统 如何组织信息,例如,依据主题或年代顺序。标签系统 如何表示信息,例如,科学术语(“Acer”)或通俗术
- asp三天学好ADO对象之第一天 今天说一下Recordset 对象的属性1、CursorType 属性AdOpenForwardOnly:
- var getWindow = function(obj) { var&nbs
- 我们知道IE6是不支持透明的PNG的,这无疑限制了网页设计的发挥空间.然而整个互联网上解决这个IE6的透明PNG的方案也是多不胜数,从使用I
- 例子:Response.Cookies("letwego")("visiter")="84
- Wingdings字体,Symbol字体<html> <head> <title>
- 本文从多个角度来讲解如何在Access数据库上如何上传并且显示上所上传图片。在 * 站制做过程中,需要上传图片、显示图片,上传的图片要能够保
- 传统的网页BBS大多是采用CGI模式实现的,它的实现要求编程者既要掌握编程语言如Perl或C等,又要了解关于CGI模式的各项技术内容,因此要
- 第一招、mysql服务的启动和停止net stop mysqlnet start mysql第二招、登陆mysql语法如下: mysql -
- SQL Server内存会不断增加当 SQL Server 数据库引擎在 Microsoft? Windows NT? 或 Windows?
- 在第一章,我们讲过position,当它取值absolute的时候,即绝对定位。既然是定位,就要有参照物。一般来讲,这个定位的参照物是bod
- 用采集程序的优点有:无须维护网站,因为采集程序中的数据来自其他网站,它将随着该网站的更新而更新;可以节省服务器资源,一般采集程序就几个文件,
- 示例:mysql> DELIMITER //mysql> CREATE PROCEDURE `statis`()
- 记得有一期ucdchina书友会里面,聊过一次大家的工作习惯问题,现在回想起来很有意思,特整理这篇文章分享给大家。关于photoshop1
- 事情开始得很简单。MegaWare公司市场部门想要一个新的网站来发布文档,开发团队觉得使用SQL Server 2000数据库作为文档存储仓
- 浏览器对于CSS的支持问题落后于CSS的发展,以占有市场绝对份额的Internet Explorer来说,直到其前不久发布的第8个版本才刚刚
- 有一个表,用户需要在后台操作它,希望能对它动态进行添加删除字段。这个功能也许没有问题,但是它原有插入与更新的两个存储过程,也需要一起修改。因
- 用途:图片经常使用onload来改变宽度,但这样会出现图片的闪烁,这个简单的类就是用来解决这个问题的。函数loadImage,用来加载图片,