您的位置:首页技术开发ASP技巧 → 实用函数- 判断输入的是否是电话号码

实用函数- 判断输入的是否是电话号码

时间:2004/11/7 4:10:00来源:本站整理作者:蓝点我要评论(0)

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

'''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''

%>

 

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论
发表评论

热门文章 没有查询到任何记录。

最新文章 VB.NET 2005编写定时关 Jquery get/post下乱码解决方法 前台gbk gb如何使用数据绑定控件显示数据ASP脚本循环语句ASP怎么提速

人气排行 轻松解决"Server Application Error"和iis"一起学习DataGridView调整列宽用ASP随机生成文件名的函数Jquery get/post下乱码解决方法 前台gbk gbODBC Drivers错误80004005的解决办法返回UPDATE SQL语句所影响的行数的方法用Javascript隐藏超级链接的真实地址两个不同数据库表的分页显示解决方案