账号通
    

注册

找回密码

账号  

密码  

话题
互动
会员
服务
<<返回列表上一个主题 下一个主题 打印本帖 复制本帖地址

5007

查看

8

回复
主题：[分享]把网页中的电话号码生成图片的ASP代码 [收藏主题] 转到：  
无风 当前离线

1622

主题

5

广播

29

粉丝
添加关注
级别:高一年

用户积分:5963 分
登录次数:199 次
注册时间:2009/10/12
最后登录:2024/4/4
无风 发表于：2010/1/10 9:52:00   | 只看该作者 查看该作者主题 楼主 
科汛在线网校系统
有生源 找课程 就上科汛课堂街!
  1. <%   
  2. Call Com_CreatValidCode(Request.QueryString("tel"))   
  3.   
  4. Public Sub Com_CreatValidCode(pTel)   
  5.   
  6.      '----------禁止缓存   
  7.       Response.Expires = 0   
  8.       Response.AddHeader "Pragma","no-cache"   
  9.       Response.AddHeader "cache-ctrol","no-cache"   
  10.       Response.ContentType = "Image/BMP"   
  11.   
  12.       Randomize   
  13.   
  14.      Dim i, ii, iii ,rndColor,strLen,sql,rs   
  15.   
  16.      Const cOdds = 5 '------------杂点出现的机率   
  17.      Const str="0123456789-"   
  18.       strLen = len(pTel)   
  19.       rndColor = ChrB(cint(rnd*255)) & ChrB(cint(rnd*255)) & ChrB(cint(rnd*255))   
  20.   
  21.      '-----------颜色的数据(字符，背景)   
  22.      Dim vColorData(1)   
  23.   
  24.      'vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0)      '----蓝0，绿0，红0（黑色）   
  25.      'vColorData(1) = ChrB(255) & ChrB(255) & ChrB(255) '----蓝250，绿236，红211（浅蓝色）   
  26.   
  27.      'vColorData(0) = ChrB(197) & ChrB(106) & ChrB(49)      '---- 蓝0，绿0，红0（黑色）   
  28.      'vColorData(1) = ChrB(238) & ChrB(210) & ChrB(193) '-----蓝250，绿236，红211（浅蓝色）   
  29.   
  30.       vColorData(0) = ChrB(0) & ChrB(0) & ChrB(0)     '---------蓝0，绿0，红0（黑色）   
  31.       vColorData(1) = ChrB(205) & ChrB(237) & ChrB(245) '------------蓝250，绿236，红211（浅蓝色）   
  32.   
  33.   
  34.      '--------------------随机产生字符   
  35.       Randomize   
  36.   
  37.      Dim vCode()   
  38.       redim vCode(strLen-1)   
  39.      For i = 0 To strLen-1   
  40.           vCode(i) =instr(1,str,mid(pTel,i+1,1),1)-1   
  41.      Next   
  42.   
  43.   
  44.      '-----------字符的数据   
  45.      Dim vNumberData(11)   
  46.   
  47.      'Verdana Font   
  48.       vNumberData(0) = "11111111111000111101110111011101110111011101110111011101110111011110001111111111"   
  49.       vNumberData(1) = "11111111111101111110011111110111111101111111011111110111111101111110001111111111"   
  50.       vNumberData(2) = "11111111111000111101110111011101111110111111011111101111110111111100000111111111"   
  51.       vNumberData(3) = "11111111111000111101110111111101111100111111110111111101110111011110001111111111"   
  52.       vNumberData(4) = "11111111111110111111001111101011111010111101101111100001111110111111100111111111"   
  53.       vNumberData(5) = "11111111110000011101111111011111110000111111110111111101110111011110001111111111"   
  54.       vNumberData(6) = "11111111111000111101101111011111110000111101110111011101110111011110001111111111"   
  55.       vNumberData(7) = "11111111110000011101101111111011111101111111011111110111111101111111011111111111"   
  56.       vNumberData(8) = "11111111111000111101110111011101111000111101110111011101110111011110001111111111"   
  57.       vNumberData(9) = "11111111111000111101110111011101110111011110000111111101111011011110000111111111"   
  58.       vNumberData(10) = "11111111111111111111111111111111111111111100000111111111111111111111111111111111"   
  59.       vNumberData(11) = "11111111111111111111111111111111111111111111111111111111111111111111111111111111"   
  60.   
  61.      '-----------------输出图像文件头 <br>   
  62.       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) &_   
  63.       ChrB(0) & ChrB(0) & ChrB(54) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(40) & ChrB(0) &_   
  64.       ChrB(0) & ChrB(0) & ChrB(strLen*8) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(10) & ChrB(0) &_   
  65.       ChrB(0) & ChrB(0) & ChrB(1) & ChrB(0)   
  66.   
  67.      '------------------输出图像信息头   
  68.       Response.BinaryWrite ChrB(24) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)&_   
  69.       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)&_   
  70.       ChrB(196) & ChrB(14) & ChrB(0) & ChrB(0) & ChrB(196) & ChrB(14)&ChrB(0) & ChrB(0) &_   
  71.        ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0) & ChrB(0)   
  72.   
  73.      For i = 9 To 0 Step -1     '----------历经所有行   
  74.          For ii = 0 To strLen-1     '-------历经所有字   
  75.              For iii = 1 To 8 '--------历经所有像素   
  76.                 '---------逐行、逐字、逐像素地输出图像数据   
  77.                 If Rnd * 99 + 1 < cOdds Then '---------随机生成杂点   
  78.                       Response.BinaryWrite rndColor   
  79.                 Else   
  80.                       Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 8 + iii, 1))   
  81.                 End If   
  82.              Next   
  83.          Next   
  84.      Next   
  85. End Sub  
  86. %>  
  89. 将以上代码保存为img.asp，在要显示电话号码的位置插入<img src="img.asp?tel=0591-26728373">即可。
  92. 科讯模板中可以这样调用
  93. 比如你的电话字段是KS_tel
  94.  <img src="img.asp?tel={$KS_tel}">
 
