您正在使用IPV4(35.168.110.128)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器
[公益]文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】多款云产品1折起,买云服务器送免费机器,最长免费续3个月      
[公益] 节省一分零钱 献出一份爱心 温暖世间真情      
2022年 中秋节 21
2022年 国庆节 42
2023年 元 旦 134
2023年 春 节 155
 
本类新增
本类热门文章
您现在的位置:首页 >> ASP/ASP.net >> 内容
asp实现带刷新功能的验证码代码
内容摘要: 将以下代码放到一个单独的页面checkcode.asp%OptionExplicitResponse.buffer=trueCallCom_CreatValidCode('validateCode')SubCom_CreatValidCode(pSN)'禁止缓存Response.Expires=-9999Response.AddHeader'Pragma',......
将以下代码放到一个单独的页面checkcode.asp

<%

OptionExplicit

Response.buffer=true

CallCom_CreatValidCode("validateCode")

SubCom_CreatValidCode(pSN)

'禁止缓存

Response.Expires=-9999

Response.AddHeader"Pragma","no-cache"

Response.AddHeader"cache-ctrol","no-cache"

Response.ContentType="Image/BMP"

Randomize

Dimi,ii,iii

ConstcOdds=2'杂点出现的机率

ConstcAmount=10'文字数量

ConstcCode="0123456789"

'颜色的数据(字符,背景)

DimvColorData(1)

vColorData(0)=ChrB(0)&ChrB(0)&ChrB(211)'蓝0,绿0,红0(黑色)

vColorData(1)=ChrB(255)&ChrB(255)&ChrB(255)'蓝250,绿236,红211(浅蓝色)

'随机产生字符

DimvCode(4),vCodes

Fori=0To3

vCode(i)=Int(Rnd*cAmount)

vCodes=vCodes&Mid(cCode,vCode(i)+1,1)

Next

Session(pSN)=vCodes'记录入Session

'字符的数据

DimvNumberData(9)

vNumberData(0)=

"1110000111110111101111011110111101001011110100101111010010111101001011110111101111011110111

110000111"

vNumberData(1)=

"1111011111110001111111110111111111011111111101111111110111111111011111111101111111110111111

100000111"

vNumberData(2)=

"1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111

100000011"

vNumberData(3)=

"1110000111110111101111011110111111110111111100111111111101111111111011110111101111011110111

110000111"

vNumberData(4)=

"1111101111111110111111110011111110101111110110111111011011111100000011111110111111111011111

111000011"

vNumberData(5)=

"1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111

110000111"

vNumberData(6)=

"1111000111111011101111011111111101111111110100011111001110111101111011110111101111011110111

110000111"

vNumberData(7)=

"1100000011110111011111011101111111101111111110111111110111111111011111111101111111110111111

111011111"

vNumberData(8)=

"1110000111110111101111011110111101111011111000011111101101111101111011110111101111011110111

110000111"

vNumberData(9)=

"1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111

110001111"

'输出图像文件头

Response.BinaryWriteChrB(66)&ChrB(77)&ChrB(230)&ChrB(4)&ChrB(0)&ChrB(0)&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(40)&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(176)

&ChrB(4)&_

ChrB(0)&ChrB(0)&ChrB(18)&ChrB(11)&ChrB(0)&ChrB(0)&ChrB(18)&ChrB(11)&_

ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&ChrB(0)&_

ChrB(0)&ChrB(0)

Fori=9To0Step-1'历经所有行

Forii=0To3'历经所有字

Foriii=1To10'历经所有像素

'逐行、逐字、逐像素地输出图像数据

IfRnd*99+1<cOddsThen'随机生成杂点

Response.BinaryWritevColorData(0)

Else

Response.BinaryWritevColorData(Mid(vNumberData(vCode(ii)),i*10+iii,1))

EndIf

Next

Next

Next

EndSub

%>

需要用得页面用如下方式引用:

验证码:?src="checkcode.asp"alt="验证码,看不清楚?请点击刷新验证码"height="10"style="cursor:

pointer;"onClick="this.src='checkcode.asp?t='+(newDate().getTime());">

判断页面:

<%

iftrim(session("validateCode"))<>trim(Request("txt_check"))then

ErrorMessage="请输入正确的验证码"

response.write("<script>alert('"&ErrorMessage&"');location.href='Default.asp'</script>")

response.end

endif

%>

上一篇:asp正则替换链接实现伪静态效果 下一篇:ASP设置指定站点CPU最大使用程度
发布日期:2022/6/15
手机扫二维码直达本页
发布时间:14:44:32
点击:122
录入:壹家怡园
相关文章
Baidu

YiJiaCMS 6.3.1.220701(MSSQL) 闽ICP备05000814号-1
本空间由腾讯云(轻量应用服务器)提供,百度云加速提供加速防护
Copyright©2000-2022