ASP 判断是否为IP的正则

程序代码 程序代码
'测试是否满足正则表达式
Function RegTest(pattern,strTest)
    RegTest = False
    Dim regEx, Matchs
    Set regEx = New RegExp
    regEx.Pattern = pattern
    regEx.IgnoreCase = False
    regEx.Global = True
    RegTest = regEx.Test(strTest)

End Function

'判断是否是IP
Function IsIp(str)
    Dim patn
    patn = "^(?:(?:25[0-5]|2[0-4]\d|[01]?\d?\d)\.){3}(?:25[0-5]|2[0-4]\d|[01]?\d?\d)$"
    IsIp = RegTest(patn,str)
End Function

'判断是否是域名
Function IsDomain(str)
    Dim patn
    patn = "^([\u4e00-\u9fa5\w-]+\.)+[\u4e00-\u9fa5\w-]+$"
    IsDomain = RegTest(patn,str)
End Function

'判断是否是域名或者IP地址
Function IsDomainOrIP(str)
    Dim patn
    patn = "^([\u4e00-\u9fa5\w-]+\.)+[\u4e00-\u9fa5\w-]+$|^(?:(?:25[0-5]|2[0-4]\d|[01]?\d?\d)\.){3}(?:25[0-5]|2[0-4]\d|[01]?\d?\d)$"
    IsDomain = RegTest(patn,str)
End Function



文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 0 | 查看次数: -
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.