如何制作验证码效果

最简单的验证码程序：

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 "<script>alert('您输入的验证码和系统产生的不一致，请重新输入！');history.go(-1);</script>"
else
'这里添加验证码正确时候应该编写的程序
end if
%>