广告：
网页制作参考
千千学园
雨路开发频道
雨路技术文档
技术问答
编程技术

作者： unknow

  <%
  @#******************************************************************************
  @# ********************** 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
  @#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#
  @#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#@#
  %>