知识大全 ASP程序将页面中的电话号码生成图片

Posted

篇首语:习惯不加以抑制,不久它就会变成你生活上的必需品了。本文由小常识网(cha138.com)小编为大家整理,主要介绍了知识大全 ASP程序将页面中的电话号码生成图片相关的知识,希望对你有一定的参考价值。

ASP程序将页面中的电话号码生成图片  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!

  作用 用ASP程序将页面中的电话号码生成图片格式

  以下是引用片段

   以下为引用的内容

  <% Call Com_CreatValidCode(Request QueryString( tel )) Public Sub Com_CreatValidCode(pTel) 禁止缓存 Response Expires = 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 = 杂点出现的机率 Const str= strLen = len(pTel) rndColor = ChrB(cint(rnd* )) & ChrB(cint(rnd* )) & ChrB(cint(rnd* )) 颜色的数据(字符 背景) Dim vColorData( ) vColorData( ) = ChrB( ) & ChrB( ) & ChrB( ) 蓝 绿 红 (黑色) vColorData( ) = ChrB( ) & ChrB( ) & ChrB( ) 蓝 绿 红 (浅蓝色) vColorData( ) = ChrB( ) & ChrB( ) & ChrB( ) 蓝 绿 红 (黑色) vColorData( ) = ChrB( ) & ChrB( ) & ChrB( ) 蓝 绿 红 (浅蓝色) vColorData( ) = ChrB( ) & ChrB( ) & ChrB( ) 蓝 绿 红 (黑色) vColorData( ) = ChrB( ) & ChrB( ) & ChrB( ) 蓝 绿 红 (浅蓝色)

   随机产生字符 Randomize Dim vCode() redim vCode(strLen ) For i = To strLen vCode(i) =instr( str mid(pTel i ) ) Next

   字符的数据 Dim vNumberData( ) Verdana Font vNumberData( ) = vNumberData( ) = vNumberData( ) = vNumberData( ) = vNumberData( ) = vNumberData( ) = vNumberData( ) = vNumberData( ) = vNumberData( ) = vNumberData( ) = vNumberData( ) = vNumberData( ) = 输出图像文件头 <br> Response BinaryWrite ChrB( ) & ChrB( ) &chrb(((strLen* * * ) mod )) & chrb(((strLen* * * )/ )mod ) & ChrB((((strLen* * * )/ )/ )mod ) & ChrB(((((strLen* * * )/ )/ )/ )mod ) & ChrB( ) & ChrB( ) &_ ChrB( ) & ChrB( ) & ChrB( ) & ChrB( ) & ChrB( ) & ChrB( ) & ChrB( ) & ChrB( ) &_ ChrB( ) & ChrB( ) & ChrB(strLen* ) & ChrB( ) & ChrB( ) & ChrB( ) & ChrB( ) & ChrB( ) &_ ChrB( ) & ChrB( ) & ChrB( ) & ChrB( ) 输出图像信息头 Response BinaryWrite ChrB( ) & ChrB( ) & ChrB( ) & ChrB( ) & ChrB( ) & ChrB( )&_ ChrB((strLen* * * )mod )&ChrB(((strLen* * * )/ )mod )&ChrB((((strLen* * * )/ )/ )mod )&ChrB(((((strLen* * * )/ )/ )/ )mod )&_ ChrB( ) & ChrB( ) & ChrB( ) & ChrB( ) & ChrB( ) & ChrB( )&ChrB( ) & ChrB( ) &_ ChrB( ) & ChrB( ) & ChrB( ) & ChrB( ) & ChrB( ) & ChrB( ) & ChrB( ) & ChrB( ) For i = To Step 历经所有行 For ii = To strLen 历经所有字 For iii = To 历经所有像素 逐行 逐字 逐像素地输出图像数据 If Rnd * < cOdds Then 随机生成杂点 Response BinaryWrite rndColor Else Response BinaryWrite vColorData(Mid(vNumberData(vCode(ii)) i * iii )) End If Next Next Next End Sub %>

cha138/Article/program/net/201311/14148

相关参考

知识大全 ASP生成图片彩色校验码

ASP生成图片彩色校验码  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  行代码三个文件  Asp

知识大全 实例详细讲解ASP生成静态页面方法

实例详细讲解ASP生成静态页面方法  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!WITHTEMPL

知识大全 ASP.NET动态生成静态页面的实例代码

ASP.NET动态生成静态页面的实例代码  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!生成静态页有

知识大全 利用ASP.NET动态生成HTML页面

利用ASP.NET动态生成HTML页面  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧! &

知识大全 asp 利用Persits.jpeg组件生成图片

asp利用Persits.jpeg组件生成图片  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  &

知识大全 在ASP.NET中上传图片并生成缩略图

在ASP.NET中上传图片并生成缩略图  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!以下是引用片段

知识大全 ASP.NET生成静态页面和分页主要的原理

ASP.NET生成静态页面和分页主要的原理  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下吧!  静态模

知识大全 asp.net 将一个图片以二进制值的形式存入Xml文件中的实例代码

asp.net将一个图片以二进制值的形式存入Xml文件中的实例代码  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一

知识大全 应用程序Silverlight获取ASP.NET页面参数

应用程序Silverlight获取ASP.NET页面参数  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下

知识大全 Silverlight应用程序获取ASP.NET页面参数

Silverlight应用程序获取ASP.NET页面参数  以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容,让我们赶快一起来看一下