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

Posted 2022-07-17 知

篇首语：习惯不加以抑制，不久它就会变成你生活上的必需品了。本文由小常识网(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