一个快速的浏览器，使用 Gecko 引擎。它的界面模仿IE的风格，并且能够使用IE的书签。它最主要的特点就是下载页面的速度相当的快，这对于网速不是很快的中国用户还是很有优势的。

修改如下:

1.采用替换配置文件夹方式绿化，比较方便。

2.内置FLASH控件的官方下载链接，方便观看FLV等视频。见图3

3. 加入支付宝 K-Meleon 浏览器的控件。见图2

4. 修改 Opera 的快速拨号页面，并设为首页。见图1

5. 默认搜索引擎为为百度。

6. 打上adblockplus官方最新广告过滤包，可以屏蔽大部分网页广告。

7.加入一个页面提速的宏扩展，浏览网页更快速。

8. 开启了Netscape 书签、IE收藏夹、Opera hotlist。见图1

9.支持ietab（ie标签浏览），可以用 K-Meleon 查看 针对IE优化的网站。见图3

10.修改默认界面，时尚美观。见图1

11.删除内置的皮肤，因为  K-Meleon 的皮肤都不怎么样，节约空间。

12.加入下载软件的整合工具oGet ，右击下载链接-download with oGet即可直接使用flashget、迅雷下载。

13、支持MP3、WMA音乐文件在线播放，视频没有试过。见图4

14.支持著名代理软件的快捷调用，只要开启该代理软件就可以在 K-Meleon 浏览器代理上网。

15.更多？？

二、安装说明

A 绿化工具安装，适合新手

运行 绿化.exe，请注意 快速拨号无法记住保存网址问题！见图9

B 手动安装

1、下载完后解压到任意目录，运行k-meleon.exe 后关闭。

2、剪切 根目录的【配置文件替换】 文件夹下的所有文件 覆盖到 Profiles/default/xxxxxx.slt 文件夹下，
xxxxxx为不规则英文字母。

3、重新运行 k-meleon.exe 即可

4、如果你需要 Flash 功能，请点击 书签-下载 Flash 播放器 到官方页面下载。

三、实用技巧 【收集网络，原作者版权所有，我只是整理方便FY】

1. User Agent如果采用定制的话，不能正常使用Google Notebook和Google文档等Gooelg的全面服务。设置缺省就可以了，否则Gmail的聊天功能都无法正常显示。
 

[pagebreak] 2.谷歌浏览器 客户端标识
Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/525.13 (KHTML, like Gecko) Chrome/0.2.149.27 Safari/525.13

3.皮肤的在线选择在Bookmarks里面K-MeleonProject—-Themes

4、粘贴并打开这个网址：在地址栏右边的“Go”按钮上点右键选“Paste And Go”即可，这个功能很人性化。【注：本版为 右击 ‘向右箭头’图标】

5.解决极少部分网站出现乱码的情况：选择主菜单View—-Encoding—-Auto Detect—-Chinese【注：本版为：查看-编码】

6.划词搜索，在网页中选择好需要搜索的内容后，点鼠标右键，选项择Web Search”里面的搜索引擎即可。如果需要翻译这个词，选“Translation”里面的语言种类即可。

7.刷新所有的标签页：工具栏”刷新“图标上点右键，选”Reload all tabs“即可或任一网页上点右键选Reloading…—-Reload all tabs。

8.清除地址栏历史列表：在地址栏右边的“Go”图标上点鼠标右键选择“Clear URL Bar History"。【注：本版为 右击 ‘向右箭头’图标】

9.搜索网页中的内容：Ctrl + F （或F3） 下面的状态栏上就会出现搜索小窗口。

10.在标签页上进行拖拽，可以将这个标签页放到其他的位置。

11.删除自动寻找网页中已有的字 目录\components\typeaheadfind.dll 文件 即可

12.补充个，自动保存过的密码在 工具-隐私-许可-密码 选项，大家可以更改、删除。

[pagebreak]

2009.5.22修正更新

1.修复快速拨号首页谷歌搜索乱码的失误。

2.调整了页面布局，增加了使用说明图标链接，见图1

3.调整了页面打开方式，符合大多数人使用习惯。

4.删除了些无用文件，压缩包更小。

2009.5.22再次更新

1.加入ADOBE最新FLASH 10.0 插件。

2.增加屏幕截图功能，支持快捷键。见图5

2009.5.22晚上更新

1.修复论坛发帖时 Ctrl +Enter 出现错误提示，现在赶快灌水啊！！

