首页 >> 读书频道 >> 电脑 >> 实用函数- 判断输入的是否是电话号码
 
· 利用ASP从远程服务器上
· Dom遍历XML的一个例
· 如何使用context(
· 仅用xsl和asp实现分
· 在网页中实现OICQ里的
· 不用组件实现上载功能(2
· 不用组件实现上载功能(1
· IIS 处理 SEARC
· ASP出错集成处理
· 怎样用HtmlEncod
· ASP实现OICQ式的信
· 拦截表单的另外一种写法
 
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
· 2006高考录取规则
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

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


查看有无更新版本

关键字:ASP技巧 2006-9-8

 

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
'''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''
%>

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

[ 1 ]
实用函数- 判断输入的是否是电话号码 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