怎样编写一个好的验证码，才能防止留言板中的大量拉极信息。《急用》谢谢

[此贴子已经被作者于2006-3-29 14:12:20编辑过]

手写一个也简单

<%
Sub Code()

Randomize '设置随机种子
do while i<4 '设置产生的随机数长度为4
RndNum=int(rnd*10)
RndCode=RndCode&RndNum
i=i+1
loop
Session("Code")=RndCode '将产生的随机数赋值给Session
End Sub
%>

这种太单了，我已经用过了，不行，还有没有更高极一点的吗？

大家有没知道注册机是怎样工作的
我用的留言板是网上下过来的，有点深，俺一时还不能全理解。
我用了如下验证码方式也不行，请各们指定：
<%
dim arr(20)
arr(0)="8k5hF"
arr(1)="Dd59C"
arr(2)="LOi10"
arr(3)="B5t7T"
arr(4)="B7bK4"
arr(5)="Pn8E9"
arr(6)="K3Ji1"
arr(7)="OtKS0"
arr(8)="Fp5Ow"
arr(9)="Rk7L2"
arr(10)="152bC"
arr(11)="HE3di"
arr(12)="jV3Gp"
arr(13)="A1I5d"
arr(14)="LDt30"
arr(15)="ydD4A"
arr(16)="UDm5k"
arr(17)="dD29L"
arr(18)="Uh8Ke"
arr(19)="Ihd16"
arr(20)="denM9"

dim random,lgh
randomize
random=cint(20*rnd+1)
lgh=arr(random-1)
session("verifycode")=lgh
session.timeout=10
response.write"<img src=../2/"&random&".gif>"
%>

动网的网址多少。
不好意思，偶想快一点解决这处问题。