阳光e友的博客 - 博客

闲来无事改了一下highslide

eyouhome@163.com(阳光e友) — Thu,06 May 2010 15:10:36 +0800

今天闲来无事，将highslide修改了一下，将边框修改成半透明效果（貌似firefox不支持），将照片描述调整到边框外部。修改了个别程序，这样在文章中的图片将不会出现自动播放按钮，省的碍眼，只有在照片页才支持自动播放。
本想把边框增宽一些，弄个磨砂玻璃效果出来，可惜最终没有能够实现。

win7上帝模式及文件夹加密

eyouhome@163.com(阳光e友) — Wed,05 May 2010 19:47:17 +0800

win7隐藏了一个上帝模式，相信这个对大家来说已经不是什么秘密了，早在vista时代就有人知道了，只不过在vista下建立后很难删除，而在win7下很容易就删掉了，其他似乎没有什么区别。

1 建立上帝模式：

随便建立一个文件夹，起名为
完全控制面板.{ED7BA470-8E54-465E-825C-99712043E01C}
你会发现文件夹图标马上就变成了控制面板，打开后里面东东真不少，比默认控制面板强大的多。这个上帝模式的秘密就在于“.”后面的函数指令，同样的指令还有：

回收站.{645ff040-5081-101b-9f08-00aa002f954e}
拨号网络.{992CFFA0-F557-101A-88EC-00DD010CCC48}
打印机.{2227a280-3aea-1069-a2de-08002b30309d}
控制面板.{21ec2020-3aea-1069-a2dd-08002b30309d}
网上邻居.{208D2C60-3AEA-1069-A2D7-08002B30309D}
无关联文件.{00021401-0000-0000-c000-000000000046}
管理工具.{D20EA4E1-3957-11d2-A40B-0C5020524153}
……
我们可以用这些不同的函数指令来建立更多的上帝模式。

2 利用上帝模式来加密（伪装）文件夹：

当文件夹起名为以上函数时，打开文件夹后就变成了相应的内容，那么我们就可以利用这个特点来伪装文件夹，达到加密目的。举例：我这里有个放置了大量照片的文件夹，我将文件夹改名为
我的打印机.{2227a280-3aea-1069-a2de-08002b30309d}
刷新后，文件夹名变成了“我的打印机”，图标则变成了打印机，双击后打开的则是打印机，原来的大量照片就找不到了，被隐藏了起来，这样谁也想不到里面藏着的秘密。

这种情况下，无论怎么改名，都是无法改变文件夹属性的，那么要如何才能解密呢？

我们可以在cmd下或者利用ACDsee或者WINRAR这两个常用工具很容易的就改回原来的名字。打开winrar，浏览到“我的打印机”，在winrar自带的资源管理器下，文件夹全名保留无疑，点击右键重新命名即可恢复。

当然你也可以将文件夹改名为
未知文件.{00021401-0000-0000-c000-000000000046}
那么将会得到一个无法打开的文件夹，怎么双击也没有用。

给PJblog添加digg功能

eyouhome@163.com(阳光e友) — Thu,04 Mar 2010 13:53:55 +0800

digg是什么？说白了就是文章下面的“顶一下”、“踩一下”，有时网友懒的留言时，就可以顺手点击一下表示对文章的支持。PJblog论坛里面有digg功能的添加方法：
http://bbs.pjhome.net/thread-53752-1-3.html

按照原文章的方法在本博客安装成功，下面是digg的安装过程，做了一点小改动：

1 打开：Template\static.htm、Template\Article.asp

找到：

<$ArticleContent$>

在下面添加

2 打开：class\cls_article.asp

原文修改两处，按照原文修改后发现，如果是加密文章，那么digg会跑到“该日志是加密日志，需要输入正确密码才可以查看！”上面去了，本人重新修改了一下，而且只需修改一处，找到

注意将前面的

</div>

修改为

即可。

3 打开：article.asp

找到

在其上添加

4 打开：Template\static.htm、header.asp

找到

在其上面添加

5 最后下载文件放在对应的文件夹里，运行update.asp即可。

关于不能使用的问题：
1、安装前查看你的博客是否有js错误，如果有js错误请停止安装。
2、如果安装前没有js错误，请确定了是否升级了数据库。

让pjblog变成三栏结构（二）

eyouhome@163.com(阳光e友) — Sun,28 Feb 2010 23:57:36 +0800

上接《让pjblog变成三栏结构（一）》

第三、打开header.asp文件（原文是修改default.asp文件，那么只有首页才能显示双侧边栏，我将其改为修改header.asp文件），
找到

