仓酷云

标题: ASP教程之ASP程序将网页中的德律风号码天生图片 [打印本页]

作者: 透明 时间: 2015-1-16 22:07
标题: ASP教程之ASP程序将网页中的德律风号码天生图片
因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。还无法完全实现一些企业级的功能：完全的集群、负载均横。感化：用ASP程序将页面中的德律风号码天生图片格局。
以下是援用片断：
以下为援用的内容：<%
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">便可。
缺点：安全性不是太差了，还行，只要你充分利用系统自带的工具；唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。

作者: 兰色精灵 时间: 2015-1-18 20:49
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

作者: 不帅 时间: 2015-1-27 12:33
学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点:

作者: 透明 时间: 2015-2-5 10:33
他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

作者: 蒙在股里 时间: 2015-3-2 10:49
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

作者: 山那边是海 时间: 2015-3-11 03:50
那么，ASP.Net有哪些改进呢？

作者: 分手快乐 时间: 2015-3-17 20:10
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

作者: 灵魂腐蚀 时间: 2015-3-25 01:21
交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。

欢迎光临仓酷云 (http://ckuyun.com/)