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