判断输入的是否是电话号码

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
  %>