<!-- http://blog.csdn.net/zerodspace -->
<!-- 0:23 2005-10-23 -->
<!-- 登录、注册中校验码的简单实现 -->
<!-- login.asp -->
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% option explicit %>
<!-- #include file="verifyFunctions.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>登录</title>
</head>
<body>
<form name="form1" method="post" action="check.asp">
<table width="435" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="220"><input name="VerifyNum" type="text" id="checkNum"></td>
<td width="215"><%=GetVerifyNum(4)%></td>
</tr>
<tr>
<td><input type="submit" name="Submit" value="提交"></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
</form>
</body>
</html>
<!-- http://blog.csdn.net/zerodspace -->
<!-- 0:23 2005-10-23 -->
<!-- 登录、注册中校验码的简单实现 -->
<!-- check.asp -->
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% option explicit %>
<!-- #include file="verifyFunctions.asp"-->
<%
if not Verify() then
response.write( "error..." )
else
%>
<!-- 正文部分 -->
<%
response.write( "right<br>" )
response.write( "session(""verifyNum"")=" & session("verifyNum") & "<br>" )
response.write( "session(""needVerify"")=" & session("needVerify") & "<br>" )
%>
<!-- 正文部分 -->
<%
end if
%>
<!-- http://blog.csdn.net/zerodspace -->
<!-- 0:23 2005-10-23 -->
<!-- 登录、注册中校验码的简单实现 -->
<!-- verifyFunctions.asp -->
<%
function GetVerifyNum( length )
randomize
dim checkNum
checkNum = cint( 9*10^(length-1)*rnd() ) + 10^(length-1)
session("verifyNum") = checkNum
session("needVerify") = true
GetVerifyNum = checkNum
end function
function Verify()
dim flag
flag = session("needVerify")
'如果不需要检验码的校验,则立即返回true
if not flag then
Verify = true
exit function
end if
'检验码是否正确
dim verifyNum
dim sessionNum
verifyNum = trim( request("verifyNum") )
sessionNum = session("verifyNum")
flag = true
if flag then
if verifyNum = "" then
flag = false
end if
end if
if flag then
if sessionNum = "" then
flag = false
end if
end if
if flag then
if cint(verifyNum) <> cint(sessionNum) then
flag = false
end if
end if
session.contents.remove("verifyNum")
session.contents.remove("needVerify")
Verify = flag
end function
%>
<!-- 0:23 2005-10-23 -->
<!-- 登录、注册中校验码的简单实现 -->
<!-- login.asp -->
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% option explicit %>
<!-- #include file="verifyFunctions.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>登录</title>
</head>
<body>
<form name="form1" method="post" action="check.asp">
<table width="435" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="220"><input name="VerifyNum" type="text" id="checkNum"></td>
<td width="215"><%=GetVerifyNum(4)%></td>
</tr>
<tr>
<td><input type="submit" name="Submit" value="提交"></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
</form>
</body>
</html>
<!-- http://blog.csdn.net/zerodspace -->
<!-- 0:23 2005-10-23 -->
<!-- 登录、注册中校验码的简单实现 -->
<!-- check.asp -->
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% option explicit %>
<!-- #include file="verifyFunctions.asp"-->
<%
if not Verify() then
response.write( "error..." )
else
%>
<!-- 正文部分 -->
<%
response.write( "right<br>" )
response.write( "session(""verifyNum"")=" & session("verifyNum") & "<br>" )
response.write( "session(""needVerify"")=" & session("needVerify") & "<br>" )
%>
<!-- 正文部分 -->
<%
end if
%>
<!-- http://blog.csdn.net/zerodspace -->
<!-- 0:23 2005-10-23 -->
<!-- 登录、注册中校验码的简单实现 -->
<!-- verifyFunctions.asp -->
<%
function GetVerifyNum( length )
randomize
dim checkNum
checkNum = cint( 9*10^(length-1)*rnd() ) + 10^(length-1)
session("verifyNum") = checkNum
session("needVerify") = true
GetVerifyNum = checkNum
end function
function Verify()
dim flag
flag = session("needVerify")
'如果不需要检验码的校验,则立即返回true
if not flag then
Verify = true
exit function
end if
'检验码是否正确
dim verifyNum
dim sessionNum
verifyNum = trim( request("verifyNum") )
sessionNum = session("verifyNum")
flag = true
if flag then
if verifyNum = "" then
flag = false
end if
end if
if flag then
if sessionNum = "" then
flag = false
end if
end if
if flag then
if cint(verifyNum) <> cint(sessionNum) then
flag = false
end if
end if
session.contents.remove("verifyNum")
session.contents.remove("needVerify")
Verify = flag
end function
%>