PJBlog-2.6-增強今日統計及運行天數顯示的修改

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
找

改成


找

改成


好了，
今日人數不愚人了。

PS：
因為我的版本已經改的面目全非了，
所以這是我想像原始未改前的樣子，
所以上面的程式碼沒實際測試過，
可能會有筆誤的地方，
有問題歡迎提出，
感謝。