< 复制代码到剪贴板 >

在前添加

< 复制代码到剪贴板 >

  <%
  'PJBlog3 三栏
  '这里的html随你定义，模块代码将被替换
  '$calendar_code$ $user_code$ $archive_code$ $system_info$
  '$comment_code$ $Category_code$ $Link_Code$
  side_html_default2 = "#Search# #Calendar# #NewLogForPJBlog# #GuestBookForPJBlogSubItem1# #Comment# #BlogInfo# #Support#"
  %>

说明一下怎样调用：
  side_html_default2 = "xxxx yyyy zzzz"
  x,y,z可以取以下的值：$calendar_code$ $user_code$ $archive_code$ $system_info$ $comment_code$ $Category_code$ $Link_Code$
  以及sidepanel的Id值：如栏目的<div id="Side_Category" class="sidepanel">，用#Category#来获取；链接的<div id="Side_Links" class="sidepanel">用#Links#来获取等等（注意：是区分大小写的）。调用的侧栏内容，将从原来的侧栏移除，并添加到side_html_default2。
  第四、打开default.asp，找到

< 复制代码到剪贴板 >

修改为

< 复制代码到剪贴板 >

如果整个网站都要求三栏，那么按照第四修改default.asp的方法继续修改article.asp（内容页）、tag.asp（标签页）、search.asp（搜索页）、bloglink.asp（友情链接）、Plugins/GuestBook/guestbook.asp（留言板）、plugins/aboutme/siteMaster.asp(关于)，如果还安装了其他插件，那就再继续了……

到这里就完成了，其实还有第五步，前面已经说过了，就是编辑layout.css，添加#innersidebar2，这里就不再多说了，如果哪里出现错误，请仔细对照代码，祝你好运！

让pjblog变成三栏结构（一）

eyouhome@163.com(阳光e友) — Sun,28 Feb 2010 23:41:40 +0800

现在宽屏显示器已经相当地普遍，在坛子里三栏的皮肤也在大量出现，说起三栏其实就是一个主内容框加两个侧边栏，PJBlog默认只有一个侧边栏，那么如何分成两个侧边栏正是本文要讨论的内容。

大家知道，侧边栏中每个模块都有个id与之相对应，我们可以通过控制这些“id”来改变模块的位置，这样一来就有两种方法可以实现双侧边栏效果，其一是在css中添加id，使用absolute将id进行绝对定位，放置在想要的地方，这个方法简单只需修改css即可，但如果设置不好的话会在不同的浏览器不同的分辨率下发生错位，另一种方法就是修改pjblog源程序了，让程序选择哪些模块应该放置在哪个侧边栏里面。本博客使用的就是这种方法，下面就主要说明一下此方法的实现过程。

先声明一下： 1、此方法代码部分不是我的原创，原作者是谁我也不知道，我只是从网上收集并实践后做了一点修改、补充和整理而已。 2、支持全动态和半静态模式，全静态下不支持，本人一直使用半静态模式所以就此搁笔，希望哪位爱好者有时间继续开发^_^。 3、在进行前请先将default.asp、cache.asp和library.asp三个文件做好备份以备万一。 4、本文以PJBlog3 v3.2.8.352为例，其他版本请仔细对比。

好了，现在先从css结构开始。下图是本博客的css结构，仅供参考哈：

从图中可以看出，我增加了一个#innersidebar2样式和side_html_default2变量。#innersidebar2很简单，在layout.css中添加即可，下面就side_html_default2变量的添加做介绍：
第一，找到并编辑common/cache.asp，搜索以下代码：

< 复制代码到剪贴板 >

Dim side_html_default, side_html……

然后在代码里增加一个变量，改为

< 复制代码到剪贴板 >

Dim side_html_default,side_html_default2, side_html……

第二，找到并编辑common/library.asp，搜索以下代码：

< 复制代码到剪贴板 >

Sub Side_Module_Replace()

然后从“Sub Side_Module_Replace()”到“End Sub”（整个“侧边模版处理”里面的内容）全部选中并使用下面代码替换掉：

