生成模板页 用的标签 动态文件有 高手帮帮忙 谢谢了
功能主要就是根据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
多谢了,有劳了,祝好人好运,一生幸福~