-
微信小程序
操作简洁 功能强大
专业团队 资深背景
微信搜索：cn163ns
- 微信平台特色
-
主要功能是针对微信商家公众号提供与众不同的、有针对性的营销推广服务。通过微信平台，用户可以轻松管理自己的微信各类信息，对微信公众账号进行维护、开展智能机器人、在线发优惠劵、抽奖、刮奖、派发会员卡、打造微官网、开启微团购等多种活动，对微信营销实现有效监控，极大扩展潜在客户群和实现企业的运营目标。无使用时间和功能限制
ASP判断是否是域名或IP
使用正则表达式来判断是否是域名或者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
%>
本文地址:https://www.hulian.top/zixun/post/4517.html
- 上一篇：使用组件来保护你的ASP代码
- 下一篇：常用的ASP函数大全
