我用ado的rs返回一个字符串集rstd，代码如下

sql="select 型号 from 产品表"  
 rstd.open sql,conncp,1,1
 do while not rstd.eof
tdstring=replace (tdstring,rstd("型号"),"<a href=view.asp?id="&rstd("id")&">"&rstd("型号")&"</a>",1,-1,1)
   rstd.movenext
 loop
 rstd.close
set rstd=nothing

目的是想做一个有出现产品型号的地方都做一个连到介绍的页面
现在有个问题，假如我有个产品型号为 a
另一个产品型号为 ab
要进行替换的字符串中有 ab
为什么ASP老是只替换掉a而不能替换掉ab
我试过把sql语言写成
sql="select id,型号 from 产品表 order by 型号 desc"
还是不行
教我　谢谢

因为替换A先执行  已经替换掉了


先替换ad再替换a

sql="select 型号 from 产品表 where 型号<>a "  
rstd.open sql,conncp,1,1
do while not rstd.eof
tdstring=replace (tdstring,rstd("型号"),"<a href=view.asp?id="&rstd("id")&">"&rstd("型号")&"</a>",1,-1,1)
   rstd.movenext
loop
rstd.close
set rstd=nothing


sql="select 型号 from 产品表"  
rstd.open sql,conncp,1,1
do while not rstd.eof
tdstring=replace (tdstring,rstd("型号"),"<a href=view.asp?id="&rstd("id")&">"&rstd("型号")&"</a>",1,-1,1)
   rstd.movenext
loop
rstd.close
set rstd=nothing

我不想这样，现在的问题是它把bbbs替换成<a href="....">bbbd</a>后，又把其中的bbb替换成<a href="...">bbb</a>结果成了　<a href="...."><a href="...">bbb</a>d</a>怎么样解决这个问题
能不能遇到bbb是替换成<a href="....">bbbd</a>而再遇到一个字符串bbb需要替换，如果bbb前面是>它就不替换了？

我想用正则表达式会很简单，但我不会

function surnfutidain(str) dim relisurnfu,surnfuppp Set relisurnfu=new RegExp relisurnfu.IgnoreCase =true relisurnfu.Global=True

relisurnfu.Pattern="\型号" str=relisurnfu.replace(str," <a ……") surnfutidain=str set relisurnfu=nothing end function

谢了，
relisurnfu.Pattern="\型号"
是什么意思能给我说一下吗？

sql="select id,型号 from 产品表 order by 型号 desc"  
rstd.open sql,conncp,1,1
 do while not rstd.eof
if Instr(1,tdstring,rs("型号"), 1)&gt;1 then
if mid (tdstring,Instr(1,tdstring,rs("型号"), 1)-1,1)&lt;&gt;"&gt;" then
tdstring=replace (tdstring,rstd("型号"),"&lt;a href=view.asp?id="&amp;rstd("id")&amp;"&gt;"&amp;rstd("型号")&amp;"&lt;/a&gt;",1,-1,1)
end if
end if
  rstd.movenext
 loop
 rstd.close

这是我最后改的，全用笨方法，但还能基本能实现

http://030313.org/books/Article/2005/04/1279.html

http://030313.org/books/Article/ArticleClass2/16_1.html