最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
禁止垃圾注册的方法
时间:2022-07-02 23:19:06 编辑:袖梨 来源:一聚教程网
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-9d]"
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 ""
response.End()
end if
Session("n1")=False:Session("n2")=False'消除验证码
显示页面
<%=CheckNum("n1")&"+"&CheckNum("n2")%>=
相关文章
- 购宝钱包官方app 05-17
- 绝地求生连狙补偿器选步枪还是狙击枪好 05-17
- ave看盘软件下载链接 05-17
- zt交易所官方最新版 05-17
- CGPay钱包中文版 05-17
- 比特云挖矿赚钱软件 05-17