![]() |
|
PJblog2.6--挪用前50大Tag插件
作者:nnickk 日期:2006-09-14 14:07
將前50個Tag放置頂部,
曾經有過一兩位朋友要求釋出,
但礙於介於版本轉換時期,遲遲沒有釋出,
今天整理了一下,
此插件及修改方式,僅於PJblog2.6繁體版測試過,
其他版本及語系請自行測試。
效果請見本站首頁。
轉載者請註名本連結位置,謝謝。
一、完全沒有修改過common/cache.asp及function.asp的人。
[down=attachments/month_0609/k2006913225925.rar]點選下載此文件[/down]
1.下載檔案,解壓縮,將檔案複製到pjblog裡。
2.進管理後端--介面與插件--安裝模組插件--安裝nnickk_tag
3.回首頁看效果。
二、不確定沒有修改過common/cache.asp及function.asp的人。
[down=attachments/month_0609/5200691323143.rar]點選下載此文件[/down]
1.
修改 common/function.asp
在檔案末端加上
<%
function getTagSize(c)
dim i
for i=1 to 10
if int(c) getTagSize=12+i
exit function
end if
next
getTagSize=22
end function
%>
儲存,關閉。
2.
修改 common/cache.asp
331行左右找
Set log_Tags=Conn.Execute("Select tag_id,tag_name,tag_count FROM blog_tag")
改成
Set log_Tags=Conn.Execute("Select tag_id,tag_name,tag_count FROM blog_tag order by tag_count desc, tag_id desc")
3.
將nnickk_tag資料夾複製到Plugins資料夾裡
4.
進管理後端--介面與插件--安裝模組插件--安裝nnickk_tag
5.
回首頁看效果。
曾經有過一兩位朋友要求釋出,
但礙於介於版本轉換時期,遲遲沒有釋出,
今天整理了一下,
此插件及修改方式,僅於PJblog2.6繁體版測試過,
其他版本及語系請自行測試。
效果請見本站首頁。
轉載者請註名本連結位置,謝謝。
一、完全沒有修改過common/cache.asp及function.asp的人。
[down=attachments/month_0609/k2006913225925.rar]點選下載此文件[/down]
1.下載檔案,解壓縮,將檔案複製到pjblog裡。
2.進管理後端--介面與插件--安裝模組插件--安裝nnickk_tag
3.回首頁看效果。
二、不確定沒有修改過common/cache.asp及function.asp的人。
[down=attachments/month_0609/5200691323143.rar]點選下載此文件[/down]
1.
修改 common/function.asp
在檔案末端加上
<%
function getTagSize(c)
dim i
for i=1 to 10
if int(c) getTagSize=12+i
exit function
end if
next
getTagSize=22
end function
%>
儲存,關閉。
2.
修改 common/cache.asp
331行左右找
Set log_Tags=Conn.Execute("Select tag_id,tag_name,tag_count FROM blog_tag")
改成
Set log_Tags=Conn.Execute("Select tag_id,tag_name,tag_count FROM blog_tag order by tag_count desc, tag_id desc")
3.
將nnickk_tag資料夾複製到Plugins資料夾裡
4.
進管理後端--介面與插件--安裝模組插件--安裝nnickk_tag
5.
回首頁看效果。
修復PJblog2一處SQL過濾不嚴漏洞--修復tag錯誤
作者:nnickk 日期:2006-06-29 15:27
消息來源大陸官方網站。
修改common/function.asp
找 Function CheckStr(byVal ChkStr)
在 Str = Replace(Str,"""",""") 的後面多加一句 Str = Replace(Str,",",",")
找 Function UnCheckStr(ByVal Str)
在 Str = Replace(Str,""","""") 的後面多加一句 Str = Replace(Str,",",",")
此修改會造成新增、修改tag產生錯誤,
需一併修改class/cls_logaction.asp
找
tempTags=Split(CheckStr(logTags),",")
改成
tempTags=Split(logTags,",")
一共有兩處地方。
修改common/function.asp
找 Function CheckStr(byVal ChkStr)
在 Str = Replace(Str,"""",""") 的後面多加一句 Str = Replace(Str,",",",")
找 Function UnCheckStr(ByVal Str)
在 Str = Replace(Str,""","""") 的後面多加一句 Str = Replace(Str,",",",")
此修改會造成新增、修改tag產生錯誤,
需一併修改class/cls_logaction.asp
找
tempTags=Split(CheckStr(logTags),",")
改成
tempTags=Split(logTags,",")
一共有兩處地方。
tag標籤開放計畫
作者:nnickk 日期:2006-04-27 14:52
- 1




