<% '****************************************************************************** ' ********************** DO NOT DELETE **************************************** ' ' COPYRIGHT NOTICE: Copyright 2000 Nicholas P. LaDieu, node i internet consulting ' ' This code is free for non-commercial use. Any commercial usage or ' duplication requires a licensing agreement from the author who may be ' contacted at the following email address: nick@nodei.com ' ' The author assumes no responsibility for any damage caused by the ' proper or inproper use of this code. ' ' http://www.nodei.com ' ********************** DO NOT DELETE **************************************** '****************************************************************************** Function IsPhone(X) Dim FieldOk FieldOk=True For i = 1 to len(X) If IsNumeric(mid(X, i, 1))=False AND mid(X,i,1)<>"-" AND mid(X,i,1)<>"(" AND mid (X,i,1)<>")" then FieldOk=False End If Next '''''''''''''''''NOW STRIP OUT CHARS AND SEE IF WE HAVE A VALID NUMBER For I = 1 To Len(X) strCurrentChar = Mid(X, I, 1) ' Numbers (0 to 9) If Asc("0") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("9") Then strTemp = strTemp & strCurrentChar End If ' Upper Case Chars (A to Z) If Asc("A") <= Asc(strCurrentChar) And Asc(strCurrentChar) <= Asc("Z") Then strTemp = strTemp & strCurrentChar End If Next 'I X=strTemp if len(X)=10 AND Left(X,1)="1" then FieldOk=False end if if len(X)<10 then FieldOk=False end if if len(X)>11 then FieldOk=False end if IsPhone=FieldOk End Function ''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''' %> |
|小黑屋|最新主题|手机版|微赢网络技术论坛 ( 苏ICP备08020429号 )
GMT+8, 2024-9-30 11:31 , Processed in 0.173311 second(s), 12 queries , Gzip On, MemCache On.
Powered by Discuz! X3.5
© 2001-2023 Discuz! Team.