【文件属性】:
文件名称:ASP采集代码
文件大小:4KB
文件格式:ASP
更新时间:2015-12-13 04:25:35
ASP 采集
ASP采集网页
<%
Function CheckExp(strng)
Dim regEx, Match ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = "002[\d]{3}|000[\d]{3}|300[\d]{3}|600[\d]{3}|60[\d]{4}" ' 设置模式。
regEx.IgnoreCase = true ' 设置是否区分字符大小写。
regEx.Global = True ' 设置全局可用性。
Matches = regEx.test(strng) ' 执行搜索。
CheckExp=Matches
End Function
Function CheckExp1(strng) '判断是否为上证的
Dim regEx, Match ' 建立变量。
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = "600[\d]{3}|60[\d]{4}" ' 设置模式。
regEx.IgnoreCase = true ' 设置是否区分字符大小写。
regEx.Global = True ' 设置全局可用性。
Matches = regEx.test(strng) ' 执行搜索。
CheckExp1=Matches
End Function
%>
网友评论
- 非常好用。 谢谢分享
- 还可以,能用的啊