最简单的ASP验证码程序
作者:wang 日期:2009-10-12
1、取得4位数的验证码,并记录入COOKIES;
<%
Dim num1,rndnum
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
Loop
response.cookies("vcode")=rndnum
%>
2、添加调用的验证码;
<%=request.cookies("vcode")%>
3、判断提交的验证码是否正确。
<%
if request.cookies("vcode")<>trim(request("vcode")) then
Response.Write ""
else
'这里添加验证码正确时候应该编写的程序
end if
%>
<%
Dim num1,rndnum
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
Loop
response.cookies("vcode")=rndnum
%>
2、添加调用的验证码;
<%=request.cookies("vcode")%>
3、判断提交的验证码是否正确。
<%
if request.cookies("vcode")<>trim(request("vcode")) then
Response.Write ""
else
'这里添加验证码正确时候应该编写的程序
end if
%>
评论: 0 | 引用: 0 | 查看次数: 2972
发表评论