做新职业技能培训平台 就选#科汛网校
  支持(9) | 反对(9) 回到顶部顶端 回到底部底部
sunny81 当前离线

275

主题

5

广播

0

粉丝
添加关注
级别:二年级

用户积分:1367 分
登录次数:102 次
注册时间:2008/6/23
最后登录:2019/7/19
sunny81 发表于：2010/1/10 13:55:00   | 只看该作者 查看该作者主题 沙发 
科汛在线考试系统(NET)
做官网 就用科汛智能建站系统!
不错，感谢楼主分享
 
做考试题库 就用#科汛在线考试系统!
  支持(9) | 反对(8) 回到顶部顶端 回到底部底部
小龙龙 当前离线

376

主题

0

广播

0

粉丝
添加关注
级别:三年级

用户积分:2541 分
登录次数:158 次
注册时间:2008/8/3
最后登录:2013/7/10
小龙龙 发表于：2010/1/10 11:14:00   | 只看该作者 查看该作者主题 藤椅 
科汛智能建站系统
做官网 就用科汛智能建站系统!
一看三楼就是个没心没肺的
 
做新职业技能培训平台 就选#科汛网校
  支持(4) | 反对(4) 回到顶部顶端 回到底部底部
xujun52011 当前离线

107

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:1334 分
登录次数:89 次
注册时间:2009/4/17
最后登录:2010/9/26
xujun52011 发表于：2010/1/10 10:24:00   | 只看该作者 查看该作者主题 板凳 
科汛在线网校系统
有生源 找课程 就上科汛课堂街!

一看就是哪里转来的,顶个毛啊,非原创的我从来不顶,只踩.....
 
做考试题库 就用#科汛在线考试系统!
  支持(3) | 反对(2) 回到顶部顶端 回到底部底部
拥抱阳光 当前离线

528

主题

0

广播

1

粉丝
添加关注
级别:五年级

用户积分:3391 分
登录次数:243 次
注册时间:2008/8/9
最后登录:2012/10/25
拥抱阳光 发表于：2010/1/10 9:53:00   | 只看该作者 查看该作者主题 报纸 
做在线知识付费 选科汛云开店
做线上考试培训 就选#科汛网校
支持！顶！
 
科汛商学院助您快速入门
  支持(2) | 反对(2) 回到顶部顶端 回到底部底部
yuheng 当前离线

122

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:3195 分
登录次数:30 次
注册时间:2010/10/23
最后登录:2011/12/27
yuheng 发表于：2011/1/20 20:11:36   | 只看该作者 查看该作者主题 地板 
科汛智能建站系统
一分钟快速开通线上知识店铺

