• 首页
• 服务器租用
• 企业邮箱
• 虚拟主机
• 网站程序
• 营销推广
• 网站建设
• 域名注册
• 前端开发
• 网站备案

• 当前位置：创新互联 >> 常见问题 >> 网站程序 >> asp程序 >> ASP判断是否是域名或IP

ASP判断是否是域名或IP

• 作者：创新互联 文章来源：网站设计部 点击数： 更新时间：2014-12-24

• 使用正则表达式来判断是否是域名或者IP的ASP程序，代码如下：

  
  

  <%
  '测试是否满足正则表达式
  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
  %>
  

• ASP分页时计算页面总数的几种算法小结 :上一篇
  ASP怎么实现301重定向 :下一篇