asp非重复关键字替换

function AddToDic(reg,key,Index,str,dic)
  pattern="<[^>]*"&key&"[^>]*>|<a[^>]*>[^<]*"&key&"[^<]*<\/a>"
  reg.Pattern=pattern
  set matches=reg.Execute(str)
  for each m in matches
    dic.Add "key"&Index,m.value    
    str=replace(str,m.value,"$key"&Index&"$")
    Index=Index+1
  next
  set matches=nothing
end function
function startReplace(str)
 dim TempStr:TempStr=str
 dim dic'字典
 set dic=server.CreateObject("scripting.dictionary")
 dim Index:Index=0
 dim rs,cn,cnstr
 set cn=server.CreateObject("adodb.connection")
 cnstr="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("t.mdb")
 cn.Open cnstr
 set rs=cn.Execute("select keyname,link from keylink order by YX desc")
 dim reg
 set reg=new RegExp
 reg.Global=true
 reg.IgnoreCase=true
 dim pattern,matches,m,ky
 do while not rs.eof
   ky=trim(rs(0))
   AddToDic reg,ky,Index,TempStr,dic
   TempStr=replace(TempStr,ky,"<a href='"&rs(1)&"'>"&ky&"</a>")
   AddToDic reg,ky,Index,TempStr,dic
   rs.movenext
 loop
 rs.close
 set rs=nothing
 cn.Close
 set cn=nothing
 set reg=nothing
 for i=0 to Index-1 
   TempStr=replace(TempStr,"$key"&i&"$",dic.Item("key"&i))
 next
 set dic=nothing
 startReplace=TempStr
end function
dim str
str="网络技术网络;网络应用 网络基本知识 <img src='/sss.jpg' alt='网络技术网络;网络应用'><a  href=""http://www.stobar.cn"">"&_
   "网络技术网络;网络应用 网络基本知识</a>"
str=startReplace(str)
response.Write str