msgbox check_ip("1.1.1.1")

Function check_ip(ip)
   Dim regEx
   set regEx = new regExp
   regEx.pattern = "^(([01]?[\d]{1,2})|(2[0-4][\d])|(25[0-5]))(\.(([01]?[\d]{1,2})|(2[0-4][\d])|(25[0-5]))){3}$"
   check_ip = regEx.test(ip)
End Function

成都创新互联公司专注为客户提供全方位的互联网综合服务，包含不限于成都网站设计、成都做网站、迪庆州网络推广、微信平台小程序开发、迪庆州网络营销、迪庆州企业策划、迪庆州品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；成都创新互联公司为所有大学生创业者提供迪庆州建站搭建服务，24小时服务热线：13518219792，官方网址：www.cdcxhl.com

网页题目：vbsIP验证正则表达式
转载来于：http://hbruida.cn/article/gjjsgs.html