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

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

上一个：ReplaceTrim 函数之asp实现过滤掉字符中所有的tab和回车和换行的代码
下一个：GetBody asp实现截取字符串的代码