|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
强大的可扩展性。ASP具有强大的扩展性,可以实现与多种网络、硬件设备的连接:通过专用的通讯线路远程接入企业;通过远程拨号服务器为远程拨号客户提供服务;通过WAP为移动电话互联网客户服务。函数|会员克制渣滓注册的办法
PublicFunctionCheckNum(Str)
IfStr=""ThenExitFunction
IfSession(Str)=FalseThen
RanDomizeTimer
Session(Str)=Int(Rnd*9)+1
EndIf
CheckNum=Session(Str)
EndFunction
FunctionValidInteger(str)
IfStr=""thenExitFunction
Dimre,chkstr
Setre=newRegExp
re.IgnoreCase=true
re.Global=True
re.Pattern="[^_.0-9d]"
ValidInteger=True
chkstr=re.Replace(Str,"")
ValidInteger=IsInteger(chkstr)
EndFunction
PublicFunctionIsInteger(Para)
IfPara=""thenExitFunction
IsInteger=False
IfNot(IsNull(Para)OrTrim(Para)=""OrNotIsNumeric(Para))ThenIsInteger=Para
IsInteger=True
EndIf
EndFunction
考证
inspect=ValidInteger(Request.Form("inspect"))
IfinspectTrim(CheckNum("n1")+CheckNum("n2"))or(Isempty(CheckNum("n1")))then
Response.Write"<script>alert(您输出的注册考证有误,利用半角输出法输出两个数的和);history.back();</script>"
response.End()
endif
Session("n1")=False:Session("n2")=False打消考证码
显现页面
<%=CheckNum("n1")&"+"&CheckNum("n2")%>=<inputname="inspect"type="text"size="2"maxlength="2"/>
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来; |
|