 |
|
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自動隨機挑五則。
標籤: pjblog
PJBlog-2.5-友情鏈接功能增強插件修正 V1.0 Beta
作者:nnickk 日期:2006-04-03 23:01
PJBLOG 友情鏈接功能增強插件 V1.0 Beta
插件名稱: PJBLOG 友情鏈接功能增強插件 V1.0 Beta
插件作者: 番茄紅了
完成時間: 2006/03/14
演示地址: http://www.tblog.com.cn
聯繫方式: aultoale##gmail.com
適用版本: PJBLOG 所有版本
主要功能:
1、增強了後台管理操作，對所有鏈接批量操作(删除、驗證、置頂、分類等)
2、增加了鏈接分類功能
3、增加了鏈接排序功能，可按鏈接名稱長度、加入順序進行自動排序，或選擇反向排序
4、增加了網站簡介功能，可輸入200字符長度的簡介信息
5、可自定爲列表或滾動顯示，並可設置滾動速度及高度
6、修正新申請鏈接無法分配正確序號的錯誤
7、通過Update文件，輕鬆升級數據庫
8、在不影響原PJBLOG數據庫的前提下，可自由選擇使用插件或系統内置鏈接功能
使用方法:
1、下載插件後，將BlogLinks目錄解壓到根目錄下的Plugins目錄下；
2、將壓縮包内的update.asp解壓到根目錄下；
3、在瀏覽器地址欄輸入：http://你的域名/update.asp，然後運行該升級程序；
4、確認成功升級數據庫後請删除update.asp；
5、登錄進入後台找到名爲『友情鏈接功能增強插件 V1.0 Beta』的插件，安裝；
6、進入插件配置-->高級設置，爲該插件配置相關設置
FAQ:
問：導航欄菜單過長，我想讓他變短，如何設置？
答：進入管理後台-->日志分類管理-->，找到插件標題，修改即可。
問：我想在首頁顯示鏈接時，下方顯示 查看更多鏈接，該如何設置鏈接？
答：進入管理後台-->界面與插件-->設置模版-->，找到標識爲BlogLinksSubItem1的選項，點擊編輯HTML源代碼，輸入如下内容即可：
CODE:
此版已修正此行錯誤，請安心下載。
CODE:
修改為
CODE:
點擊下載此文件
http://blog.nnickk.com/attachments/month_0604/x2006438053.rar
插件名稱: PJBLOG 友情鏈接功能增強插件 V1.0 Beta
插件作者: 番茄紅了
完成時間: 2006/03/14
演示地址: http://www.tblog.com.cn
聯繫方式: aultoale##gmail.com
適用版本: PJBLOG 所有版本
主要功能:
1、增強了後台管理操作，對所有鏈接批量操作(删除、驗證、置頂、分類等)
2、增加了鏈接分類功能
3、增加了鏈接排序功能，可按鏈接名稱長度、加入順序進行自動排序，或選擇反向排序
4、增加了網站簡介功能，可輸入200字符長度的簡介信息
5、可自定爲列表或滾動顯示，並可設置滾動速度及高度
6、修正新申請鏈接無法分配正確序號的錯誤
7、通過Update文件，輕鬆升級數據庫
8、在不影響原PJBLOG數據庫的前提下，可自由選擇使用插件或系統内置鏈接功能
使用方法:
1、下載插件後，將BlogLinks目錄解壓到根目錄下的Plugins目錄下；
2、將壓縮包内的update.asp解壓到根目錄下；
3、在瀏覽器地址欄輸入：http://你的域名/update.asp，然後運行該升級程序；
4、確認成功升級數據庫後請删除update.asp；
5、登錄進入後台找到名爲『友情鏈接功能增強插件 V1.0 Beta』的插件，安裝；
6、進入插件配置-->高級設置，爲該插件配置相關設置
FAQ:
問：導航欄菜單過長，我想讓他變短，如何設置？
答：進入管理後台-->日志分類管理-->，找到插件標題，修改即可。
問：我想在首頁顯示鏈接時，下方顯示 查看更多鏈接，該如何設置鏈接？
答：進入管理後台-->界面與插件-->設置模版-->，找到標識爲BlogLinksSubItem1的選項，點擊編輯HTML源代碼，輸入如下内容即可：
CODE:
$BlogLinksShow$
<p align=""right""><a href="http://blog.nnickk.com/admin/%22LoadMod.asp?plugins=BlogLinks"">申請︱查看更多鏈接</a></p>
此版已修正此行錯誤，請安心下載。
CODE:
ClassName=" <div>&LnkClass("ClassName")&"</div>"
修改為
CODE:
ClassName=" <div>"&LnkClass("ClassName")&"</div>"
點擊下載此文件
http://blog.nnickk.com/attachments/month_0604/x2006438053.rar
PJBlog-2.5-讀取網站資料時出現「頁面正在載入中 ...」滾動條框
作者:nnickk 日期:2006-03-30 12:01
PJBlog-2.5-搜尋漏洞補強
作者:nnickk 日期:2006-03-30 09:36
請大家在自己的PJBlog的搜尋裡，
搜尋這個字串看看，
很有意思吧！
看來是該強化search，擋所有的語法，
新增一個檔案
chtml.asp
檔案內容
CODE:
接著修改
search.asp這個檔案，
在第五行加入
找
改成
不好意思，
先前的版本犯了個錯誤，
用Server.HTMLEncode會去使用伺服器內件的函數，
所以伺服器不同會有差異。
改成HTMLEncode，
就會抓我設定的函數，
中文字就可以搜尋了，
不過，
我記得在asp.net底下會出錯，
有出現問題的歡迎提出。
好了，
一般語法的攻擊，
應該都可以避免了。
也可以抓我的檔案覆蓋就行。
[down=attachments/month_0603/k2006329223419.rar]點擊下載此文件[/down]
搜尋這個字串看看，
很有意思吧！
看來是該強化search，擋所有的語法，
新增一個檔案
chtml.asp
檔案內容
CODE:
Function HTMLEncode(fString)
If Not IsNull(fString) And fString <> "" Then
fString = Replace(fString, "&", "&")
fString = Replace(fString, ">", ">")
fString = Replace(fString, "<", "<")
fString = Replace(fString, Chr(32), " ")
fString = Replace(fString, Chr(9), " ")
fString = Replace(fString, Chr(34), """)
fString = Replace(fString, Chr(39), "'")
fString = Replace(fString, Chr(13), "")
fString = Replace(fString, Chr(10) & Chr(10), "</P><P>")
fString = Replace(fString, Chr(10), "
")
fString = Replace(fString, Chr(255), " ")
HTMLEncode = fString
End If
End Function
接著修改
search.asp這個檔案，
在第五行加入
找
SearchContent=CheckStr(Request.QueryString("SearchContent"))
改成
SearchContent=CheckStr(HTMLEncode(Request.QueryString("SearchContent")))
不好意思，
先前的版本犯了個錯誤，
用Server.HTMLEncode會去使用伺服器內件的函數，
所以伺服器不同會有差異。
改成HTMLEncode，
就會抓我設定的函數，
中文字就可以搜尋了，
不過，
我記得在asp.net底下會出錯，
有出現問題的歡迎提出。
好了，
一般語法的攻擊，
應該都可以避免了。
也可以抓我的檔案覆蓋就行。
[down=attachments/month_0603/k2006329223419.rar]點擊下載此文件[/down]
標籤: pjblog
PJBlog-2.5-投票插件v1.1繁體版
作者:nnickk 日期:2006-03-30 01:36
投票插件v1.1 係針對 PJBlogv2.5 開發，
有更加人性化，集成於BLOG中的管理介面，
安裝使用方便，亂碼問題已完全解決，並適合多語言顯示。
前臺 FLASH 顯示內容完全根據文檔大小適應，
本插件目錄下附 FLASH 原始檔案，
大家要修改插件大小可以直接修改 FLASH 檔案大小就可以了，
然後在插件基本設置中設置顯示大小。
大小調整說明：
可以直接調整原始檔案的文檔寬度，然後產生 SWF，替換掉 flashvote.swf，並在基本設置中將大小調整為對應寬度，直接調整寬度，高度也可以，就是 flash 經縮放後顯示有可能有點誤差，祝大家使用愉快！
之前安裝一直出錯，
一直以為是編碼的關係，
後來看到繁體站台也有人安裝，
那就一定不是語系的問題，
突然一股無名火，給惹毛了，
好吧...flash嘛...裝就裝，
裝上Flash8之後，
開原始檔測了一下，
原來是路徑上的問題，
把路徑修改了一下就好了。
[down=attachments/month_0603/p2006329103613.rar]點擊下載此文件[/down]
此版為原始繁體版+修改三處繁體（總投票數、複選、單選）
有更加人性化，集成於BLOG中的管理介面，
安裝使用方便，亂碼問題已完全解決，並適合多語言顯示。
前臺 FLASH 顯示內容完全根據文檔大小適應，
本插件目錄下附 FLASH 原始檔案，
大家要修改插件大小可以直接修改 FLASH 檔案大小就可以了，
然後在插件基本設置中設置顯示大小。
大小調整說明：
可以直接調整原始檔案的文檔寬度，然後產生 SWF，替換掉 flashvote.swf，並在基本設置中將大小調整為對應寬度，直接調整寬度，高度也可以，就是 flash 經縮放後顯示有可能有點誤差，祝大家使用愉快！
之前安裝一直出錯，
一直以為是編碼的關係，
後來看到繁體站台也有人安裝，
那就一定不是語系的問題，
突然一股無名火，給惹毛了，
好吧...flash嘛...裝就裝，
裝上Flash8之後，
開原始檔測了一下，
原來是路徑上的問題，
把路徑修改了一下就好了。
[down=attachments/month_0603/p2006329103613.rar]點擊下載此文件[/down]
此版為原始繁體版+修改三處繁體（總投票數、複選、單選）
標籤: pjblog
PJBlog-2.5-外掛-在線人員名單（繁體）
作者:nnickk 日期:2006-03-29 23:56
PJBlog-2.6-增強今日統計及運行天數顯示的修改
作者:nnickk 日期:2006-03-29 23:44
2006/11/05 修改可適用於2.6
2006/07/05 新增昨日日訪問數
PJBLOG增強今日統計及運行天數顯示的修改
增加了今日日志數/今日評論數/今日留言數/今日訪問數/運行天數的統計顯示，並加上相關提示。
效果可以看我的首頁側邊的統計處。有興趣的朋友可以參考以下方法修改。
1、以管理員身份進入BLOG管理頁面——界面與插件——設置模塊，編輯BlogInfo模塊的HTML代碼
將其替換成
日誌: 今日$Today_blog_LogNums$篇，總計$blog_LogNums$篇
評論: 今日$Today_blog_CommNums$篇，總計$blog_CommNums$篇
留言: 今日$Today_MessageNums$篇，總計$blog_MessageNums$篇
引用: 今日$Today_blog_TbCount$篇，總計$blog_TbCount$篇
會員: 線上$blog_OnlineNums$人，總會員$blog_MemNums$人
昨日訪問: $Yesterday_VisitNums$人次
今日訪問: $Today_VisitNums$人次
總訪問數: $blog_VisitNums$人次
運行天數: $blog_RunDays$天
建站日期: 2006-10-01
之後保存HTML代碼即可。
2、打開commonlibrary.asp，找到
'**********************************************
'輸出日志統計信息
'**********************************************
function info_code(str)
dim vOnline
vOnline=getOnline
str=replace(str,"$blog_LogNums$",blog_LogNums)
str=replace(str,"$blog_CommNums$",blog_CommNums)
str=replace(str,"$blog_TbCount$",blog_TbCount)
str=replace(str,"$blog_MessageNums$",blog_MessageNums)
str=replace(str,"$blog_MemNums$",blog_MemNums)
str=replace(str,"$blog_VisitNums$",blog_VisitNums)
str=replace(str,"$blog_OnlineNums$",vOnline)
在下面加上
'今日評論數
str=replace(str,"$Today_blog_CommNums$",Conn.ExeCute("Select COUNT(comm_ID) FROM blog_Comment Where Year(comm_PostTime)=Year(Now) and Month(comm_PostTime)=Month(Now) and Day(comm_PostTime)=Day(Now)")(0))
'今日日志數
str=replace(str,"$Today_blog_LogNums$",Conn.ExeCute("Select COUNT(log_ID) FROM blog_Content Where Year(log_PostTime)=Year(Now) and Month(log_PostTime)=Month(Now) and Day(log_PostTime)=Day(Now)")(0))
'今日留言數
str=replace(str,"$Today_MessageNums$",Conn.ExeCute("Select COUNT(book_id) FROM blog_book Where Year(book_PostTime)=Year(Now) and Month(book_PostTime)=Month(Now) and Day(book_PostTime)=Day(Now)")(0))
'今日引用數
str=replace(str,"$Today_blog_TbCount$",Conn.ExeCute("Select COUNT(tb_ID) FROM blog_Trackback Where Year(tb_PostTime)=Year(Now) and Month(tb_PostTime)=Month(Now) and Day(tb_PostTime)=Day(Now)")(0))
'昨日訪問數
dim nk_tmp_date,Yesterday_VisitNums
nk_tmp_date=Dateadd("h",-24,Now)
str=replace(str,"$Yesterday_VisitNums$",Conn.ExeCute("Select COUNT(coun_ID) FROM blog_Counter Where Year(coun_Time)="&Year(nk_tmp_date)&" and Month(coun_Time)="&Month(nk_tmp_date)&" and Day(coun_Time)="&Day(nk_tmp_date)&"")(0))
'今日訪問數
str=replace(str,"$Today_VisitNums$",Conn.ExeCute("Select COUNT(coun_ID) FROM blog_Counter Where Year(coun_Time)=Year(Now) and Month(coun_Time)=Month(Now) and Day(coun_Time)=Day(Now)")(0))
'運行天數統計
str=replace(str,"$blog_RunDays$",DateDiff ("d","2006-10-01 ",date))
然後保存，上傳到服務器。
注：以上方式僅供參考，請在修改前備份相關文件和信息。如果其他問題可留言！
-------------------------------------------------------------------------------------------
有出現今日人數一直為0者才參考！！
-------------------------------------------------------------------------------------------
在2006年4月1日出錯了，
今天是愚人節，
但一點也不愚人，
他真的出錯了，來吧！
開始除蟲吧！
打開common/checkuser.asp
找
CODE:
改成
CODE:
找
CODE:
改成
CODE:
好了，
今日人數不愚人了。
PS：
因為我的版本已經改的面目全非了，
所以這是我想像原始未改前的樣子，
所以上面的程式碼沒實際測試過，
可能會有筆誤的地方，
有問題歡迎提出，
感謝。
2006/07/05 新增昨日日訪問數
PJBLOG增強今日統計及運行天數顯示的修改
增加了今日日志數/今日評論數/今日留言數/今日訪問數/運行天數的統計顯示，並加上相關提示。
效果可以看我的首頁側邊的統計處。有興趣的朋友可以參考以下方法修改。
1、以管理員身份進入BLOG管理頁面——界面與插件——設置模塊，編輯BlogInfo模塊的HTML代碼
將其替換成
日誌: 今日$Today_blog_LogNums$篇，總計$blog_LogNums$篇
評論: 今日$Today_blog_CommNums$篇，總計$blog_CommNums$篇
留言: 今日$Today_MessageNums$篇，總計$blog_MessageNums$篇
引用: 今日$Today_blog_TbCount$篇，總計$blog_TbCount$篇
會員: 線上$blog_OnlineNums$人，總會員$blog_MemNums$人
昨日訪問: $Yesterday_VisitNums$人次
今日訪問: $Today_VisitNums$人次
總訪問數: $blog_VisitNums$人次
運行天數: $blog_RunDays$天
建站日期: 2006-10-01
之後保存HTML代碼即可。
2、打開commonlibrary.asp，找到
'**********************************************
'輸出日志統計信息
'**********************************************
function info_code(str)
dim vOnline
vOnline=getOnline
str=replace(str,"$blog_LogNums$",blog_LogNums)
str=replace(str,"$blog_CommNums$",blog_CommNums)
str=replace(str,"$blog_TbCount$",blog_TbCount)
str=replace(str,"$blog_MessageNums$",blog_MessageNums)
str=replace(str,"$blog_MemNums$",blog_MemNums)
str=replace(str,"$blog_VisitNums$",blog_VisitNums)
str=replace(str,"$blog_OnlineNums$",vOnline)
在下面加上
'今日評論數
str=replace(str,"$Today_blog_CommNums$",Conn.ExeCute("Select COUNT(comm_ID) FROM blog_Comment Where Year(comm_PostTime)=Year(Now) and Month(comm_PostTime)=Month(Now) and Day(comm_PostTime)=Day(Now)")(0))
'今日日志數
str=replace(str,"$Today_blog_LogNums$",Conn.ExeCute("Select COUNT(log_ID) FROM blog_Content Where Year(log_PostTime)=Year(Now) and Month(log_PostTime)=Month(Now) and Day(log_PostTime)=Day(Now)")(0))
'今日留言數
str=replace(str,"$Today_MessageNums$",Conn.ExeCute("Select COUNT(book_id) FROM blog_book Where Year(book_PostTime)=Year(Now) and Month(book_PostTime)=Month(Now) and Day(book_PostTime)=Day(Now)")(0))
'今日引用數
str=replace(str,"$Today_blog_TbCount$",Conn.ExeCute("Select COUNT(tb_ID) FROM blog_Trackback Where Year(tb_PostTime)=Year(Now) and Month(tb_PostTime)=Month(Now) and Day(tb_PostTime)=Day(Now)")(0))
'昨日訪問數
dim nk_tmp_date,Yesterday_VisitNums
nk_tmp_date=Dateadd("h",-24,Now)
str=replace(str,"$Yesterday_VisitNums$",Conn.ExeCute("Select COUNT(coun_ID) FROM blog_Counter Where Year(coun_Time)="&Year(nk_tmp_date)&" and Month(coun_Time)="&Month(nk_tmp_date)&" and Day(coun_Time)="&Day(nk_tmp_date)&"")(0))
'今日訪問數
str=replace(str,"$Today_VisitNums$",Conn.ExeCute("Select COUNT(coun_ID) FROM blog_Counter Where Year(coun_Time)=Year(Now) and Month(coun_Time)=Month(Now) and Day(coun_Time)=Day(Now)")(0))
'運行天數統計
str=replace(str,"$blog_RunDays$",DateDiff ("d","2006-10-01 ",date))
然後保存，上傳到服務器。
注：以上方式僅供參考，請在修改前備份相關文件和信息。如果其他問題可留言！
-------------------------------------------------------------------------------------------
有出現今日人數一直為0者才參考！！
-------------------------------------------------------------------------------------------
在2006年4月1日出錯了，
今天是愚人節，
但一點也不愚人，
他真的出錯了，來吧！
開始除蟲吧！
打開common/checkuser.asp
找
CODE:
Conn.ExeCute("update [blog_Counter] set coun_Time=#"&now()&"#,coun_IP='"&Guest_IP&"',coun_OS='"&Guest_Browser(1)&"',coun_Browser='"&Guest_Browser(0)&"',coun_Referer='"&HTMLEncode(CheckStr(Guest_Refer))&"' where coun_ID="&tmpLC)
改成
CODE:
Conn.ExeCute("update [blog_Counter] set coun_Time=#"&DateToStr(now(),"Y-m-d H:I:S")&"#,coun_IP='"&Guest_IP&"',coun_OS='"&Guest_Browser(1)&"',coun_Browser='"&Guest_Browser(0)&"',coun_Referer='"&HTMLEncode(CheckStr(Guest_Refer))&"' where coun_ID="&tmpLC)
找
CODE:
Conn.ExeCute("Insert INTO blog_Counter(coun_IP,coun_OS,coun_Browser,coun_Referer) VALUES ('"&Guest_IP&"','"&Guest_Browser(1)&"','"&Guest_Browser(0)&"','"&HTMLEncode(CheckStr(Guest_Refer))&"')")
改成
CODE:
Conn.ExeCute("Insert INTO blog_Counter(coun_IP,coun_OS,coun_Browser,coun_Referer,coun_time) VALUES ('"&Guest_IP&"','"&Guest_Browser(1)&"','"&Guest_Browser(0)&"','"&HTMLEncode(CheckStr(Guest_Refer))&"','"&DateToStr(now(),"Y-m-d H:I:S")&"')")
好了，
今日人數不愚人了。
PS：
因為我的版本已經改的面目全非了，
所以這是我想像原始未改前的樣子，
所以上面的程式碼沒實際測試過，
可能會有筆誤的地方，
有問題歡迎提出，
感謝。
PJBlog-2.5-修正會員自己發表的文章，自己無法修改、刪除
作者:nnickk 日期:2006-03-16 16:15
修改blogedit.asp
找
CODE:
在這一行的上面增加這一行程式碼
CODE:
ok...現在會員發表的文章，
可以自己刪除、修改了。
找
CODE:
if stat_EditAll or (stat_Edit and lArticle.logAuthor = memName) Then%>
在這一行的上面增加這一行程式碼
CODE:
lArticle.getLog(logid)
ok...現在會員發表的文章，
可以自己刪除、修改了。
標籤: pjblog
重裝PJBLOG系統應該備份的文件
作者:nnickk 日期:2006-03-13 14:03
PJBlog-2.5-讓上方及側邊分類選單開新視窗
作者:nnickk 日期:2006-02-17 16:43
簡單的方式
在後台--日誌分類管理--外部連結
CODE:
複雜的方式
這邊是以"相簿"為例
common/cache.asp
上方分類選單修改：
找
CODE:
會有兩個一模一樣，
取第二個，第一個不用改。
換成
CODE:
下方分類選單修改：
找
CODE:
一樣會有兩個一模一樣，
取第二個，第一個不用改。
換成
CODE:
在後台--日誌分類管理--外部連結
CODE:
javascript: open('http://nnickk.com'); void 1
複雜的方式
這邊是以"相簿"為例
common/cache.asp
上方分類選單修改：
找
CODE:
Response.Write("<li><a class=""menuA"" href="""&Arr_Category(5,i)&""" title="""&Arr_Category(3,i)&""">"&Arr_Category(1,i)&"</a></li>")
會有兩個一模一樣，
取第二個，第一個不用改。
換成
CODE:
if Arr_Category(1,i)="相簿" then
Response.Write("<li><a class=""menuA"" href="""&Arr_Category(5,i)&""" target=""_blank"" title="""&Arr_Category(3,i)&""">"&Arr_Category(1,i)&"</a></li>")
else
Response.Write("<li><a class=""menuA"" href="""&Arr_Category(5,i)&""" title="""&Arr_Category(3,i)&""">"&Arr_Category(1,i)&"</a></li>")
end if
下方分類選單修改：
找
CODE:
Category_code=Category_code&("<img src="""&Arr_Category(6,i)&""" border=""0"" style=""margin:3px 4px -4px 0px;"" alt="""&Arr_Category(3,i)&"""/><a class=""CategoryA"" href="""&Arr_Category(5,i)&""" title="""&Arr_Category(3,i)&""">"&Arr_Category(1,i)&"</a>
")
一樣會有兩個一模一樣，
取第二個，第一個不用改。
換成
CODE:
if Arr_Category(1,i)="相簿" then
Category_code=Category_code&("<img src="""&Arr_Category(6,i)&""" border=""0"" style=""margin:3px 4px -4px 0px;"" alt="""&Arr_Category(3,i)&"""/><a class=""CategoryA"" href="""&Arr_Category(5,i)&""" target=""_blank"" title="""&Arr_Category(3,i)&""">"&Arr_Category(1,i)&"</a>
")
else
Category_code=Category_code&("<img src="""&Arr_Category(6,i)&""" border=""0"" style=""margin:3px 4px -4px 0px;"" alt="""&Arr_Category(3,i)&"""/><a class=""CategoryA"" href="""&Arr_Category(5,i)&""" title="""&Arr_Category(3,i)&""">"&Arr_Category(1,i)&"</a>
")
end if
