asp 电话号码正则表达式

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