ASP采集代码

【文件属性】：

文件名称：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 %>