实用函数- 判断输入的是否是电话号码
日期：2011-05-04 浏览次数：20980 次
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
'''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''
%>
--------------------------------------------------------------------------------
<%
'******************************************************************************
' ********************** 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
'''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''
%>
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
