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