asp之GetArray提取链接地址，以$Array$分隔的代码

　　==================================================
函数名：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