getverifycode.asp
<% dim getrandom
Randomize
getrandom=mid((rnd*100000),1,4) ''生成6位随机数,取高4位
Session("verifycode")=getrandom ''保存于Session中
%>
<input name="code" type="text" id="code" value=""/><%=session("verifycode")%><img src="images/<%=mid(Session("verifycode"),1,1)%>.gif" width="15"><img src="images/<%=mid(Session("verifycode"),2,1)%>.gif" width="15"><img src="images/<%=mid(Session("verifycode"),3,1)%>.gif" width="15"><img src="images/<%=mid(Session("verifycode"),4,1)%>.gif" width="15">
<%usercode=Request("code")
if usercode<>session("verifycode") then
Response.Redirect("verror.asp")
else
response.Write(11)
end if%>
需要注意的是验证码最后一段,就是比较的不能和include放一起,因为会重新include一次就是说肯定会不一样。
另外,这个可以用图片,也可以用数字,用图片的话要0-9的数字。