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

您的位置：首页 → 技术开发 → 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

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

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

%>

文章评论

查看所有0条评论>>

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