|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp是基于web的一种编程技术,可以说是cgi的一种。它可以完成以往cgi程序的所有功能,如计数器、留言簿、公告板、聊天室等等。SourceCode
--------------------------------------------------------------------------------
<%
******************************************************************************
**********************DONOTDELETE****************************************
COPYRIGHTNOTICE:Copyright2000NicholasP.LaDieu,nodeiinternetconsulting
Thiscodeisfreefornon-commercialuse.Anycommercialusageor
duplicationrequiresalicensingagreementfromtheauthorwhomaybe
contactedatthefollowingemailaddress:nick@nodei.com
Theauthorassumesnoresponsibilityforanydamagecausedbythe
properorinproperuseofthiscode.
http://www.nodei.com
**********************DONOTDELETE****************************************
******************************************************************************
FunctionIsPhone(X)
DimFieldOk
FieldOk=True
Fori=1tolen(X)
IfIsNumeric(mid(X,i,1))=FalseANDmid(X,i,1)"-"ANDmid(X,i,1)"("ANDmid
(X,i,1)")"then
FieldOk=False
EndIf
Next
NOWSTRIPOUTCHARSANDSEEIFWEHAVEAVALIDNUMBER
ForI=1ToLen(X)
strCurrentChar=Mid(X,I,1)
Numbers(0to9)
IfAsc("0")<=Asc(strCurrentChar)AndAsc(strCurrentChar)<=Asc("9")Then
strTemp=strTemp&strCurrentChar
EndIf
UpperCaseChars(AtoZ)
IfAsc("A")<=Asc(strCurrentChar)AndAsc(strCurrentChar)<=Asc("Z")Then
strTemp=strTemp&strCurrentChar
EndIf
NextI
X=strTemp
iflen(X)=10ANDLeft(X,1)="1"then
FieldOk=False
endif
iflen(X)<10then
FieldOk=False
endif
iflen(X)>11then
FieldOk=False
endif
IsPhone=FieldOk
EndFunction
%>
asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了! |
|