ASP电话号码正则表达式函数

在验证对方电话号码时我们为了能更准确的收集用户信息或为系统的安全性着想,大多程序员都会对用户提交的数据进行过滤,而电话号码验证也只是其它的一种.

'' 判断电话号码是否正确
Function IsValidTel(para)
 Dim Str
 Dim l, i
 If IsNull(para) Then
  IsValidTel = false
  Exit Function
 End If
 Str = CStr(para)
 If Len(Trim(Str))<7 Then
  IsValidTel = false
  Exit Function
 End If
 l = Len(Str)
 For i = 1 To l
  If Not (Mid(Str, i, 1)>= "0" And Mid(Str, i, 1)<= "9" Or Mid(Str, i, 1) = "-") Then
   IsValidTel = false
   Exit Function
  End If
 Next
 IsValidTel = true
End Function

相关文章

• ASP四个电子邮箱验证函数 2012/05/08
• ASP正则表达式过滤html函数 2012/05/08
• ASP常用函数 2012/05/02
• ASP格式化时间日期函数 2012/04/30
• asp封装加密成dll文件 2012/04/27
• ASP连接Oracle数据库方法 2012/04/27
• ASP内容分页函数 2012/04/27
• asp无组件文件上传类 2012/04/27
• 防止ASP木马 2012/04/27
• asp操作Excel的类 2012/04/27