實用函數:判斷輸入的是否是電話號碼

來源:互聯網
上載者:User
函數   <%
  '******************************************************************************
  ' ********************** 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
  '''''''''''''''''''''''''''''''''''''''''''''''
  '''''''''''''''''''''''''''''''''''''''''''''''
  %>

相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。