<% '****************************************************************************** ' ********************** 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 ''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''' %>
没有相关教程
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
