 |
|
訂閱
上一篇
返回
下一篇
PJBlog-2.5-增加隨機相關日誌連結
作者: nnickk 日期: 2006-04-12 21:21
注意：根據wbc的改法，應該是針對靜態日誌而已，下面已經有針對動態日誌的改法，兩者只能選擇其一。
靜態日誌改法：無隨機
1 打開 主目錄的 article.asp
找到最後一行
在其 上面 加入如下代碼
CODE:
2 打開 Template 目錄下的 Article.asp 文件
找到 （29行左右）
![""/]("images/tag.gif")
Tags: <$log_tag$>
在後面添加
CODE:
進入Blog的管理頁面---站點基本設置---初始化数据----重新生成所有日志到文件
確定
資料來源：wbc
---------------------------------------------------------------------------------------------------
動態日誌改法：
打開 class的 cls_article.asp
找到這一行
CODE:
在其 後面 加入如下代碼
CODE:
這樣就可以了，
相關日誌取樣規則，
每個tag隨機選取五則相關的日誌標題或日誌tag。
-----------------------------------------------
果真我還是很懶，
一百多篇，改tag會改到手軟，
修改為無tag自動隨機挑五則。
靜態日誌改法：無隨機
1 打開 主目錄的 article.asp
找到最後一行
在其 上面 加入如下代碼
CODE:
<%
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>
"
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行左右）
Tags: <$log_tag$>在後面添加
CODE:
<img src="images/tag.gif" style="margin:4px 2px -4px 0px" alt=""/><strong>相關日誌:</strong>
<div class="Content-body" id="wbc_tag"></div>
進入Blog的管理頁面---站點基本設置---初始化数据----重新生成所有日志到文件
確定
資料來源：wbc
---------------------------------------------------------------------------------------------------
動態日誌改法：
打開 class的 cls_article.asp
找到這一行
CODE:
<img src="images/tag.gif" style="margin:4px 2px -4px 0px" alt=""/><strong>Tags:</strong> <%=getTag.filterHTML(log_ViewArr(19,0))%>
在其 後面 加入如下代碼
CODE:
<!--相關日誌-->
<%
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_isdraft<>-1 and (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>
"
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&" and log_isdraft<>-1 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>
"
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>
<%=OutPut%>
<div class="Content-body" id="wbc_tag"></div>
<!--/相關日誌-->
這樣就可以了，
相關日誌取樣規則，
每個tag隨機選取五則相關的日誌標題或日誌tag。
-----------------------------------------------
果真我還是很懶，
一百多篇，改tag會改到手軟，
修改為無tag自動隨機挑五則。
引用通告地址:
廣告專區：
收入網摘
顯示Tag關聯文章
吃肯德基只要10元--2008-06-02~2008-08-31 (2008-08-04 22:51)
前言 (2008-07-13 20:47)
蕭敬騰台中簽唱會--70-300mm人像試拍 (2008-06-22 15:26)
歸燕。回巢 (2008-06-08 12:50)
媒體的力量 (2008-06-03 21:56)
笨狗又來了 (2008-05-24 07:52)
Yahoo奇摩輸入法--好打注音 (2008-05-16 00:09)
中國四川大地震的照片已經陸續出來了 (2008-05-13 21:17)
台中高雄高鐵高捷(高雄捷運)一日遊籌備事項 (2008-05-08 22:46)
扯～駕照上的照片不是我... (2008-05-08 22:34)
前言 (2008-07-13 20:47)
蕭敬騰台中簽唱會--70-300mm人像試拍 (2008-06-22 15:26)
歸燕。回巢 (2008-06-08 12:50)
媒體的力量 (2008-06-03 21:56)
笨狗又來了 (2008-05-24 07:52)
Yahoo奇摩輸入法--好打注音 (2008-05-16 00:09)
中國四川大地震的照片已經陸續出來了 (2008-05-13 21:17)
台中高雄高鐵高捷(高雄捷運)一日遊籌備事項 (2008-05-08 22:46)
扯～駕照上的照片不是我... (2008-05-08 22:34)
FF
 |
[quote=FF]好好好呢~~ 上次看到谁那里只有静态的改法~~ hoho看到动态的咯~ 晚上争取把它加上![/quote] 動態是我看wbc的方式修改的， 所以目前看到的動態改法， 應該都是從我這邊流出去的...^^ |
|
[quote=按下快乐键]静态和动态有什么区别? 我该使用静态还是动态? 请老大赐教,谢谢[/quote] 看你的日誌是靜態輸出還動態的呀... |
|
[quote=beau]大大 你我都是用動態的 雖然隨機日誌有成功 但是左下角有出現網頁發生錯誤的訊息 你我的都是一樣的情形喔 http://blog.bodhi.tw[/quote] 你說的錯誤訊息在哪呀？？ |
|
[quote=vivipa]大大，如果显示10条 怎么改？谢谢[/quote]
CODE: |
|
[quote=beau]如果你開啟一個日誌
在 IE 左下角會出現一個黃色三角形
裡頭有一個驚嘆號
你只要用滑鼠點那個三角形兩下
就可以看到錯誤訊息嚕
我看到的錯愈訊息是這樣
你跟我都是一樣的錯誤訊息
行: 173
字元: 1
錯誤: 'document.getElementById(......)' 是 null 或不是一個物件
程式碼: 0
URL: http://nnickk.com/blog/article.asp?id=167[/quote]
哦！
太久沒用IE了。
一行忘記刪掉，
CODE: |
發表評論
