PJBlog-2.5-增加随机相关日志链接(静态、动态分别改法)

时间:06-04-13 栏目:网络&技术 作者:wukong 评论:6 点击: 2,769 次

随机相关日志链接

注意:根據wbc的改法,應該是針對靜態日誌而已,下面已經有針對動態日誌的改法,兩者只能選擇其一。
先看效果:

靜態日誌改法:無隨機
1 打開 主目錄的 article.asp

找到最後一行

程序代碼 程序代碼
<!--#include file="footer.asp" -->

在其 上面 加入如下代碼

程序代碼 程序代碼
<%
Dim wbc_tag,Rs,i,RsT,OutPut
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
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&" order by log_PostTime desc")
if not RsT.eof then
Do until Rst.eof
If instr(OutPut,RsT(0))=0 and wbc_tag(i)<>"" then
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/>

進入Blog的管理頁面---站點基本設置---初始化数据----重新生成所有日志到文件
確定

資料來源:wbc

---------------------------------------------------------------------------------------------------

動態日誌改法
打開 class的 cls_article.asp

找到這一行

程序代碼 程序代碼
<img src="images/tag.gif" style="margin:4px 2px -4px 0px" alt=""/><strong>Tags:</strong> <%=getTag.filterHTML(log_ViewArr(19,0))%><br/>

在其 後面 加入如下代碼

程序代碼 程序代碼
<!--相關日誌-->
<%
Dim wbc_tag,nnickk_tag,Rs,i,RsT,OutPut
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<>empty then
wbc_tag=replace(wbc_tag,"{","")
wbc_tag=split(wbc_tag,"}")
i=0
DO until i>Ubound(wbc_tag)

nnickk_tag=""
if wbc_tag(i)<>empty then
Set Rs=conn.execute("Select * from blog_tag where tag_ID="&wbc_tag(i)&"")
if not rs.eof then
nnickk_tag=rs("tag_name")
end if
end if

Randomize
Set RsT=conn.execute("Select TOP 5 log_Title,log_id,log_ViewNums from blog_Content where (log_tag like '%"&wbc_tag(i)&"%' or log_title like '%"&nnickk_tag&"%') and log_ID<>"&id&" order by Rnd(-(log_id+"&Rnd()&"))")
if not RsT.eof then
Do until Rst.eof
If instr(OutPut,RsT(0))=0 and wbc_tag(i)<>"" then
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

if output="" then
Randomize
Set RsT=conn.execute("Select TOP 5 log_Title,log_id,log_ViewNums from blog_Content where log_ID<>"&id&" order by Rnd(-(log_id+"&Rnd()&"))")
if not RsT.eof then
Do until Rst.eof
If instr(OutPut,RsT(0))=0 then
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
end if
End if
OutPut=replace(OutPut,chr(39),chr(34))
Set rs=nothing
%>
<img src="images/tag.gif" style="margin:4px 2px -4px 0px" alt=""/><strong>相關日誌:</strong><br/>
<%=OutPut%>
<div class="Content-body" id="wbc_tag"></div><br/>
<!--/相關日誌-->

這樣就可以了,
相關日誌取樣規則,
每個tag隨機選取五則相關的日誌標題或日誌tag。
-----------------------------------------------
果真我還是很懶,
一百多篇,改tag會改到手軟,
修改為無tag自動隨機挑五則。

声明: 本文由( wukong )原创编译,转载请保留链接: PJBlog-2.5-增加随机相关日志链接(静态、动态分别改法)

PJBlog-2.5-增加随机相关日志链接(静态、动态分别改法):目前有6 条留言

  1. 6�
    wubc:

    防止过多(限制显示数目)
    wbc.bkkss.com/article.asp?id=102

    2006-04-14 11:44 上午
  2. 5�
    amicc:

    谢谢,我好像,在显示几条的地方 改成15就显示15条了。有两处地方。

    2006-04-14 12:17 下午
  3. 4�
    thw:

    相关日志好象不分页啊!!

    2006-10-14 11:32 下午
  4. 地板
    evazhang:

    你好,我想请问一下,我按照动态日志的改法是可以成功出现相关日志,但是会出现两个问题,一是整个相关日志是居中的,非常不好看,还有就是如何限制显示日志的条数?
    麻烦你了!

    2006-12-20 8:05 下午
  5. 板凳
    过客:

    用用试先

    2007-03-03 8:43 下午
  6. 沙发
    过客:

    在出现相关日志后下面还出现了"正在加载数据,请稍等……",不知道怎么解决!??

    2007-07-08 8:54 上午

发表评论

您必须 [ 登录 ] 才能发表留言!

------====== 本站公告 ======------
大家有任何疑问和建议,请到这里留言:点击留言板

读者排行