簡介 ： 根據tag 在頁面顯示出相關 的 日誌
演示 ： http://wbc.bkkss.com
備註 ： 本站之前的Post少用Tag。為了演示，只在部分Post添加了Tag。所以演示顯示可能不是所有相關的貼。
==============================
1 打開
主目錄的 article.asp
找到最後一行
复制内容到剪贴板
代码:
<!--#include file="footer.asp" -->在其
上面 加入如下代碼
复制内容到剪贴板
代码:
<%
Dim wbc_tag,Rs,i,RsT,OutPut,i2 '加入了i2
Set Rs=conn.execute("Select * from blog_Content where log_ID="&id&"")
OutPut=""
if not rs.eof then
wbc_tag=rs("log_tag")
if wbc_tag<>"" then
wbc_tag=split(wbc_tag,"}")
i=0
i2=0 '初始化i2
DO until i>Ubound(wbc_tag)
Set RsT=conn.execute("Select log_Title,log_id,log_ViewNums from blog_Content where log_tag like '%"&wbc_tag(i)&"}%' and log_ID<>"&id&" and log_IsDraft=False order by log_PostTime desc")
if not RsT.eof then
Do until Rst.eof or i2=10 '這裡添加"or i2" 設置顯示最大數目
If instr(OutPut,RsT(0))=0 and wbc_tag(i)<>"" then
i2=i2+1 'i2遞加
OutPut=OutPut&" <font face='Wingdings'>n</font> <a href='article.asp?id="&RsT(1)&"'>"&RsT(0)&"["&RsT(2)&"]</a><br>"
End if
Rst.movenext
Loop
End if
i=i+1
Loop
End if
End if
OutPut=replace(OutPut,chr(39),chr(34))
response.Write "<script>document.getElementById('wbc_tag').innerHTML='"&OutPut&"'</script>"
Set rs=nothing
%>--------------------------------------
2 打開 Template 目錄下的 Article.asp 文件
找到 （29行左右）
复制内容到剪贴板
代码:
<img src="images/tag.gif" style="margin:4px 2px -4px 0px" alt=""/><strong>Tags:</strong> <$log_tag$><br/>在後面添加
复制内容到剪贴板
代码:
<img src="images/tag.gif" style="margin:4px 2px -4px 0px" alt=""/><strong>相關日誌:</strong><br/>
<div class="Content-body" id="wbc_tag"></div><br/>--------------------------------------
选中 保存日志输出静态asp文件
進入Blog的管理頁面---站點基本設置---初始化数据
重建数据缓存
重新统计网站数据
重新生成所有日志到文件 (这个过程可能会花很长时间,由你的日志数量来决定)
清除访客记录
全選把。。。確定
-----------------------------------
搞定！！！！
有問題MSN:wbc@bkkss.com
不喜歡的不要踩！！！
///////////////////////////////////////////////////////////////////////////////////////////
=======================================
排出草稿 ： 多謝samuelng 提示。
=======================================
[
本帖最后由 嵘心天涯 于 2006-12-7 19:54 编辑 ]
![[PJblog^3]技术支持论坛 - PJBLOG SUPPORT FORUM](images/phpwind/logo.gif){kind=logo}
