Source Code
  --------------------------------------------------------------------------------
  <%
  '******************************************************************************
  ' ********************** 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: [email protected]
  '
  ' 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
  '''''''''''''''''''''''''''''''''''''''''''''''
  '''''''''''''''''''''''''''''''''''''''''''''''
  %>
  
  

 

评论 (0) All

登陆 还没注册？