2.添加快速拨号首页2个新的颜色，构成七彩颜色。见图1

3.原版已经有 自动刷新功能 ，右键 刷新 按钮即可看到选项，其实K-Meleo很多功能都可以通过右键获得。见图6

2009.5.25 更新

周末有时间更新下。

1.调整页面布局，更加适合IE用户的习惯。见图1

2.增加自动备份配置文件插件，见图7

注意：如果要使用该插件，请将K-Meleom解压到纯英文目录，如L:\K-Meleon,中文目录没有试过，大家试试看。

在 工具-配置文件备份 进行操作，见图7程序会自动每天备份，当你的的配置有改变时自动备份，并按星期x保存配置文件。

3.整理了下搜索引擎，本来想添加更多的，可惜不支持UTF8。见图8.

4.修复了resource:///调用首页不支持快速拨号的问题。

5.写了个 K-Meleon 绿化程序，方便菜鸟使用，当然老用户按以前的更简单。见图9

6.修改了about:页面，郁闷，xhtml 实在不习惯，就只改了一点。。

更多功能整理中如Roboform填表，侧边栏，还有JAVA游戏等等。最近没时间弄，会抓紧修改的。当然，改得了改不了是不保证的。

[pagebreak] 2009.5.26 更新

1.更换adblockplus官方广告过滤包为 ChinaList 最新广告过滤包 ，更适合中国网民。

2.汉化 adblockplus 插件,郁闷，右键菜单乱码解决不了，正在寻找解决方法中。

3.汉化 搜索栏，自定义菜单选择 工具- 网页搜索-搜索栏。见图1

4.修改了about:页面，修改默认字体为 雅黑，制作了新的logo图片，见图0

2009.5.27 更新

1.增加老板键，请看 目录 老板键下说明，同时按下 左右键即可隐藏程序，方便上班族。

2.增加 论坛彩色渐变文字生成器 见图5

3.增加 屏幕取字 能够将所抓取的屏幕文本转化为可以编辑的文字。 见图5

4.增加 屏幕直尺 ，方便设计人员。 见图5

5.增加在线自动寻找可用代理工具。菜单 工具-代理

6.增加实时嗅探工具Live HTTP Headers　精确记录本地的Get和Post数据，并可修改数据后重新提交。十分方便的工具。

7.增加 QuickNote 快速记事本，相当于傲游的文本收集窗口。

QuickNote 的方法有两种：一是，你可以将选择的网文片断通过鼠标右键中的“快记 文字一划即存”菜单命令直接发送到 QuickNote 中

将自动为你附上该网文的网址，以方便你日后查阅。另外，你用不着担心收集的内容是否会丢失，QuickNote 会自动加以保存。见图5

[pagebreak] 2009.5.30 更新

1.增加 屏幕教鞭，指指点点 随心所欲 见图5

2.增加 添加到网络收藏夹 google facebook del.icio.us 等 见图5

3.增加 Hosts设置。 快速屏蔽当前网站、Hosts文件管理工具 见图5

4.汉化完善 智能填表，预设灌水高频句，论坛回帖更简单。

2009.6.4 更新

底部笑话 请编辑 K-Meleon\locales\speeddial\foot.js 内数组的文字

附录

问题回答：

问：请问一下，有自动刷新页面功能没有

答：原版已经有 自动刷新功能 ，右键 刷新 按钮即可看到选项，其实K-Meleo很多功能都可以通过右键获得。见图6

问：还有就是MS出新版本了，楼主为什么不集成新版呢？？谢谢~~

答：1.5.x 新版没有官方的汉化包，现在的汉化包汉化不完全。

问：怎么我使用快速拨号不能保存网址，关闭浏览器再重新打开就什么也没有了

答：快速拨号通过COOKIE保存，推荐下载最新的版本 5.22更新

我试验了几次，多次试验发现是resource:///这个地址不支持Cookie，郁闷，不知道怎么解决这个难题。希望有高手解决这个问题！！感谢

不过影响不大，大家可以手动设置快速拨号的地址。

方法：

菜单-编辑-属性

快速拨号的格式：

E:\K-Meleon\locales\speeddial\index.htm

将E:改为你安装的目录。

问：K-Meleon1.1.5如何修改网页默认字体？

答：地址栏 about:config 输入font 搜索zh-cn 改成你要的字体

问：鼠标拖拽链接，后台打开标签如何实现?

答：K-Meleon原版没有这个功能，不过有替代办法

