禁止自动垃圾注册会员的ASP函数

禁止自动垃圾注册会员的ASP函数

禁止垃圾注册的方法 
Public Function CheckNum(Str) 
     If Str="" Then Exit Function 
          If Session(Str)=False Then 
               RanDomize Timer 
               Session(Str)=Int(Rnd*9)+1 
          End If 
     CheckNum=Session(Str) 
End Function 
Function ValidInteger(str) 
     If Str="" then Exit Function 
     Dim re,chkstr 
     Set re=new RegExp 
     re.IgnoreCase =true 
     re.Global=True 
     re.Pattern="[^_\.0-9\d]" 
     ValidInteger=True 
     chkstr=re.Replace(Str,"") 
     ValidInteger=IsInteger(chkstr) 
End Function 
Public Function IsInteger(Para)  
     If Para="" then Exit Function 
     IsInteger=False 
     If Not (IsNull(Para) Or Trim(Para)="" Or Not IsNumeric(Para)) Then IsInteger=Para 
     ’IsInteger=True 
     ’End If 
End Function 

验证 

          inspect=ValidInteger(Request.Form("inspect"))       
      If inspect<>Trim(CheckNum("n1")+CheckNum("n2")) or (Isempty(CheckNum("n1")))then 
        Response.Write "<script>alert(’您输入的注册验证有误，使用半角输入法输入两个数的和’);history.back();</script>" 
        response.End()     
     end if 
Session("n1")=False:Session("n2")=False’消除验证码 

显示页面 

<%=CheckNum("n1")&"+"&CheckNum("n2")%>= <input name="inspect" type="text" size="2" maxlength="2" />