Set rs=Server.CreateObject("ADODB.Recordset")
while i <0 or i>数组最大下标-1
sql="select keyword,linkgo from A where keyword='"&arr(i)&"' order by id desc"
rs.open sql,conn,3,3
if not rs.eof then
linkgo="<a href="&rs("linkgo")&" trade=_blank>"&rs("keyword")&"</a>"
content=replace(content,rs("keyword"),linkgo)
txtcontent= '正文内容
……
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select keyword,linkgo from linkword order by id desc"
rs.open sql,conn,3,3
do while not rs.eof
linkgo="<a href="&rs("linkgo")&" trade=_blank>"&rs("keyword")&"</a>"
txtcontent=replace(txtcontent,rs("keyword"),linkgo)
rs.movenext
loop
rs.close
set rs=nothing
……
<%=txtcontent%>