后台打开标签可以用 鼠标中键 或者右键后台打开

鼠标拖拽链接的功能都集合在右键菜单中，如图10

问：
1、怎样实现将你所添加的快速记事放在工具栏上，点按钮就出来呢？
2、无法实现启动时打开上交关闭时的网页，该怎么办呢？

答：
1.ctrl+alt+q 或者用右键一划既存
2.右键 工具栏 主页图标 启动打开上次线程

问：如果改变网页显示的字体大小该怎么做，谢谢

答：地址栏 about:config 输入 font.size.variable.zh-CN 改为你要的值，不过如果网页指定了字体大小，只能通过工具栏的放大缩小按钮

[pagebreak]

图：

[pagebreak]

[pagebreak]

务必看完安装说明！再下载。请注意 快速拨号无法记住保存网址问题,一定要看安装说明的解决方法。没有病毒哦！

你可以看看相关的东东:

• 微软力作:PIVOT超级浏览器 (27)
  这款软件是WINDOWS LIVE LABS出品，这是微软一个以图形处理应用见长的实验室。这款新推出...
• ChromePlus浏览器 (23)
  谷歌的Chrome浏览器出来也挺久的了，确实有它优秀的方面，但是对于像阿士这样用习惯世界之窗、傲游等...
• IE8功能增强-IE7pro-拖拽 (2)
  最近装了WIN7系统系统自带的浏览器是IE8，虽然有很多浏览器可以选择但偶尔也会用到IE8，没有其他...
• 360安全卫士个性DIY版本 (2)
  360安全卫士大家应该都知道吧，也许大家都在用。是不是听说过什么什么定制版呢？其实大家不要眼红那些，...
• Avant 浏览器 (4)
  　　Avant Browser是一款简单易用、快捷方便的多窗口浏览器。它以Internet Expl...
• 谷歌浏览器的最新版与绿色免安装版 (3)
  上一篇文章教大家怎么打造绿色免安装的谷歌浏览器了。但是是不是有人觉得麻烦呢？嘿嘿，跟我一样。那么有没...
• 打造绿色免安装的谷歌浏览器 (0)
  如果你想把谷歌浏览器（Google Chrome）复制到非系统盘，或者USB闪存盘，然后配置文件也随...

dim fenyefu:fenyefu="【pagebreak】"

打开：common/function.asp找到：Function Alias(id)
再其上面添加：
Function Aliasx(id, fen)
dim cname,ccate,chtml,ccateID,ccateExec,cnames,ctype,cc
set cc=conn.execute("select top 1 log_CateID,log_cname,log_ctype from blog_Content where log_ID="&id)

ccateID = cc(0)
cname = cc(1)
ctype = cc(2)

set ccateExec=conn.execute("select Cate_Part from blog_Category where cate_ID="&ccateID)

If not ccateExec.EOF and not ccateExec.bof Then
ccate = ccateExec(0).value
end if

if ccate="" or ccate=empty or ccate=null or len(ccate)=0 then
ccate="article/"
else
ccate="article/"&ccate&"/"
end if
if len(cname)<1 or cname="" or cname=empty or cname=null then
cnames=trim(id)
else
cnames=cname
end if

if ctype="0" then
chtml="htm"
else
chtml="html"
end if

chtml="."&chtml
set ccateExec = nothing
set cc = nothing
Aliasx=ccate&cnames&fen&chtml
End Function
[pagebreak]
打开:blogedit.asp
找到：

select log_cname,log_ctype

改成：

select log_cname,log_ctype,log_Content

找到：

">

下面插入：

">

打开control/c_article.asp

conn.execute("Delete * from blog_Content where log_ID="&Log_Dele(i))

在上面插入：
[code] '删除静态内分页文件——by：情留メ蚊子 Start
dim arrcontent,rollnum,log_View
Set log_View = conn.Execute("Select log_Content,log_CommNums,log_edittype FROM blog_Content Where log_ID=" & Log_Dele(i))
If log_View("log_edittype") = 0 Then fenyefu = "

"
If InStr(log_View("log_Content"),fenyefu)>0 Then
arrcontent = split(log_View("log_Content"),fenyefu)
For rollnum = 1 to ubound(arrcontent)
DeleteFiles server.MapPath(Aliasx(Log_Dele(i),"_"&(rollnum)))
DeleteFiles Server.MapPath("post/"&Log_Dele(i)&"_"&(rollnum)&".asp")
next
End If
set log_View = Nothing
'删除静态内分页文件——by：情留メ蚊子 End[/code]
打开control/f_control.asp