< 复制代码到剪贴板 >

  Sub MoveModuleCode(side_html_old, side_html_new)
  If side_html_new=Empty Then Exit Sub
  If InStr(side_html_new,"$")<=0 And InStr(side_html_new,"#")<=0 Then Exit Sub
  Dim re,Matches,match
  Dim re2,Matches2,match2
  Set re2 = New RegExp
  re2.Global = true
  re2.IgnoreCase = True
  re2.Pattern = "\$[\s\S]*?\$"
  Set Matches2 = re2.Execute(side_html_new)
  Set re = New RegExp
  re.Global = true
  re.IgnoreCase = true
  re.Multiline = True
  re.Pattern = "<div id=""Side_([^""]+)"" class=""sidepanel"">([\s\S]*?)<div class=""Pfoot""></div></div>"
  Set Matches = re.Execute(side_html_old)
  For Each match In Matches
  If InStr(side_html_new,"#"&match.SubMatches(0)&"#")>0 Then
  side_html_new = Replace(side_html_new, "#"&match.SubMatches(0)&"#", match.Value)
  side_html_old = Replace(side_html_old, match.Value, "")
  Else
  For Each match2 In Matches2
  If InStr(match.SubMatches(1),match2.Value)>0 Then
  side_html_new = Replace(side_html_new, match2.Value, match.Value)
  side_html_old = Replace(side_html_old, match.Value, "")
  Exit For
  End If
  If match2.Value="$system_info$" And InStr(match.SubMatches(1),"$blog_LogNums$")>0 Then
  side_html_new = Replace(side_html_new, "$system_info$", match.Value)
  side_html_old = Replace(side_html_old, match.Value, "")
  Exit For
  End If
  Next
  End If
  Next
  End Sub
Sub Side_Module_Replace()
  Call MoveModuleCode(side_html_default,side_html_default2)
  '日历处理
  Dim Cal_code
  Cal_code = Calendar(log_Year, log_Month, log_Day, 1)
  side_html_default = Replace(side_html_default, "$calendar_code$", Cal_code)
  side_html_default2 = Replace(side_html_default2, "$calendar_code$", Cal_code)
  side_html = Replace(side_html, "$calendar_code$", Cal_code)
  side_html_static = Replace(side_html_static, "$calendar_code$", Cal_code)

  '用户面板处理
  Dim user_code
  user_code = userPanel
  side_html_default = Replace(side_html_default, "$user_code$", user_code)
  side_html_default2 = Replace(side_html_default2, "$user_code$", user_code)
  side_html = Replace(side_html, "$user_code$", user_code)
  side_html_static = Replace(side_html_static, "$user_code$", user_code)

  '归档面板处理
  Dim archive_code
  archive_code = Archive(1)
  If IsNull(archive_code) or archive_code=Empty Then archive_code="empty"
  side_html_default = Replace(side_html_default, "$archive_code$", archive_code)
  side_html_default2 = Replace(side_html_default2, "$archive_code$", archive_code)
  side_html = Replace(side_html, "$archive_code$", archive_code)
  side_html_static = Replace(side_html_static, "$archive_code$", archive_code)

  '树形分类处理
  Dim Category_code
  Category_code = CategoryList(1)
  If IsNull(Category_code) or Category_code=Empty Then Category_code="empty"
  side_html_default = Replace(side_html_default, "$Category_code$", Category_code)
  side_html_default2 = Replace(side_html_default2, "$Category_code$", Category_code)
  side_html = Replace(side_html, "$Category_code$", Category_code)
  side_html_static = Replace(side_html_static, "$Category_code$", Category_code)

  '显示统计信息
  side_html_default = info_code(side_html_default)
  side_html_default2 = info_code(side_html_default2)
  side_html = info_code(side_html)
  side_html_static = info_code(side_html_static)

  '处理最新评论内容
  Dim Comment_code
  Comment_code = NewComment(1)
  If IsNull(Comment_code) or Comment_code=Empty Then Comment_code="empty"
  side_html_default = Replace(side_html_default, "$comment_code$", Comment_code)
  side_html_default2 = Replace(side_html_default2, "$comment_code$", Comment_code)
  side_html = Replace(side_html, "$comment_code$", Comment_code)
  side_html_static = Replace(side_html_static, "$comment_code$", Comment_code)

  '处理友情链接内容
  Dim Link_Code
  Link_Code = Bloglinks(1)
  If IsNull(Link_Code) or Link_Code=Empty Then Link_Code="empty"
  side_html_default = Replace(side_html_default, "$Link_Code$", Link_Code)
  side_html_default2 = Replace(side_html_default2, "$Link_Code$", Link_Code)
  side_html = Replace(side_html, "$Link_Code$", Link_Code)
  side_html_static = Replace(side_html_static, "$Link_Code$", Link_Code)
  End Sub

（未完）

让卡巴斯基长久免费

eyouhome@163.com(阳光e友) — Wed,10 Feb 2010 22:37:20 +0800

先插播广告：卡巴斯基真的很好用，除非你电脑配置太低。
再发表声明：好软件一定要用正版，除非你实在囊中羞涩。

