- '==================================================
- '函数名:GetArray
- '作 用:提取链接地址,以$Array$分隔
- '参 数:ConStr ------提取地址的原字符
- '参 数:StartStr ------开始字符串
- '参 数:OverStr ------结束字符串
- '参 数:IncluL ------是否包含StartStr
- '参 数:IncluR ------是否包含OverStr
- '==================================================
- Function GetArray(Byval ConStr,StartStr,OverStr,IncluL,IncluR)
- On Error Resume Next
- If ConStr="$False$" or ConStr="" Or IsNull(ConStr)=True or StartStr="" Or OverStr="" or IsNull(StartStr)=True Or IsNull(OverStr)=True Then
- GetArray="$False$"
- Exit Function
- End If
- Dim TempStr,TempStr2,objRegExp,Matches,Match,Templisturl
- TempStr=""
- Set objRegExp = New Regexp
- objRegExp.IgnoreCase = True
- objRegExp.Global = True
- objRegExp.Pattern = "("&StartStr&").+?("&OverStr&")"
- Set Matches =objRegExp.Execute(ConStr)
- For Each Match in Matches
- if Templisturl =Match.Value then
- Else
- TempStr=TempStr & "$Array$" & Match.Value
- Templisturl=Match.Value
- end if
- Next
- Set Matches=nothing
- If TempStr="" Then
- GetArray="$False$"
- Exit Function
- End If
- TempStr=Right(TempStr,Len(TempStr)-7)
- If IncluL=False then
- objRegExp.Pattern =StartStr
- TempStr=objRegExp.Replace(TempStr,"")
- End if
- If IncluR=False then
- objRegExp.Pattern =OverStr
- TempStr=objRegExp.Replace(TempStr,"")
- End if
- Set objRegExp=nothing
- Set Matches=nothing
- TempStr=Replace(TempStr,"""","")
- TempStr=Replace(TempStr,"'","")
- TempStr=Replace(TempStr," ","")
- 'TempStr=Replace(TempStr,"(","")
- 'TempStr=Replace(TempStr,")","")
- If TempStr="" then
- GetArray="$False$"
- Else
- GetArray=TempStr
- End if
- End Function
asp之GetArray提取链接地址,以$Array$分隔的代码
2019-10-09 14:26asp代码网 ASP教程
asp之GetArray提取链接地址,以$Array$分隔的代码
延伸 · 阅读
- 2021-10-20关于ASP网页无法打开的解决方案
- 2021-10-14让apache也支持asp环境的方法
- 2021-08-15asp取整数mod 有小数的就自动加1
- 2021-08-15asp与php中定时生成页面的思路与代码
- 2021-05-09IIS 7.5 asp Session超时时间设置方法
- 2021-03-05js实现的类似于asp数据字典的数据类型代码实例
- ASP教程
asp最简单最实用的计数器
刚才找一个计数器,由于网站的访问量太少,放个计数器在那里确实有点寒酸了,于是呼只能搞一个简单点的,可以访问一次就记录一次的来撑撑门面先。...
- ASP教程
CreateKeyWord asp实现的由给定的字符串生成关键字的代码
CreateKeyWord asp实现的由给定的字符串生成关键字的代码 ...
- ASP教程
ASP编程入门进阶(五):内置对象Response
通过对Request对象的学习,可以了解到,Request对象是服务器端用来获取客户端的信息的。 但作为服务器和客户端进行交互,是不是还缺少服务器端向客户端...
- ASP教程
asp 采集实战代码
最近实在是太流行采集了,本人是不喜欢采集的,但对采集的原理我却很有兴趣进行研究,拿到了网上采集常用函数,对其进行了一番研究,并实战,结果...
- ASP教程
asp 标记字符串中指定字符变色不区分大小写
今天遇到这种问题,单纯的使用replace函数不行,他会改变原有的字符串的大小写,在网上找到相关的代码,自己备份下...
- ASP教程
一个改进的ASP生成SQL命令字符串类的代码[已测]
网上找资料发现的,但是调试的时候发现有一些问题,改了一下,还有一定的问题,但是可以做一般使用了。没有考虑数据类型的问题,还有SQL Server 和a...
- ASP教程
最小asp后门程序
这个代码,一般不会 被病毒查杀,而且文件比较小,不容易被怀疑,可以放到别的asp文件中,起到隐藏的目的 ...
- ASP教程
使用ASP记录在线用户的数量的代码
网络的访问量是每一个做网站的网友们都非常关心的问题。如何得知有多少个人正在访问你的网站呢?如何将每天的访问量记录下来?下面就是一个解决方...