Conn.Execute("Delete * FROM blog_Comment Where blog_ID="&LogID)

再上面插入
[code] '删除静态内分页文件——by：情留メ蚊子 Start
dim arrcontent,rollnum,log_View
Set log_View = conn.Execute("Select log_Content,log_edittype FROM blog_Content Where log_ID=" &LogID)
If log_View("log_edittype") = 0 Then fenyefu = "

"
If InStr(log_View("log_Content"),fenyefu) > 0 Then
arrcontent = split(log_View("log_Content"),fenyefu)
For rollnum = 1 to ubound(arrcontent)
DeleteFiles server.MapPath(Aliasx(LogID(i),"_"&(rollnum)))
DeleteFiles Server.MapPath("post/"&LogID(i)&"_"&(rollnum)&".asp")
next
End If
'删除静态内分页文件——by：情留メ蚊子 end[/code]
[pagebreak]
打开：class/cls_logAction.asp 找第二个到

'输出日志到文件

再上面添加
[code] '删除静态内分页文件——by：情留メ蚊子 Start
dim E, f
f = Request.Form("oldMessage")
If logEditType = 0 Then fenyefu = "

"
If InStr(f,fenyefu) > 0 Then
For e = 1 to ubound(split(f,fenyefu))
DeleteFiles Server.MapPath(Aliasx(LogID,"_"&(e)))
DeleteFiles Server.MapPath("post/"&LogID&"_"&(e)&".asp")
Next
End If
'删除静态内分页文件——by：情留メ蚊子 End[/code]
找到

Conn.Execute("Delete * FROM blog_Content Where log_ID="&id)

再上面添加
[code] '删除静态内分页文件——by：情留メ蚊子 Start
dim arrcontent, rollnum
If weblog("log_EditType") = 0 Then fenyefu = "

"
If InStr(weblog("log_Content"),fenyefu) > 0 Then
arrcontent = split(weblog("log_Content"),fenyefu)
For rollnum = 1 to ubound(arrcontent)
DeleteFiles Server.MapPath(Aliasx(LogID,"_"&(rollnum)))
DeleteFiles Server.MapPath("post/"&LogID&"_"&(rollnum)&".asp")
Next
End If
'删除静态内分页文件——by：情留メ蚊子 End[/code]
找到并删除：
[code] '读取日志模块
LoadTemplate1 = LoadFromFile("Template/Article.asp")

If LoadTemplate1(0) <> 0 Then Exit Sub'读取成功后写入信息

'读取分类信息
Temp1 = LoadTemplate1(1)[/code]
找到：

Temp1 = Replace(Temp1, "<$Cate_icon$>", getCate.cate_icon)

再上面插入
[code]Dim arrcontent, rollnum, pagelist, howpage
If log_View("log_edittype") = 0 Then fenyefu = "

"
If InStr(log_View("log_Content"),fenyefu) > 0 Then
arrcontent = split(log_View("log_Content"),fenyefu)
pagelist=""
For rollnum = 1 to ubound(arrcontent)
pagelist = pagelist & "["&(rollnum+1)&"] "
howpage = "

If LoadTemplate1(0) <> 0 Then Exit Sub'读取成功后写入信息

'读取分类信息
Temp1 = LoadTemplate1(1)[/code]
找到：

SaveArticle = SaveToFile(Temp1, "post/" & LogID & ".asp")

改成：
[code]If rollnum = 0 then
SaveArticle = SaveToFile(Temp1, "post/" & LogID & ".asp")
Else
SaveArticle = SaveToFile(Temp1, "post/" & LogID &"_"&(rollnum) & ".asp")
End If
Next[/code]
找到：
[code] '读取日志模块
LoadTemplate1 = LoadFromFile("Template/static.htm")

If LoadTemplate1(0) <> 0 Then Exit Sub'读取成功后写入信息

'静态页面特有的属性
baseUrl = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")
baseUrl = Left(baseUrl, InStrRev(baseUrl,"/"))

'读取分类信息
Temp1 = LoadTemplate1(1)[/code]
改成：
[code] '静态页面特有的属性
baseUrl = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("URL")
baseUrl = Left(baseUrl, InStrRev(baseUrl,"/"))[/code]
[pagebreak]
找到：