俺就是这样的人，东西好坏还是能分辨出来滴，对于正版精神上还是支持滴，只是实在是囊中羞涩羞于启齿，毕竟防火墙、查毒软件一个也不能少，俺还是要用的，处于上述理由，俺没有选择网上的破解版，俺用软件通常都是从官方网站上下载正版的来用，只是这授权文件嘛……小小鄙视一下自己，无奈呀！

卡巴斯基我用的是全功能安全软件2010（KIS9.0），好东西虽然很好用，只是这共享的授权文件常常会被官方封掉，然后自己又要到网上乱搜一通，再去给每个朋友都换掉，搞得自己也要疯掉！我想官方一定也很辛苦，唉！啥时有钱了一定要买正版，他好我也好！其实如果朋友们自己学会更换授权许可，那对我对大家都方便省事，所以我将卡巴斯基免费的方法整理出来供大家参考，大家好才是真的好！

这里就以全功能安全软件2010（KIS9.0）为例，按照下面顺序进行操作：

一、找可用的授权：
从网上搜索并下载最新发布的授权文件。我通常是在找key网上下载，这个网站更新很快，当你卡巴斯基提示授权不能用的时候，这里就会有新的授权文件发布。下载后解压可得到多个.reg授权许可文件，注意不要双击。

二、删除旧授权许可：
这一步是必须要做的，打开卡巴斯基主界面，点击最下面的“授权许可”弹出“授权许可管理器”窗口，点击那个红叉叉即可删掉失效的授权许可。

三、导入新授权许可：
点击下面的“激活新授权许可”出现激活向导，在这里你会发现KIS9.0竟然找不到导入授权许可文件的地方，似乎只能用激活码，其实这里面是有技巧的，在激活向导里有两种激活方法，任选其一都可以：

1 激活商用授权：在输入框里输入一个无效的激活码，比如BSKRJ-6MC9K-T32JP-71AAY，点下一步……
2 激活试用授权：首先暂时断网，然后选择“激活试用授权”，点下一步……

第一种方法不用断网只需准备一个失效的激活码，第二种方法必须先断网，否则卡巴斯基会送你一个30天的试用授权，这样虽然也好，但在这30天试用期间，卡巴斯基会不断地弹窗口来骚扰你，真的很烦很烦滴。接前面，点下一步后会连接到激活服务器，稍等就会提示错误出来，点确定，然后又回到激活向导的窗口，这时你就可以点“浏览”来添加新的授权文件。

学会了自己操作就可以让卡巴斯基长久免费，虽然麻烦，但毕竟省钱！

PS：以上内容仅供参考，虽然似乎可以实现长久免费，但是我还是建议你购买正版！

今天把评论部分又完善了一下

eyouhome@163.com(阳光e友) — Mon,08 Feb 2010 21:55:32 +0800

因为考虑到有些网友不愿意公开自己的邮箱，所以再次修改了cls_article文件的评论部分，这样的话在管理员没有登录的状态下只能显示网友的网址，而邮箱是隐藏的，只有管理员登录后才能看到。另外把那几个小图标也换掉了，这样看起来协调多了。

新皮Darklight_eyou终于完成了

eyouhome@163.com(阳光e友) — Thu,04 Feb 2010 22:21:18 +0800

博客新皮 DarkLight_eyou 终于完成了，在另一个空间测试多次后今天正式换上了，这个皮肤原名叫DarkLight，原作者是Alanoy，用的是WordPress程序系统，很早以前我第一次看到这个皮肤时就非常喜欢，当时正准备建立自己独立的博客，正在关注着几个博客系统，就因为这个DarkLight我用上了WordPress，可惜的是WP并不好用，应该说是自己对php认识太少，加之空间速度太慢，特别是WP的后台速度超慢无法忍受，无奈只好最终抛弃了WP，之后我便投向了PJBlog，并做了一个皮肤起名叫eyouhomeSkin，同时修改了大量pjblog程序来完美它，pjblog最大的好处就是开源，想改就改很容易上手。eyouhomeSkin改来改去虽然算是完成了，但我总是不很满意，后来一个朋友看后指出不少美工方面的问题，使我终于拿定主意重新做一张新皮，这样，我的心又回到了DarkLight。

DarkLight外观仿制并不是很难，大量问题出在pjblog源程序的修改上，要修改的东西太多了，每天上班时只能偷偷干一点，大量工作要在晚上完成，最终在两眼发红的状态下完成了对动态、伪静态、全静态下的成功测试。

