 |
|
黃金價格--2007-11-02
作者:nnickk 日期:2006-03-04 09:26
歡迎申請交換連結
作者:nnickk 日期:2006-03-31 11:17
增加相簿外掛
作者:nnickk 日期:2006-03-30 14:49
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：
因為我的版本已經改的面目全非了，
所以這是我想像原始未改前的樣子，
所以上面的程式碼沒實際測試過，
可能會有筆誤的地方，
有問題歡迎提出，
感謝。
enzo在台照片流出 台灣史上最貴車王 直擊5500萬法拉利Enzo叩關
作者:nnickk 日期:2006-03-29 18:22
FERRARI ENZO 規 格 表
引 擎 形 式 ： V 式 12 汽 缸 DOHC 48V
容 積 ： 5,998c.c.
最 大 馬 力 ： 660PS ／ 7,800rpm
最 大 扭 力 ： 67kgm ／ 5,500rpm
淨 重 ： 1,365kg
傳 動 系 統 ： 6 前 速 F1 半 自 動 波 箱 ， 中 置 引 擎 後 輪 驅 動
小檔案 2002年 ENZO Ferrari 5,998 V12
以車廠始創人安素‧法拉利而命名的Enzo Ferrari ，除滿載著F-1最新技術外，更由最快的F-1車手米高‧舒密加共同研製開發。現時法拉利最新型號，以安素‧法拉利名字而命名的Enzo Ferrari，全球限量只有349輛(其實是量產350輛，其中一輛是要留給Enzo Ferrari的兒子)，是有錢都未必買到的跑車。
該車的發表會是在「法拉利‧馬莎拉蒂」跑車總部Maranello舉行，根據消息指出，在發表前已經累積了為數不少的訂單，當日與會的有不少都是準車主，他們得以有機會比別人先一睹跑車風采，且可先行試駕過癮。 官方消息表示，Enzo Ferrari預定九月份正式生產，並且保證這批車輛總數不超過絕對不會因應外界需要增產，以確保這群特殊跑車主人的權利。這輛充滿F-1科技，擁有650匹最大馬力、極速350km、0~100km加速僅需3.65秒，0~200km更只需9.5秒的性能狂魔(95%以上的國產車都還沒破百)，已於2002年9月正式投產。
詳細規格表
引擎 汽缸型式
F140 V型 12缸 ，65度夾角
汽缸缸徑×活塞衝程(mm) 92.0×75.2mm
排氣量(c.c.) 5,998c.c.
壓縮比 11.2：1
最大馬力(hp/rpm) 660bhp/7,800rpm
最大扭力(kgm/rpm) 67.0kgm/5,500rpm
車身
車長×寬×高(mm) 4,702×2,035×1,147mm
輪距 前/後 (mm) 2,650mm
車重 (kg) 1,365kg
性能
0-100km/h加速 3.65sec
極速(km/h) 350km/h
民視的新聞稿
價值高達四千萬,法拉利限量版的跑車ENZO,最近剛從義大利空運來台,今天這輛號稱是全台最貴的跑車,出現在立法院中興大樓的停車場,而且還停在立委蔡啟芳專屬的車位上,難道這台車是蔡啟芳買的嗎,來看民視的獨家報導 車一發動,引擎聲浪就如狂濤巨浪般席捲全身,連三十公尺外的自用轎車都不禁抗議.火紅色的烤漆,剛性的線條,再配上霸氣的車頭下巴這台車叫人驚奇,更令人讚嘆.上掀式的車門和野馬般的外表,這台留著純種義大利血統的法拉利跑車叫做ENZO,全台就這麼一台,原價2500萬台幣,進口到台灣,光稅金就要繳上1900萬.原來這台車不是蔡啟芳的,而是一位不願曝光的車主,由於海關把這台2003年份的跑車以新車稅率課稅,因此前來向蔡啟芳陳情,只見蔡啟芳也忍不住親自坐上一坐,那我們也就帶您到車裡瞧一瞧,這台全球限量四百台的ENZO,有桶式賽車包覆座椅,全車碳纖維打造,重量只有1365公斤,六千西西的引擎,馬力660匹,扭力657匹,極速可達350公,0到100公里只要3.65秒,我的天啊,這台車如果開在路上,恐怕沿路都要被警察攔下來吧,車主表示,如果這台車可以順利掛牌上路,未來也就可以讓民眾們大飽眼福.民視新聞綜合報導
引 擎 形 式 ： V 式 12 汽 缸 DOHC 48V
容 積 ： 5,998c.c.
最 大 馬 力 ： 660PS ／ 7,800rpm
最 大 扭 力 ： 67kgm ／ 5,500rpm
淨 重 ： 1,365kg
傳 動 系 統 ： 6 前 速 F1 半 自 動 波 箱 ， 中 置 引 擎 後 輪 驅 動
小檔案 2002年 ENZO Ferrari 5,998 V12
以車廠始創人安素‧法拉利而命名的Enzo Ferrari ，除滿載著F-1最新技術外，更由最快的F-1車手米高‧舒密加共同研製開發。現時法拉利最新型號，以安素‧法拉利名字而命名的Enzo Ferrari，全球限量只有349輛(其實是量產350輛，其中一輛是要留給Enzo Ferrari的兒子)，是有錢都未必買到的跑車。
該車的發表會是在「法拉利‧馬莎拉蒂」跑車總部Maranello舉行，根據消息指出，在發表前已經累積了為數不少的訂單，當日與會的有不少都是準車主，他們得以有機會比別人先一睹跑車風采，且可先行試駕過癮。 官方消息表示，Enzo Ferrari預定九月份正式生產，並且保證這批車輛總數不超過絕對不會因應外界需要增產，以確保這群特殊跑車主人的權利。這輛充滿F-1科技，擁有650匹最大馬力、極速350km、0~100km加速僅需3.65秒，0~200km更只需9.5秒的性能狂魔(95%以上的國產車都還沒破百)，已於2002年9月正式投產。
詳細規格表
引擎 汽缸型式
F140 V型 12缸 ，65度夾角
汽缸缸徑×活塞衝程(mm) 92.0×75.2mm
排氣量(c.c.) 5,998c.c.
壓縮比 11.2：1
最大馬力(hp/rpm) 660bhp/7,800rpm
最大扭力(kgm/rpm) 67.0kgm/5,500rpm
車身
車長×寬×高(mm) 4,702×2,035×1,147mm
輪距 前/後 (mm) 2,650mm
車重 (kg) 1,365kg
性能
0-100km/h加速 3.65sec
極速(km/h) 350km/h
民視的新聞稿
價值高達四千萬,法拉利限量版的跑車ENZO,最近剛從義大利空運來台,今天這輛號稱是全台最貴的跑車,出現在立法院中興大樓的停車場,而且還停在立委蔡啟芳專屬的車位上,難道這台車是蔡啟芳買的嗎,來看民視的獨家報導 車一發動,引擎聲浪就如狂濤巨浪般席捲全身,連三十公尺外的自用轎車都不禁抗議.火紅色的烤漆,剛性的線條,再配上霸氣的車頭下巴這台車叫人驚奇,更令人讚嘆.上掀式的車門和野馬般的外表,這台留著純種義大利血統的法拉利跑車叫做ENZO,全台就這麼一台,原價2500萬台幣,進口到台灣,光稅金就要繳上1900萬.原來這台車不是蔡啟芳的,而是一位不願曝光的車主,由於海關把這台2003年份的跑車以新車稅率課稅,因此前來向蔡啟芳陳情,只見蔡啟芳也忍不住親自坐上一坐,那我們也就帶您到車裡瞧一瞧,這台全球限量四百台的ENZO,有桶式賽車包覆座椅,全車碳纖維打造,重量只有1365公斤,六千西西的引擎,馬力660匹,扭力657匹,極速可達350公,0到100公里只要3.65秒,我的天啊,這台車如果開在路上,恐怕沿路都要被警察攔下來吧,車主表示,如果這台車可以順利掛牌上路,未來也就可以讓民眾們大飽眼福.民視新聞綜合報導