If log_View("log_comorder") Then comDesc = "Desc" Else comDesc = "Asc" End If

在下面添加：
[code]Dim arrcontent, rollnum, pagelist, howpage
If log_View("log_edittype") = 0 Then fenyefu = "

"
If InStr(log_View("log_Content"),fenyefu) > 0 Then
arrcontent = split(log_View("log_Content"),fenyefu)
pagelist=""
For rollnum = 1 to ubound(arrcontent)
pagelist = pagelist & "["&(rollnum+1)&"] "
howpage = "

If LoadTemplate1(0) <> 0 Then Exit Sub'读取成功后写入信息

'读取分类信息
Temp1 = LoadTemplate1(1)[/code]
找到(2个)

UnCheckStr(UBBCode(HtmlEncode(log_View("log_Content")), Mid(log_View("log_ubbFlags"), 1, 1), Mid(log_View("log_ubbFlags"), 2, 1), Mid(log_View("log_ubbFlags"), 3, 1), Mid(log_View("log_ubbFlags"), 4, 1), Mid(log_View("log_ubbFlags"), 5, 1))))

改成：

UnCheckStr(UBBCode(HtmlEncode(arrcontent(rollnum)), Mid(log_View("log_ubbFlags"), 1, 1), Mid(log_View("log_ubbFlags"), 2, 1), Mid(log_View("log_ubbFlags"), 3, 1), Mid(log_View("log_ubbFlags"), 4, 1), Mid(log_View("log_ubbFlags"), 5, 1)))&howpage)

找到(2个)

UnCheckStr(log_View("log_Content")))

改成：

UnCheckStr(arrcontent(rollnum))&howpage)

找到：

SaveArticle = SaveToFile(Temp1, Alias(LogID))

改成：
[code]If rollnum = 0 then
SaveArticle = SaveToFile(Temp1, Alias(LogID))
Else
SaveArticle = SaveToFile(Temp1, Aliasx(LogID,"_"&(rollnum)))
End If
Next[/code]
静态分页结束！

你可以看看相关的东东:

• 【PJ修改】文章来源添加“来自网络” (0)
  众所周知，PJBlog默认的文章来源只有一项“本站原创”，为防止转载来的文章引起版权纠纷，我们可以增...
• 把PJBlog换成全动态—自动分页！ (0)
  把PJBlog换成全动态了。因为有比较长的文章发表，早就想换了，但是根据论坛的大人修改了好几次都...
• 点击输入框显示验证码的修改方法 (0)
  这个功能的修改是我最喜欢的一个，因为很人性化，按照浏览习惯，访客们一般都是进入日志页后把日志看完才会...
• 每篇日志右下角加上”返回顶部” (1)
  对于动态与半静态： 编辑class\cls_default.asp文件，找到以下代码: | 引用: ...
• 博客修改记录 (0)
  本博客修改基于全静态下 一.导航树 插件，未修改程序。下载 二.统计代码扩展 1.在li...
• 2009-9-13 (9)
  转到wordpress吧，PJBlog玩累了，现在想转过来了。原来博客的图片上面的都转过来了，但是有...
• 301重定向 (2)
  今天起床想把昨天没做完的事搞定了，就是301重定向的问题了。阿士一直烦恼怎么才能使通过【smile....

步骤：

一、首先养成好习惯，备份我们接下来要修改的文件：blogpost.asp和blogedit.asp

二、接下来打开blogpost.asp文件，找到:

把它改成：

[code]

[/code]

三、继续，打开blogedit.asp，找到：

" />

把它改成：

[code]

[/code]

这样就OK了。

你可以看看相关的东东:

• 【PJ修改】文章内分页 (0)
  一、静态（测试可用） 打开：conn.asp 在 最后一个%>前加入 dim fenyefu:fen...
• NetBox（网络盒子）的使用说明、方法、教程 (0)
  NetBox 是北京一家公司自主研制的一个使用脚本语言进行应用软件开发与发布的开发环境和运行平台，它...
