ASP生成图形（数字验证码）

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的数字。