生成模板页 用的标签 动态文件有 高手帮帮忙 谢谢了

功能主要就是根据id调出其对应的关键词

关键词以，号分开 给每个做个链接

链接地址是固定的 就把每个关键词&Server.URLEncode(str(i))到so.asp?keywords=就可以了

(rep(会根据0conn.asp文件中设置的屏蔽非法词

left(str(i),5是判断显示5个字 超的以....代替后面的

可以使用的动态文件

<%set rs=server.CreateObject("adodb.recordset")
sql="select * from detail where id="&request("id")&" "%>
<%rs.Open sql,conn,1,3
if not rs.eof and not rs.bof then%>
<span class="list_web">
<%if rs("gjc")="无" then%>
无
<%else%>
<%str=split(rep(rs("gjc")),",")%>
<%for i=0 to ubound(str)%>
<%if i<10 then%>
<a href="so.asp?keywords=<%=Server.URLEncode(str(i))%>" target="_blank"><%=left(str(i),5)%><%if

len(str(i))>5 then%>...<%end if%></a> 
<%end if%>
<%next%>
<%end if%>
</span>
<%end if%>

现在想 改成支持模板调用的标签

下面的目前提示成功，但是不能生成页面，如果把这段删掉就能生成了

set rs=server.CreateObject("adodb.recordset")
sql="select * gjc from detail where id="&request("id")&" "
rs.Open sql,conn,1,3
if not rs.eof and not rs.bof then

if rs("gjc")="无" then
gjcjt=gjcjt&"无"
else
str=split(rep(rs("gjc")),",")
for i=0 to ubound(str)
if i<10 then
gjcjt=gjcjt & "<a href=""so.asp?keywords="""&Server.URLEncode(str(i))&""" target=""_blank""> "&left(str(i),5)
if len(str(i)) > 5 then
gjcjt=gjcjt&"..." & "</a>"
else
gjcjt=gjcjt& "</a>"
end if
end if
next
end if

end if

rs.close
set rs=Nothing
wstr=replace(wstr,"<{{gjcjt}}>",gjcjt)

模板页我用的标签是<{{gjcjt}}> 恳请高手帮帮忙，万分感谢

这个代码主要是htm_wz.asp http://hi.baidu.com/%CC%D4%B1%A6%B5%BC%B9%BA%5F%C3%FB%C6%B7%B5%BC%B9%BA%CD%F8/blog/item/d5ae1bb6997f8c7e8ad4b21c.html

需要看0conn.asp

http://hi.baidu.com/%CC%D4%B1%A6%B5%BC%B9%BA%5F%C3%FB%C6%B7%B5%BC%B9%BA%CD%F8/blog/item/3e1090d81c5f9bd6b7fd481d.html

需要看mdb.asp

http://hi.baidu.com/%CC%D4%B1%A6%B5%BC%B9%BA%5F%C3%FB%C6%B7%B5%BC%B9%BA%CD%F8/blog/item/931bfac51aa85ad1d000601e.html

多谢了，有劳了，祝好人好运，一生幸福~