• PJBlog侧边栏左右对换 (0)
  改一下皮肤文件夹里的layout.css相应段落代码 找到 /*---工具条--*/ /*---主内...
• 点击输入框显示验证码的修改方法 (0)
  这个功能的修改是我最喜欢的一个，因为很人性化，按照浏览习惯，访客们一般都是进入日志页后把日志看完才会...
• 每篇日志右下角加上”返回顶部” (1)
  对于动态与半静态： 编辑class\cls_default.asp文件，找到以下代码: | 引用: ...
• 博客修改记录 (0)
  本博客修改基于全静态下 一.导航树 插件，未修改程序。下载 二.统计代码扩展 1.在li...
• 2009-9-13 (9)
  转到wordpress吧，PJBlog玩累了，现在想转过来了。原来博客的图片上面的都转过来了，但是有...

不多说了，下面是具体的修改方法：
打开function.asp文件，找到

[code]Function getcode()
getcode= ""
End Function[/code]

替换为

[code]Function getcode()
getcode= "点击输入框即可显示验证码" & vbcrlf &_
"" & vbcrlf
End Function

Function link_getcode()
link_getcode= "点击输入框即可显示验证码" & vbcrlf &_
"" & vbcrlf
End Function[/code]

打开cls_article.asp，找到

<%if memName=empty or blog_validate=true then%>
验证码: <%=getcode()%>

<%end if%>

把上面这行代码剪切到下面这行代码的上面
[code]

这样就OK了，除了引用链接的验证码（这个地方个人认为没必要修改），所有页面有验证码的地方都点击输入框显示验证码了。

你可以看看相关的东东:

• 【PJ修改】文章内分页 (0)
  一、静态（测试可用） 打开：conn.asp 在 最后一个%>前加入 dim fenyefu:fen...
• 【PJ修改】文章来源添加“来自网络” (0)
  众所周知，PJBlog默认的文章来源只有一项“本站原创”，为防止转载来的文章引起版权纠纷，我们可以增...
• 每篇日志右下角加上”返回顶部” (1)
  对于动态与半静态： 编辑class\cls_default.asp文件，找到以下代码: | 引用: ...
• 博客修改记录 (0)
  本博客修改基于全静态下 一.导航树 插件，未修改程序。下载 二.统计代码扩展 1.在li...
• 2009-9-13 (9)
  转到wordpress吧，PJBlog玩累了，现在想转过来了。原来博客的图片上面的都转过来了，但是有...
• 301重定向 (2)
  今天起床想把昨天没做完的事搞定了，就是301重定向的问题了。阿士一直烦恼怎么才能使通过【smile....
• 友情链接问题 (3)
  今天用站长工具检测了一下友情链接。我就郁闷了。上图大家自己看看。PJ从PJ2~PJ3robots.t...

| 引用: <%=webLogArr(7,PageCount)%> | 查看次数: <%=webLogArr(8,PageCount)%>

在后面加上：

| 返回顶部

如需在单条日志文件也实现此功能，编辑class\cls_article.asp文件,找到以下代码:

<%=log_ViewArr(12,0)%> | 引用: <%=log_ViewArr(13,0)%> | 查看次数: <%=log_ViewArr(4,0)%>

在后面加上:

| 返回顶部

对于全静态则修改的是ArticleList.asp与static.htm

你可以看看相关的东东:

• 【PJ修改】文章内分页 (0)
  一、静态（测试可用） 打开：conn.asp 在 最后一个%>前加入 dim fenyefu:fen...
• 【PJ修改】文章来源添加“来自网络” (0)
  众所周知，PJBlog默认的文章来源只有一项“本站原创”，为防止转载来的文章引起版权纠纷，我们可以增...
• 点击输入框显示验证码的修改方法 (0)
  这个功能的修改是我最喜欢的一个，因为很人性化，按照浏览习惯，访客们一般都是进入日志页后把日志看完才会...
• 博客修改记录 (0)
  本博客修改基于全静态下 一.导航树 插件，未修改程序。下载 二.统计代码扩展 1.在li...
• 2009-9-13 (9)
  转到wordpress吧，PJBlog玩累了，现在想转过来了。原来博客的图片上面的都转过来了，但是有...
• 301重定向 (2)
  今天起床想把昨天没做完的事搞定了，就是301重定向的问题了。阿士一直烦恼怎么才能使通过【smile....
• 友情链接问题 (3)
  今天用站长工具检测了一下友情链接。我就郁闷了。上图大家自己看看。PJ从PJ2~PJ3robots.t...

二.统计代码扩展
1.在library.asp(common目录下面)查找：

Str = Replace(Str, “$blog_OnlineNums$”, vOnline)

在其后添加以下代码：
[code]'今日日志数
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_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_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))
'今日访问数
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_UnshownLinks$",Conn.ExeCute("Select COUNT(link_isshow) FROM blog_Links Where link_isshow=False")(0))
'现有链接数
str=replace(str,"$all_blog_Links$",Conn.ExeCute("Select COUNT(link_isshow) FROM blog_Links Where link_isshow=True")(0))
'运行天数统计
str=replace(str,"$blog_RunDays$",DateDiff("d","2009-01-01",date))
'所有日志浏览量总和
str=replace(str,"$All_ViewNums$",Conn.Execute("Select SUM(log_ViewNums) FROM blog_Content")(0))[/code]

2.后台BlogInfo模块改为以下代码：
[code]
日志: 今日$Today_blog_LogNums$篇，总计 $blog_LogNums$篇

评论: 今日$Today_blog_CommNums$篇，总计 $blog_CommNums$篇

留言: 今日$Today_MessageNums$篇，总计 $blog_MessageNums$篇

引用: 今日$Today_blog_TbCount$次，总计$blog_TbCount$ 次

会员: 线上$blog_OnlineNums$人，总会员$blog_MemNums$人

链接: 待审$blog_UnshownLinks$个，现有$all_blog_Links$个

访问: 总计$blog_VisitNums$人次

日志浏览总和: $All_ViewNums$ 次

建站时期: 2008-12-12

运行天数: $blog_RunDays$天[/code]
[pagebreak]
三.侧边栏整合tab(滑动)选项卡
[code]
-->

[/code]
以上是自动切换，要手动切换只需将onmousedown改为onclick
[pagebreak]
四。为FCK编辑器增加远程图片自动保存
详细见：http://ashi.im/article/autopic.html

五.首页直接显示登陆框
点击下载此文件

六.文章发布日期和时间同时显示
修改class/cls_logAction.asp，找到：
[code]'======================================================
'缓存静态化列表
'======================================================[/code]
及
[code]'======================================================
'全静态化
'======================================================[/code]
这两个部分之下的代码，将：

Temp1 = Replace(Temp1, “<$log_PostTime$>”, DateToStr(log_View(“log_PostTime”), “Y-m-d”))

改成

Temp1 = Replace(Temp1, “<$log_PostTime$>”, DateToStr(log_View(“log_PostTime”), “Y-m-d H:I A”))

注意：缓存静态化列表之下的代码为Temp2

七.返回顶部
详细见：http://ashi.im/article/gototop.html

八.为PJBlog增加千脑上传
详细见：http://ashi.im/article/pj-qiannao.html

九.PJBlog修改highslide图片缩放效果
1.首先下载highslide压缩包.释放到博客根目录
点击下载此文件

2.修改方案这里贴不出来，保存记录点击下载此文件

九.文章内分页
详细见：http://ashi.im/article/pjpage.html

十.增加“来自网络”
详细见：http://ashi.im/article/pjsource.html
十一.解决侧边栏问题
全静态下日志正文无法显示侧边模块的问题
十二.增加digg功能
详细见：http://ashi.im/article/digg.html
十三.为FCK编辑器增加lightbox效果
详细见:http://ashi.im/article/fcklightbox.html
十四.将博客更新到目前最新版本
详细见：http://code.google.com/p/pjblog/source/list

你可以看看相关的东东:

• 【PJ修改】文章内分页 (0)
  一、静态（测试可用） 打开：conn.asp 在 最后一个%>前加入 dim fenyefu:fen...
• 【PJ修改】文章来源添加“来自网络” (0)
  众所周知，PJBlog默认的文章来源只有一项“本站原创”，为防止转载来的文章引起版权纠纷，我们可以增...
• 点击输入框显示验证码的修改方法 (0)
  这个功能的修改是我最喜欢的一个，因为很人性化，按照浏览习惯，访客们一般都是进入日志页后把日志看完才会...
• 每篇日志右下角加上”返回顶部” (1)
  对于动态与半静态： 编辑class\cls_default.asp文件，找到以下代码: | 引用: ...
• 博客更换下皮肤 (4)
  恩，皮肤用久了大家可能觉得没什么，但是自己觉得有点疲劳了，所以今天上网找了一个皮肤。这个皮肤看着还行...
• 硕思闪客精灵5.2版发布 送注册码活动重新开始 (3)
  很多网友都是Flash高手，对于那些精美的flash阿士也往往是赞叹不已，也很想学习下怎么制作和修改...
• 2009-9-13 (9)
  转到wordpress吧，PJBlog玩累了，现在想转过来了。原来博客的图片上面的都转过来了，但是有...