 |
|
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
PJBlog-2.5-解決somee空間發表評論時間判斷問題
作者:nnickk 日期:2006-02-12 01:18
日期的格式一直對不準，
改採用取時間的絕對值來比較。
改blogcomm.asp
CODE:
CODE:
改採用取時間的絕對值來比較。
改blogcomm.asp
CODE:
if abs(DateDiff("s",CDate(Request.Cookies(CookieName)("memLastPost")),time()))< blog_commTimerout then
ReInfo(0)="評論發表錯誤訊息"&CDate(Request.Cookies(CookieName)("memLastPost"))
ReInfo(1)="<b>發言太快,請 "&blog_commTimerout&" 秒後再發表評論</b>
<a href=""javascript:history.go(-1);"">返回</a>"&time()
ReInfo(2)="WarningIcon"
postcomm=ReInfo
exit function
end if
Response.Cookies(CookieName)("memLastpost")=time()
PJBlog-2.5-回覆的留言內縮
作者:nnickk 日期:2006-02-06 03:41
留言版的版面修改，
將回覆的留言內縮，
以方便辨識回覆留言。
修改方式：
[hidden]
plugins/guestbook/guestbook.asp
99行附近
找
<%if len(GuestDB("book_reply"))>0 and not replyMsg then %>
<%end if%>
改成
<%if len(GuestDB("book_reply"))>0 and not replyMsg then %>
<%end if%>
[/hidden]
或者下載下面文件直接覆蓋
[mDown=attachments/month_0602/z20062634029.rar]點擊下載此文件[/mDown]
將回覆的留言內縮，
以方便辨識回覆留言。
修改方式：
[hidden]
plugins/guestbook/guestbook.asp
99行附近
找
<%if len(GuestDB("book_reply"))>0 and not replyMsg then %>
<%=UBBCode(HtmlEncode(GuestDB("book_reply")),0,0,0,1,1)%>
<%end if%>
改成
<%if len(GuestDB("book_reply"))>0 and not replyMsg then %>
| | <%=UBBCode(HtmlEncode(GuestDB("book_reply")),0,0,0,1,1)%> |
![""]("images/reply.gif")
<%end if%>
[/hidden]
或者下載下面文件直接覆蓋
[mDown=attachments/month_0602/z20062634029.rar]點擊下載此文件[/mDown]
標籤: pjblog
PJblog-2.5-系統管理超連結從新視窗開啟
作者:nnickk 日期:2006-02-05 11:56
PJblog-2.5-用參數去設定置頂的日誌是否展開
作者:nnickk 日期:2006-02-05 11:38
找class/cls_default.asp
第一步
將
CODE:
改成
CODE:
第二步
將
CODE:
改成
CODE:
第三步
修改const.asp
在
CODE:
下面增加這一行
CODE:
第一步
將
CODE:
<div class="BttnE" onclick="TopicShow(this,'log_<%=webLogArr(0,PageCount)%>')"></div>
改成
CODE:
<%if firstpageopen="Y" then%>
<div class="BttnC" onclick="TopicShow(this,'log_<%=webLogArr(0,PageCount)%>')"></div>
<%else%>
<div class="BttnE" onclick="TopicShow(this,'log_<%=webLogArr(0,PageCount)%>')"></div>
<%end if%>
第二步
將
CODE:
<div id="log_<%=webLogArr(0,PageCount)%>"<%if webLogArr(9,PageCount)=true then %> style="display:none"<%end if%>>
改成
CODE:
<%if firstpageopen="Y" then%>
<div id="log_<%=webLogArr(0,PageCount)%>"<%if webLogArr(9,PageCount)=true then %> style="display:"<%end if%>>
<%else%>
<div id="log_<%=webLogArr(0,PageCount)%>"<%if webLogArr(9,PageCount)=true then %> style="display:none"<%end if%>>
<%end if%>
第三步
修改const.asp
在
CODE:
Const IPViewURL="http://www.dheart.net/ip/index.php?ip="
下面增加這一行
CODE:
Const firstpageopen = "N" '設定首頁公告是否展開，Y為展開，N為不展開。
標籤: pjblog{422}
">
<%=GuestDB("book_replyAuthor")%>
[<%=DateToStr(GuestDB("book_replyTime"),"Y-m-d H:I:S")%>]