asp登陆验证码代码(aspnet web验证码)
admin 发布:2023-01-31 15:45 49
本篇文章给大家谈谈asp登陆验证码代码,以及aspnet web验证码对应的知识点,希望对各位有所帮助,不要忘了收藏本站喔。
本文目录一览:
- 1、提供一个asp的验证码的源代码?详细点!!!!十分感谢!!!
- 2、asp验证码代码 注册或登陆的验证码,能刷新变换验证码的
- 3、asp验证码代码
- 4、asp登录界面验证码代码
- 5、ASP验证码怎么写越详细越好
- 6、ASP的验证码代码怎么写?
提供一个asp的验证码的源代码?详细点!!!!十分感谢!!!
3个页面分别是:index.asp code.asp display.asp 当然,名字你可以随便取,下面我们开始了:
一. index.asp 中代码:
!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ""
html xmlns=""
head
meta http-equiv="Content-Type" content="text/html; charset=gb2312" /
title验证码输框/title
/head
body
form id="form1" name="form1" method="post" action="display.asp"
input name="codeOK" type="text" size="6" onkeyup="value=value.replace(/[^\d]/g,'') "
a href="#2" title="单击刷新此验证码" img border=0 src="code.asp" onClick="this.src='code.asp'" //a
input type="submit" name="Submit" value="提交" /
/form
/body
/html
二.code.asp
%
Option Explicit
Response.buffer=true
Call Com_CreatValidCode("GetCode")
Sub Com_CreatValidCode(pSN)
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Response.ContentType = "Image/bmp"
Randomize
Dim i, ii, iii
Const cOdds = 6 ' 杂点出现的机率
Const cAmount = 10 ' 文字数量
Const cCode = "0123456789abcd"
' 颜色的数据(字符,背景)
Dim vColorData(1)
vColorData(0) = ChrB(0) ChrB(0) ChrB(255) ' 蓝0,绿0,红0(黑色)
vColorData(1) = ChrB(255) ChrB(255) ChrB(255) ' 蓝250,绿236,红211(浅蓝色)
' 随机产生字符
Dim vCode(4), vCodes
For i = 0 To 3
vCode(i) = Int(Rnd * cAmount)
vCodes = vCodes Mid(cCode, vCode(i) + 1, 1)
Next
Session(pSN) = vCodes '记录入Session
' 字符的数据
Dim vNumberData(9)
vNumberData(0) = "1110000111110111101111011110111101001011110100101111010010111101001011110111101111011110111110000111"
vNumberData(1) = "1111011111110001111111110111111111011111111101111111110111111111011111111101111111110111111100000111"
vNumberData(2) = "1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111100000011"
vNumberData(3) = "1110000111110111101111011110111111110111111100111111111101111111111011110111101111011110111110000111"
vNumberData(4) = "1111101111111110111111110011111110101111110110111111011011111100000011111110111111111011111111000011"
vNumberData(5) = "1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111110000111"
vNumberData(6) = "1111000111111011101111011111111101111111110100011111001110111101111011110111101111011110111110000111"
vNumberData(7) = "1100000011110111011111011101111111101111111110111111110111111111011111111101111111110111111111011111"
vNumberData(8) = "1110000111110111101111011110111101111011111000011111101101111101111011110111101111011110111110000111"
vNumberData(9) = "1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111110001111"
' 输出图像文件头
Response.BinaryWrite ChrB(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.BinaryWrite ChrB(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)
For i = 9 To 0 Step -1 ' 历经所有行
For ii = 0 To 3 ' 历经所有字
For iii = 1 To 10 ' 历经所有像素
' 逐行、逐字、逐像素地输出图像数据
If Rnd * 99 + 1 cOdds Then ' 随机生成杂点
Response.BinaryWrite vColorData(0)
Else
Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 10 + iii, 1))
End If
Next
Next
Next
End Sub
%
三.display.asp
%
session("code")=Session("GetCode")
if int(session("code"))int(trim(request.form("codeOK"))) then
response.write "scriptalert('验证码错误!');history.go(-1); /script"
response.end
else
response.write "scriptalert('正确!');history.go(-1); /script"
response.end
end if
%
asp验证码代码 注册或登陆的验证码,能刷新变换验证码的
下面这段代码放到页面上去:
验证码(span class=userfont1*/span):
input name="Authcode" type="text" size="10" maxlength="4" value=""
请在验证码框输入 img src="getcode.asp" alt="验证码,看不清楚?请点击刷新验证码" height="10" style="cursor : pointer;" onclick="this.src='getcode.asp?t='+(new Date().getTime());" / 否则不能留言,谢谢合作!下面这段就是在服务器段验证的:让它给系统的比较是否一样%if request("name")"" thenif request("Authcode")session("GetCode") then
%
script language=javascript
history.back();
alert("请返回输入正确的验证码,谢谢合作!");
/script
%
Response.End
End ifend if%
把以下代码复制保存为:GetCode.asp文件,并放在留言/评论等页面的目录里
%
Option Explicit
Response.buffer=true
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Addheader "cache-control","no-cache"
Response.AddHeader "Pragma","no-cache"
Response.ContentType = "Image/BMP"Call Com_CreatValidCode("GetCode")Sub Com_CreatValidCode(pSN)
Randomize
Dim i, ii, iii
Const cOdds = 3 ' 杂点出现的机率
Const cAmount = 10 ' 文字数量
Const cCode = "0123456789"
' 颜色的数据(字符,背景)
Dim vColorData(1)
vColorData(0) = ChrB(0) ChrB(0) ChrB(211) ' 蓝0,绿0,红0(黑色)
vColorData(1) = ChrB(255) ChrB(255) ChrB(255) ' 蓝250,绿236,红211(浅蓝色)
' 随机产生字符
Dim vCode(4), vCodes
For i = 0 To 3
vCode(i) = Int(Rnd * cAmount)
vCodes = vCodes Mid(cCode, vCode(i) + 1, 1)
Next
Session(pSN) = vCodes '记录入Session
' 字符的数据
Dim vNumberData(9)
vNumberData(0) = "1110000111110111101111011110111101001011110100101111010010111101001011110111101111011110111110000111"
vNumberData(1) = "1111011111110001111111110111111111011111111101111111110111111111011111111101111111110111111100000111"
vNumberData(2) = "1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111100000011"
vNumberData(3) = "1110000111110111101111011110111111110111111100111111111101111111111011110111101111011110111110000111"
vNumberData(4) = "1111101111111110111111110011111110101111110110111111011011111100000011111110111111111011111111000011"
vNumberData(5) = "1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111110000111"
vNumberData(6) = "1111000111111011101111011111111101111111110100011111001110111101111011110111101111011110111110000111"
vNumberData(7) = "1100000011110111011111011101111111101111111110111111110111111111011111111101111111110111111111011111"
vNumberData(8) = "1110000111110111101111011110111101111011111000011111101101111101111011110111101111011110111110000111"
vNumberData(9) = "1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111110001111"
' 输出图像文件头
Response.BinaryWrite ChrB(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.BinaryWrite ChrB(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)
For i = 9 To 0 Step -1 ' 历经所有行
For ii = 0 To 3 ' 历经所有字
For iii = 1 To 10 ' 历经所有像素
' 逐行、逐字、逐像素地输出图像数据
If Rnd * 99 + 1 cOdds Then ' 随机生成杂点
If Mid(vNumberData(vCode(ii)), i * 10 + iii, 1) Then
Response.BinaryWrite vColorData(0)
Else
Response.BinaryWrite vColorData(1)
End If
Else
Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 10 + iii, 1))
End If
Next
Next
Next
End Sub
%
asp验证码代码
%
Option Explicit ' 显示声明
Class Com_GifCode_Class
'''''''''''''''''''''''''''''''''''''''''''''
' 2006-01-02
'''''''''''''''''''''''''''''''''''''''''''''
Public Noisy, Count, Width, Height, Angle, Offset, Border
Private Graph(), Margin(3)
Private Sub Class_Initialize()
Randomize
Noisy = 2 ' 干扰点出现的概率
Count = 4 ' 字符数量
Width = 40 ' 图片宽度
Height = 15 ' 图片高度
Angle = 1 ' 角度随机变化量
Offset = 0 ' 偏移随机变化量
Border = 3 ' 边框大小
End Sub
Public Function Create()
写不下,我发给你,加我
------------------------------
img id="pic" src="verifycode.asp" alt="验证码,看不清楚?请点击刷新验证码" onclick="pic.src='verifycode.asp?'+Math.random()" / 看不清楚,请点击验证码刷新/td
asp登录界面验证码代码
%
Option Explicit
Response.buffer=true
Call Com_CreatValidCode("GetCode")
Sub Com_CreatValidCode(pSN)
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
Response.ContentType = "Image/BMP"
Randomize
Dim i, ii, iii
Const cOdds = 6 ' 杂点出现的机率
Const cAmount = 10 ' 文字数量
Const cCode = "0123456789"
' 颜色的数据(字符,背景)
Dim vColorData(1)
vColorData(0) = ChrB(155) ChrB(58) ChrB(48) ' 蓝0,绿0,红0(黑色)
vColorData(1) = ChrB(255) ChrB(223) ChrB(223) ' 蓝250,绿236,红211(浅蓝色)
' 随机产生字符
Dim vCode(4), vCodes
For i = 0 To 3
vCode(i) = Int(Rnd * cAmount)
vCodes = vCodes Mid(cCode, vCode(i) + 1, 1)
Next
Session("pSN") = vCodes '记录入Session
' 字符的数据
Dim vNumberData(9)
vNumberData(0) = "1110000111110111101111011110111101001011110100101111010010111101001011110111101111011110111110000111"
vNumberData(1) = "1111011111110001111111110111111111011111111101111111110111111111011111111101111111110111111100000111"
vNumberData(2) = "1110000111110111101111011110111111111011111111011111111011111111011111111011111111011110111100000011"
vNumberData(3) = "1110000111110111101111011110111111110111111100111111111101111111111011110111101111011110111110000111"
vNumberData(4) = "1111101111111110111111110011111110101111110110111111011011111100000011111110111111111011111111000011"
vNumberData(5) = "1100000011110111111111011111111101000111110011101111111110111111111011110111101111011110111110000111"
vNumberData(6) = "1111000111111011101111011111111101111111110100011111001110111101111011110111101111011110111110000111"
vNumberData(7) = "1100000011110111011111011101111111101111111110111111110111111111011111111101111111110111111111011111"
vNumberData(8) = "1110000111110111101111011110111101111011111000011111101101111101111011110111101111011110111110000111"
vNumberData(9) = "1110001111110111011111011110111101111011110111001111100010111111111011111111101111011101111110001111"
' 输出图像文件头
Response.BinaryWrite ChrB(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.BinaryWrite ChrB(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)
For i = 9 To 0 Step -1 ' 历经所有行
For ii = 0 To 3 ' 历经所有字
For iii = 1 To 10 ' 历经所有像素
' 逐行、逐字、逐像素地输出图像数据
If Rnd * 99 + 1 cOdds Then ' 随机生成杂点
Response.BinaryWrite vColorData(0)
Else
Response.BinaryWrite vColorData(Mid(vNumberData(vCode(ii)), i * 10 + iii, 1))
End If
Next
Next
Next
End Sub
%
img src="getCode.asp" onclick="this.src='getCode.asp?rnd=' + Math.random();" width="45" height="15"/
解释:%if cstr(session("pSN"))cstr(trim(request("verifycode"))) then
response.Write "script LANGUAGE='javascript'alert('请输入正确的验证码!');location.href=""index.asp"";/script"
response.Cookies("names")=user
response.end
end if%
拿去,不懂问
ASP验证码怎么写越详细越好
这个问题我知道啊
大概需要4 5 个文件, 代码很多, 实例在我给的连接里可以下载, 这样基本能解决了 LZ给分吧
其中一共用到5个文件(以登录为例).验证页面login.asp,产生验证码的页面getcode.asp,登陆页面的提交页面main.asp和两个数字
图像文件--body.fix和head.fix
其中getcode.asp 文件的代码为:
下面是获得验证码的函数文件,保存文件为getcode.asp
%
Option Explicit
Response.buffer=true
NumCode
Function NumCode()
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
dim zNum,i,j
dim Ados,Ados1
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("GetCode") = zNum
dim zimg(4),NStr
NStr=cstr(zNum)
For i=0 to 3
zimg(i)=cint(mid(NStr,i+1,1))
Next
dim Pos
set Ados=Server.CreateObject("Adodb.Stream")
Ados.Mode=3
Ados.Type=1
Ados.Open
set Ados1=Server.CreateObject("Adodb.Stream")
Ados1.Mode=3
Ados1.Type=1
Ados1.Open
Ados.LoadFromFile(Server.mappath("images/body.Fix"))
Ados1.write Ados.read(1280)
for i=0 to 3
Ados.Position=(9-zimg(i))*320
Ados1.Position=i*320
Ados1.write ados.read(320)
next
Ados.LoadFromFile(Server.mappath("images/head.fix"))
Pos=lenb(Ados.read())
Ados.Position=Pos
for i=0 to 9 step 1
for j=0 to 3
Ados1.Position=i*32+j*320
Ados.Position=Pos+30*j+i*120
Ados.write ados1.read(30)
next
next
Response.ContentType = "image/BMP"
Ados.Position=0
Response.BinaryWrite Ados.read()
Ados.Close:set Ados=nothing
Ados1.Close:set Ados1=nothing
End Function
%
man.asp的代码如下:
%if request("verifycode")="" then
response.Write "script LANGUAGE=javascriptalert(请输入验证码!);history.go(-1);/script"
response.end
end if
if cstr(session("getcode"))cstr(trim(request("verifycode"))) then
response.Write "script LANGUAGE=javascriptalert('请输入正确的验证码!');/script"
response.write "meta http-equiv=refresh content=""1;URL=login.asp"""
response.end
end if%
其中login.asp种调用验证码的代码为:
img src="getcode.asp" /
ASP的验证码代码怎么写?
因为字符限制原因,不好粘贴代码,生成验证码的程序粘贴不上来,你把邮箱告诉我,我发你邮件.
以下是一个完整的验证码生成程序,生成的是一张图片.
然后你在其他页面里调用这张图片就可以了.
调用程序如下:
td colspan=2 span class="new"验证码:/span
input name="verifycode" type=text id="verifycode"img src=verifycode.asp/td
验证码生成程序粘贴不了.
你把以下地址的程序存成verifycode.asp就可以了
%
Option Explicit
Response.buffer=true
NumCode
Function NumCode()
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "cache-ctrol","no-cache"
dim zNum,i,j
dim Ados,Ados1
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("verifycode") = zNum
dim zimg(4),NStr
NStr=cstr(zNum)
For i=0 to 3
zimg(i)=cint(mid(NStr,i+1,1))
Next
dim Pos
set Ados=Server.CreateObject("Adodb.Stream")
Ados.Mode=3
Ados.Type=1
Ados.Open
set Ados1=Server.CreateObject("Adodb.Stream")
Ados1.Mode=3
Ados1.Type=1
Ados1.Open
Ados.LoadFromFile(Server.mappath("comm/body.Fix"))
Ados1.write Ados.read(1280)
for i=0 to 3
Ados.Position=(9-zimg(i))*320
Ados1.Position=i*320
Ados1.write ados.read(320)
next
Ados.LoadFromFile(Server.mappath("comm/head.fix"))
Pos=lenb(Ados.read())
Ados.Position=Pos
for i=0 to 9 step 1
for j=0 to 3
Ados1.Position=i*32+j*320
Ados.Position=Pos+30*j+i*120
Ados.write ados1.read(30)
next
next
Response.ContentType = "image/BMP"
Ados.Position=0
Response.BinaryWrite Ados.read()
Ados.Close:set Ados=nothing
Ados1.Close:set Ados1=nothing
End Function
%
asp登陆验证码代码的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于aspnet web验证码、asp登陆验证码代码的信息别忘了在本站进行查找喔。
版权说明:如非注明,本站文章均为 AH站长 原创,转载请注明出处和附带本文链接;
- 上一篇:五代码建站(源码站搭建)
- 下一篇:瓜子二手车源代码(瓜子二手车企业代码)
相关推荐
- 06-03常见刮刮乐代码含义(刮刮乐上的代码)
- 08-03派出所代码表(派出所代码表大全两位数)
- 07-05派出所的组织代码(派出所机构代码在哪查)
- 09-03网易云音乐代码(网易云音乐代码大全)
- 08-01源代码查看答案(源代码怎么看答案)
- 09-22查看手机屏幕代码(手机查询屏幕代码)
- 08-22qq强行聊天代码(强制聊天器在线使用)
- 04-19软件源代码使用许可协议(开源许可协议)[20240419更新]
- 07-28网页代码怎么呼出(怎么样调出网页代码)
- 09-13怎么查看app源代码(如何查看手机app源代码)
取消回复欢迎 你 发表评论:
- 标签列表
- 最近发表
- 友情链接