开始源代码 还是能直接引用  如何在生产静态时生成图片 已防止防采集啊
 
<a href=http://www.xdh.cc/>德惠生活</a>，<a href=http://www.xdh.cc/>德惠信息港</a>，<a href=http://www.xdh.cc/>德惠交友</a>，<a href=http://bbs.xdh.cc/>德惠吧</a>，<a href=http://www.xdh.cc/bbs/>德惠吧</a>，<a href=http://www.xdh.cc/>德惠房产</a>【新生活，新信息，从“新<a href=http://www.xdh.cc/>德惠</a>开始】
做考试题库 就用#科汛在线考试系统!
  支持(2) | 反对(2) 回到顶部顶端 回到底部底部
lengxue 当前离线

3043

主题

18

广播

4

粉丝
添加关注
级别:大二

用户积分:10431 分
登录次数:1606 次
注册时间:2009/1/13
最后登录:2024/7/7
lengxue 发表于：2011/1/20 20:31:19   | 只看该作者 查看该作者主题 7楼 
科汛在线网校系统
有课程 找生源 就上科汛课堂街
记号。
 
想旅游就来就爱旅游网
[url]http://bbs.shangrila66.com[/url]
大香格里拉旅游王国
[url]http://www.shangrila66.com[/url]
做考试题库 就用#科汛在线考试系统!
  支持(2) | 反对(1) 回到顶部顶端 回到底部底部
fysy 当前离线

92

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:81 分
登录次数:2 次
注册时间:2011/1/20
最后登录:2011/1/26
fysy 发表于：2011/1/21 14:14:21   | 只看该作者 查看该作者主题 8楼 
做考试题库 就用#科汛在线考试系统!
做个记号
 
一分钟快速开通线上知识店铺
  支持(1) | 反对(1) 回到顶部顶端 回到底部底部
fqceo 当前离线

229

主题

2

广播

0

粉丝
添加关注
级别:二年级

用户积分:1565 分
登录次数:117 次
注册时间:2009/6/18
最后登录:2013/10/10
fqceo 发表于：2011/7/11 20:38:30   | 只看该作者 查看该作者主题 9楼 
科汛智能建站系统
有课程 找生源 就上科汛课堂街

这个字体要怎么调整？

能不能搞成这样的

http://www.fqlook.cn/e/images_tel_and_so_on/?mid=13&type=tel&id=7798
 
贵阳[/url]看贵阳[/url]贵阳门户网[/url]
做考试题库 就用#科汛在线考试系统!
  支持(1) | 反对(1) 回到顶部顶端 回到底部底部
sffwztgd 当前离线

592

主题

0

广播

1

粉丝
添加关注
级别:五年级

用户积分:625 分
登录次数:49 次
注册时间:2011/6/22
最后登录:2012/2/16
sffwztgd 发表于：2011/7/19 18:52:22   | 只看该作者 查看该作者主题 10楼 
科汛在线商城系统(NET)
有课程 找生源 就上科汛课堂街
对不起，该用户所发的帖已全被锁定!
 
10G Cables[/url]
CXP Cables[/url]
10G SFP+ Cables[/url]
SFP[/url]
SFP+[/url]
QSFP[/url]
MINISAS[/url]
XENPAK[/url]
X2[/url]
XFP[/url]
QSFP Cables[/url]
SFP+ Cables[/url]
SFP Cables[/url]
 SAS/Mini SAS[/url]
 SCSI Products[/url]
 SATA Products[/url]
 10G Transceiver Modules[/url]
XENPAK[/url]                        
XFP[/url]
光模块[/url]
SFP[/url]
SFP+[/url]
SFP++[/url]
SFP光模块[/url]
SFP+光模块[/url]
SFP++光模块[/url]
XFP光模块[/url]
40GQSFP[/url]
10G光模块[/url]
10G SFP[/url]
光模块[/url]
万兆光模块[/url]
sfp模块[/url]
xfp模块[/url]
X2[/url]
XFP[/url]
XENPAK[/url]
SFP[/url]
SFP[/url]
SFP[/url]
SFP+[/url]
SFP++[/url]
xfp[/url]
一分钟快速开通线上知识店铺
  支持(1) | 反对(0) 回到顶部顶端 回到底部底部
＜上一主题 | 下一主题 ＞
<< 返回列表
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.20313秒 powered by KesionCMS 9.0