这个pjblog的新皮肤与原darklight相比，我仿了他的head、foot和色调，而整体上来说还是做了较多的变化，主要是三栏结构，就是双侧边栏，还有添加了一些色彩元素在里面，这样看起来感觉不至于太沉闷。因为有大量心血在里面，而且与原皮肤有较多不同，所以将这个皮肤起名为DarkLight_eyou，这里并没有侵权的意思，同时提供原作者博客地址以表尊重！

alan's world: http://www.alanoy.com/

忘记说了，目前还有部分小图标没有完成制作，还有就是原程序修改东西太多太多了，所以皮肤无法拿出来分享，单纯扒皮下来也是不能用的。

截图留念：

终于把导航做好了

eyouhome@163.com(阳光e友) — Mon,04 Jan 2010 22:40:47 +0800

总算把导航条做好了，断断续续弄了好几天，在ie8下测试正常后原以为ok了，换了ie6后发现位置又跑了而且跑远了，无奈只好安装了个IETester，来同时测试ie6、ie7和ie8，还安装了firefox，当然这些东东本应该是网站设计人员必须用到的，主要是安装win7后一直忙没有时间弄，这才给自己带来很多不便。
现在除了在firefox下不能实现透明外，其他都完成了，关于那个Alpha滤镜其实在firefox下也是支持的，只是要麻烦一点，想了想还是算了，就这样了。

PJblog侧边栏留言、评论、日志字数调整

eyouhome@163.com(阳光e友) — Sun,06 Dec 2009 16:41:42 +0800

（一）PJblog侧边栏留言、评论、日志字数调整

侧边栏的留言板、最新评论和最新发表默认是25个字，很容易造成溢出，影响到整体美观，这里有两中方法来解决：
方法一：修改layout.css文件中.sidepanel，或者在link.css文件修改.sideA属性，固定width，并设定overflow=hidden。
方法二：修改配置文件来解决：
1 留言板GuestBook的修改：
打开Plugins\GuestBook\install.xml文件，找到

发表留言 "&CHR(10)&CCEncode(CutStr(DelQuote(Message_Item(3)),100))&""">"&CCEncode(CutStr(DelQuote(Message_Item(3)),25))&"

前面那个100是鼠标移上去时显示的留言内容字数，后面那个25是我们要修改的显示字数，比如修改为15，那么在右侧栏留言字数只显示15个字，超出字数时用...代替。

2 最新发表Recent Article的修改：
打开Plugins\NewTopArticle\install.xml文件，找到

发表该日志"&CHR(10)&CCEncode(CutStr(Article_Item(3),25))&""">"&CCEncode(CutStr(Article_Item(3),25))&"

（PJBlog v227有一处，v352版有两处都要修改）
和留言板一样，前面的25是鼠标移上去时显示的字数，后面的25是显示字数。

3 评论Comment的修改：
这里PJblog v227和v352有些不一样，
[PJBlog3 v3.1.6.227]打开commmon\cache.asp文件，找到

发表评论："&Chr(10)&CCEncode(CutStr(DelQuote(blog_Comment(3, i)), 45))&""">"&CCEncode(CutStr(DelQuote(blog_Comment(3, i)), 25))&"

同样，那个45是鼠标移上去的字数，后面的15是显示字数。

[PJBlog v352]打开commmon\cache.asp文件，找到

&Chr(10)&CCEncode(CutStr(DelQuote(blog_Comment(3, i)), 100))

共两处，这里是鼠标移上去的字数。

NewComment = NewComment&CCEncode(CutStr(DelQuote(blog_Comment(3, i)), 25))

共两处都改，这里是显示字数。

（二）留言、评论、新发表条目数修改：

1 留言板GuestBook的修改，找到
【 Select top 10 * FROM blog_book order by book_PostTime Desc 】
修改那个10
2 最新发表Recent Article的修改：
【 Select top 10 C.log_ID,C.log_Author 】
修改那个10
3 评论Comment的修改：
打开commmon\cache.asp文件，找到：

==============最新评论缓存============
Function NewComment(ByVal action)
Dim blog_Comment, ShowLen, i
ShowLen = 10 '显示最新评论预览数量

修改那个10。

阳光e友的博客 - 博 客

闲来无事改了一下highslide

win7上帝模式及文件夹加密

给PJblog添加digg功能

让pjblog变成三栏结构（二）

让pjblog变成三栏结构（一）

让卡巴斯基长久免费

今天把评论部分又完善了一下

新皮Darklight_eyou终于完成了

终于把导航做好了

PJblog侧边栏留言、评论、日志字数调整

阳光e友的博客 - 博客