手机
当前位置:查字典教程网 >编程开发 >ASP教程 >asp之GetArray提取链接地址,以$Array$分隔的代码
asp之GetArray提取链接地址,以$Array$分隔的代码
摘要:'=================================================='函数名:GetArray'作用:提取...

'==================================================

'函数名:GetArray

'作用:提取链接地址,以$Array$分隔

'参数:ConStr------提取地址的原字符

'参数:StartStr------开始字符串

'参数:OverStr------结束字符串

'参数:IncluL------是否包含StartStr

'参数:IncluR------是否包含OverStr

'==================================================

FunctionGetArray(ByvalConStr,StartStr,OverStr,IncluL,IncluR)

OnErrorResumeNext

IfConStr="$False$"orConStr=""OrIsNull(ConStr)=TrueorStartStr=""OrOverStr=""orIsNull(StartStr)=TrueOrIsNull(OverStr)=TrueThen

GetArray="$False$"

ExitFunction

EndIf

DimTempStr,TempStr2,objRegExp,Matches,Match,Templisturl

TempStr=""

SetobjRegExp=NewRegexp

objRegExp.IgnoreCase=True

objRegExp.Global=True

objRegExp.Pattern="("&StartStr&").+?("&OverStr&")"

SetMatches=objRegExp.Execute(ConStr)

ForEachMatchinMatches

ifTemplisturl=Match.Valuethen

Else

TempStr=TempStr&"$Array$"&Match.Value

Templisturl=Match.Value

endif

Next

SetMatches=nothing

IfTempStr=""Then

GetArray="$False$"

ExitFunction

EndIf

TempStr=Right(TempStr,Len(TempStr)-7)

IfIncluL=Falsethen

objRegExp.Pattern=StartStr

TempStr=objRegExp.Replace(TempStr,"")

Endif

IfIncluR=Falsethen

objRegExp.Pattern=OverStr

TempStr=objRegExp.Replace(TempStr,"")

Endif

SetobjRegExp=nothing

SetMatches=nothing

TempStr=Replace(TempStr,"""","")

TempStr=Replace(TempStr,"'","")

TempStr=Replace(TempStr,"","")

'TempStr=Replace(TempStr,"(","")

'TempStr=Replace(TempStr,")","")

IfTempStr=""then

GetArray="$False$"

Else

GetArray=TempStr

Endif

EndFunction

【asp之GetArray提取链接地址,以$Array$分隔的代码】相关文章:

asp中通过getrows实现数据库记录分页的一段代码

asp获取当前URL代码

asp下tag的实现,简单介绍与部分代码

如何截取asp后台登陆密码的代码

记录集内随机取记录的代码

在asp中通过getrows实现数据库记录分页的一段代码

ASP 微信公共平台接口实现代码

ASP使用FSO读取模板的代码

ASP中有关双引号,单引号以及&号的解释

asp中COM组件中如何连接数据库的代码

精品推荐
分类导航