[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