asp驗證碼源碼
A. 提供一個asp的驗證碼的源代碼詳細點！！！！十分感謝！！！
3個頁面分別是：index.asp code.asp display.asp 當然，名字你可以隨便取，下面我們開始了：
一. index.asp 中代碼：
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<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) = ""
vNumberData(1) = ""
vNumberData(2) = ""
vNumberData(3) = ""
vNumberData(4) = ""
vNumberData(5) = ""
vNumberData(6) = ""
vNumberData(7) = ""
vNumberData(8) = ""
vNumberData(9) = ""
' 輸出圖像文件頭
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 "<script>alert('驗證碼錯誤！');history.go(-1); </script>"
response.end
else
response.write "<script>alert('正確！');history.go(-1); </script>"
response.end
end if
%>