Asp防止留言灌水的实例代码

 asp防止留言灌水原理:在每次提交留言的时候,要输入随机生成的4位认证码. 

以下代码用在ASP 
生成随机4位数: 

<% 
dim key 
randomize timer 
key=Int((8999)*Rnd +1000) 
%> 

在表单里显示: 

认证码：<%=key%> 
<input type="text" name="rekey" size="8" maxlength="4"> 
<input value="<%=key%> " type="hidden" name="key"> 

表单提交后检查: 

key=Request.Form("key") 
rekey=Request.Form("rekey") 
if rekey<> key then 
Response.Write("<script language=javascript> alert('请输入正确的认证码！');history.back()</script> ") 
response.End() 
end if