Asp防止留言灌水的實例代碼

    asp防止留言灌水原理:在每次提交留言的時候,要輸入隨機(jī)生成的4位認(rèn)證碼.
    以下代碼用在ASP
    生成隨機(jī)4位數(shù):
    <%
    dim key
    randomize timer
    key=Int((8999)*Rnd +1000)
    %>
    在表單里顯示:
    認(rèn)證碼：<%=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('請輸入正確的認(rèn)證碼！');history.back()</script> ")
    response.End()
    end if