PJ-Blog技巧集合

<span style="color:Red">为Blog添加漂亮的“载入中”对话框</span>

想不到竟然这么多朋友想知道我的载入画面是怎么做的～～呵呵，好像这个在PJBlog的论坛上曾经见过，不过还是再写一篇日志吧。演示嘛，还是看我的网站就看到了。

首先，打开header.asp，在[head]的后面，插入以下代码：

程序代码

<%'=======X-Force添加的Loading界面==========%>

#loader_container {

text-align:center;

position:absolute;

top:40%;

width:100%;

left: 0;

}

#loader {

font-family:Tahoma, Helvetica, sans;

font-size:11.5px;

color:#000000;

background-color:#FFFFFF;

padding:10px 0 16px 0;

margin:0 auto;

display:block;

width:230px;

border:1px solid #5a667b;

text-align:left;

z-index:2;

}

#loader_bg {background-color:#e4e7eb;

position:relative;

top:8px;

left:8px;

height:7px;

width:213px;

font-size:1px}

#progress {

height:5px;

font-size:1px;

width:1px;

position:relative;

top:1px;

left:0px;

background-color:#77A9E0

}

</style>

//读取框

var t_id = setInterval(animate,20);

var pos=0;

var dir=2;

var len=0;

function animate()

{

var elem = document.getElementById('progress');

if(elem != null) {

if (pos==0) len += dir;

if (len>32 || pos>179) pos += dir;

if (pos>179) len -= dir;

if (pos>179 && len==0) pos=0;

elem.style.left = pos;

elem.style.width = len;

}

function remove_loading() {

this.clearInterval(t_id);

var targelem = document.getElementById('loader_container');

targelem.style.display='none';

targelem.style.visibility='hidden';

initJS();

}

</script>

<%'============X-Force添加的Loading界面==========%>

然后，找到：

程序代码

将其修改为：

程序代码

<%'===========X-Force的Loading界面==========%>

本站靓靓の页面正在很用力de加载中... <br>

版权归 www.X-Force.cn 所有

</div>

</div>

<%'===========X-Force的Loading界面==========%>

好了，就这么简单。

注：尊重版权，转载时请注明出处，谢谢合作。[pagesplitxx]

<span style="color:Red">PJBlog2 Plugin：AboutMePro</span>

这个功能有一定加强的AboutMePro原先只是我对PuterJam的AboutMe插件按照我的需要作了一些小小的改进，使其能够显示更多的内容，因为我觉得PuterJam的显示的信息太少，并且是以表格数据的形式呈现，不够自由和个性化。而且本来也不是插件的形式，更没有打算要公开，但今天有某网友对此表示了兴趣，因此稍微用了点时间将其改为PJBlog2插件，使其更易于使用，同时也顺便添加了一些新的功能。

由于改的比较匆忙，未作全面测试，若有发现错误请速告知。

现在的AboutMePro的功能有：

1.显示的附加信息的数据从特定的日志中获取，因此可包含图片、Flash，甚至音频、视频，只要PJBlog2支持的都可以在AboutMePro中显示，更加自由，富有个性化。

2.可自由选择隐藏或显示附加信息和个人信息。

3.可选择是否显示更新信息。

4.个人档案页面中有修改附加信息的入口，管理员可直接进行修改。

使用方法：新建一篇关于你要在AboutMePro中显示的附加信息的日志，记住ID，在后台插件基本设置中选择显示附加信息，并添入正确的日志ID。

具体的显示效果可进入

<a target="_blank" href="http://www.jinnlife.com/LoadMod.asp?plugins=AboutMePro">以下演示地址</a>

。

插件名称：AboutMePro

发布时间：2006-02-17

设计作者：JinnLynn

使用说明：本人原创。免费使用，但必须遵循创作共用(Creative Commons)约定。

<img src="http://www.jinnlife.com/images/download.gif" border="0" alt=""/><a target="_blank" href="http://www.jinnlife.com/attachments/Design/Plugin_AboutMePro.rar">点击下载此文件</a>

<span style="color:Red">PJ-Blog教程┊为你的置顶日志添加醒目的“置顶”标识</span>

是不是觉得PJBlog置顶的日志标题不够醒目？想修改吗？其实不难～来，我们加个醒目的标题！

PJBlog分静态日志和动态日志两种模式，且静态和动态时都有普通显示和列表显示日志的选项，所以，我们要改4个地方。

动态模式：

打开class/cls_default.asp 搜索

（共找到2个，一个普通模式，一个列表模式，都要改）

第一处，原来是这样：

修改成：

[code]<%'=================X-Force修改的动态普通模式置顶字符=================%>

<%'=================X-Force修改的动态普通模式置顶字符=================%>[/code]

第二处：

原来是这样<div class="UBBPanel"><div class="UBBTitle"><img src="images/code.gif" style="margin:0px 2px -3px 0px" alt="程序代码"/> 程序代码</div><div class="UBBContent"><a href="<%=logLink%>" title="作者:<%=webLogArr(2,PageCount)%> 日期:<%=DateToStr(webLogArr(4,PageCount),"Y-m-d")%>"><%=HtmlEncode(webLogArr(3,PageCount))%></a></div></div>

我改成：[code]<%'=================X-Force修改的动态列表模式置顶字符=================%>

<a href="<%=logLink%>" title="作者:<%=webLogArr(2,PageCount)%> 日期:<%=DateToStr(webLogArr(4,PageCount),"Y-m-d")%>"><%if webLogArr(9,PageCount) then response.Write "<font color='#ff0000'>热点聚焦∴ </font>"%><%=HtmlEncode(webLogArr(3,PageCount))%></a>

<%'=================X-Force修改的动态列表模式置顶字符=================%>[/code]

静态模式：

打开class/cls_logAction.asp

搜索<div class="UBBPanel"><div class="UBBTitle"><img src="images/code.gif" style="margin:0px 2px -3px 0px" alt="程序代码"/> 程序代码</div><div class="UBBContent">Temp1=Replace(Temp1,"<$log_Title$>",HtmlEncode(log_View("log_Title")))</div></div>

改为：[code]'＝＝＝＝＝＝＝＝＝＝＝＝X-Force修改的静态普通模式“置顶”字符＝＝＝＝＝＝＝＝＝＝＝

'原来是：

'Temp1=Replace(Temp1,"<$log_Title$>",HtmlEncode(log_View("log_Title")))

'现在改为：

if log_View("log_IsTop") then

Temp1=Replace(Temp1,"<$log_Title$>","<font color='#ff0000'>热点聚焦∴ </font>"&HtmlEncode(log_View("log_Title")))

Else

Temp1=Replace(Temp1,"<$log_Title$>",HtmlEncode(log_View("log_Title")))

End if

'＝＝＝＝＝＝＝＝＝＝＝＝X-Force修改的静态普通模式“置顶”字符＝＝＝＝＝＝＝＝＝＝＝[/code]

刚改完的上面是普通模式，下面是列表模式

搜索：<div class="UBBPanel"><div class="UBBTitle"><img src="images/code.gif" style="margin:0px 2px -3px 0px" alt="程序代码"/> 程序代码</div><div class="UBBContent">Temp2=Replace(Temp2,"<$log_Title$>",HtmlEncode(log_View("log_Title")))</div></div>

改为：[code]'＝＝＝＝＝＝＝＝＝＝＝＝X-Force修改的静态列表模式“置顶”字符＝＝＝＝＝＝＝＝＝＝＝

'原本是这样：

'Temp2=Replace(Temp2,"<$log_Title$>",HtmlEncode(log_View("log_Title")))

'现在改为：

if log_View("log_IsTop") then

Temp2=Replace(Temp2,"<$log_Title$>","<font color='#ff0000'>热点聚焦∴ </font>"&HtmlEncode(log_View("log_Title")))

Else

Temp2=Replace(Temp2,"<$log_Title$>",HtmlEncode(log_View("log_Title")))

End if

'＝＝＝＝＝＝＝＝＝＝＝＝X-Force修改的静态列表模式“置顶”字符＝＝＝＝＝＝＝＝＝＝＝[/code][pagesplitxx]

<span style="color:Red">Yupoo相册插件更新, For PJBlog增强版V1.2 安装说明下载</span>

Yupoo相册 For <a target="_blank" href="http://www.pjhome.net/">PJBlog</a>增强版 V1.2 插件安装说明

by xiwen

e-mail: xiwen0217@gmail.com

演示地址:

<span style="color:Red"><a target="_blank" href="http://www.nhljz.cn/">http://www.nhljz.cn</a></span>

===========================================

在原有的Yupoo相册基础上进行了优化,增加了功能,感谢yupoo的gofeeling的帮助修改.

2006年11月15日 V1.2 修改如下:

1.取消通过access数据库记录API信息,转为读写xml来记录API.

2.更新完善自动安装相册的lightbox效果

2006年10月26日 V1.1 修改如下:

1.修正了因为服务器不支持ACCESS2003数据库导致的 Provider=Microsoft.Jet.OLEDB.4.0;Data

Source=F:\****\plugins\yupoo\db\yupoo_config.aspDB

Error: 424:Object required

数据库读写错误.

2.解决绑定API关闭浏览器再次访问相册出现"该系统还未配置我的相册"的错误.

3.简化上一版本的安装步骤,并且不暴露API.

2006年10月19日 V1.0 修改如下:

1. 规范了排列方法,避免出错.

2.相册中图片采用75*75小图标显示,提高下载速度(由于yupoo目前还没有提供相册中图片分页功能,所以有的相册里面照片很多会影响下载速度)

3.结合lightbox插件,点击后可以看到500像素的大图,不需要访问yupoo网站,点开大图后也有链接可以链接到yupoo上的原始图片,

4.增加了根据标签列出照片列表的功能,

--------------------------------------------------------------------------------------------------------------------------------------------

安装yupoo相册(安装方法同原有yupoo相册,步骤如下)

1. 这是利用Yupoo API实现的一个<a target="_blank" href="http://www.pjhome.net/">PJBlog</a>插件的样例, 试用于<a target="_blank" href="http://www.pjhome.net/">PJBlog</a> 2.3以上版本

通过这个插件,您可以在您的<a target="_blank" href="http://www.pjhome.net/">PJBlog</a>上使用来自Yupoo的服务!

2. 将压缩包中的文件解压拷贝到您的<a target="_blank" href="http://www.pjhome.net/">PJBlog</a>安装目录

############# 为保证安全 ##########################

(1) 请进入 /plugins/yupoo/db/ 目录,重命名yupoo_config.xml 如:/plugins/db/you_can_not_find_it.xml

(2) 然后打开 /plugins/yupoo/common/const.asp 找到

YUPOO_DB_PATH = Context_Path & "plugins/yupoo/db/yupoo_config.xml"

将其中yupoo_config.asp替换成你第一步改变后的名称

###############################################

3. 使用本插件之前,请确保您已经是Yupoo的用户, 并且申请了API KEY

注册成为Yupoo用户:

<a target="_blank" href="http://www.yupoo.com/account/signup">http://www.yupoo.com/account/signup</a>

申请API KEY

<a target="_blank" href="http://www.yupoo.com/services/api/apply">http://www.yupoo.com/services/api/apply</a>

在网站通过您的API KEY申请后, 请登录下面地址配置您的API KEY:

<a target="_blank" href="http://www.yupoo.com/services/api/keys">http://www.yupoo.com/services/api/keys</a>

(1)应用程序标题: 随便填写

(2)应用程序描述: 随便填写

(2) 应用程序主页: 请输入<a target="_blank" href="http:///">http://</a>您的PJBLOG所在地址如: <a target="_blank" href="http://www.stoyard.com/">http://www.stoyard.com</a>/blog

(1) 认证类型: 请选择Web应用

(2) Web应用重定向地址: 请输入<a target="_blank" href="http:///">http://</a>您的PJBLOG所在地址/plugins/yupoo/yp_bind.asp 如: <a target="_blank" href="http://www.stoyard.com/">http://www.stoyard.com</a>/blog/plugins/yupoo/yp_bind.asp

保存配置后即可, 请记下这个界面的API KEY 和 Shared Secret, 作为下一步绑定时使用!

4. 进入

<a target="_blank" href="http://www.pjhome.net/">PJBlog</a>后台管理 -> 界面与插件 -> 安装模块插件 -> 我的Yupoo相册

安装完成后, 进入 <a target="_blank" href="http://www.pjhome.net/">PJBlog</a>后台管理 -> 界面与插件 -> 已装插件管理 -> 我的Yupoo相册 -> 高级设置

根据界面提示输入相应地API KEY和Shared Secret 即可完成绑定

如果出现yupoo的登陆界面,则输入 email 和密码完成登陆,然后会出现绑定成功画面

#####################################

Yupoo API为保证用户的信息安全, 回避了直接采用用户名和密码进行信息绑定的方式,而是通过APIKEY和Shared Key的方式,保证了用户数据在跨站点间数据传递的安全性.

#################################

<a target="_blank" href="http://www.stoyard.com/attachments/month_0611/yupoo_pro_1.2.rar">点击下载yupoo相册增强版V1.2</a>

</strong>

<span style="color:Red">[功能] 每篇日志右下角加上"返回顶部"</span>

第一步：编辑class\cls_default.asp文件，找到以下代码:

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

在后面加上: | <a href="javascript:scroll(0,0)">返回顶部</a>

第二步：("站点基本设置->静态日志模志"没有开启则不需要做这一步!)

站点基本设置->初始化数据->重新生成所有日志到文件。

如需在单条日志文件也实现此功能

第一步：编辑class\cls_article.asp文件,找到以下代码:

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

在后面加上: | <a href="javascript:scroll(0,0)">返回顶部</a>

第二步：("站点基本设置->静态日志模志"没有开启则不需要做这一步!)

站点基本设置->初始化数据->重新生成所有日志到文件。

效果见:http://www.sweethoney.cn

原文地址:http://www.sweethoney.cn/article.asp?id=35

有网友回复可以此代码代替:<a href="?#top">返回顶部</a>

经本人验证,opera,firefox对此代码支持都不好,无法实现返回顶部的功能.

建议使用<a href="javascript:scroll(0,0)">返回顶部</a>建,此代码完美支持opera,firefox,ie[pagesplitxx]

<span style="color:Red"><strong>评论、留言、后台管理等处直接显示用户地址实现方法</strong></span>

<a target="_blank" href="http://bbs.pjhome.net/viewthread.php?tid=11100&pid=68103&page=1&extra=page%3D1#pid68103">http://bbs.pjhome.net/viewthread.php?tid=11100&pid=68103&page=1&extra=page%3D1#pid68103</a>

<span style="color:Red"><strong>用asp打包或解压xml文件_asp程序</strong></span>

<a target="_blank" href="http://www.isll.cn/article.asp?id=318">http://www.isll.cn/article.asp?id=318</a>

<span style="color:Red"><strong>增加被百度等搜索引擎的优化方法之一</strong></span>

<a target="_blank" href="http://www.isll.cn/article.asp?id=199">http://www.isll.cn/article.asp?id=199</a>

<span style="color:Red"><strong>如何在首页上直接显示登陆</strong></span>

说明，这个并不是我写的，不知道在哪看到的，问的人实在太多，我就给贴上

打开 common/library.asp文件，

**********************************************

用户面板

'**********************************************

在这个范围贴上下面的代码

'**********************************************

输出日记统计信息

'**********************************************

[code]function userPanel()

userPanel=""

if memName<>Empty then userPanel=userPanel&" <b>"&memName&"</b>，欢迎你!<br/>你的权限: "&stat_title&"<br/><br/>"

if stat_Admin=true then userPanel=userPanel+"<a href=""control.asp"" class=""sideA"" accesskey=""3"">系統管理</a>"

if stat_AddAll=true or stat_Add=true then userPanel=userPanel+"<a href=""blogpost.asp"" class=""sideA"" accesskey=""N"">发表日记</a>"

if (stat_AddAll=true or stat_Add=true) and (stat_EditAll or stat_Edit) then

if isEmpty(session(CookieName&"_draft_"&memName)) then

session(CookieName&"_draft_"&memName)=conn.execute("select count(log_ID) from blog_Content where log_Author='"&memName&"' and log_IsDraft=true")(0)

SQLQueryNums=SQLQueryNums+1

end if

if session(CookieName&"_draft_"&memName)>0 then

userPanel=userPanel+"<a href=""default.asp?display=draft"" class=""sideA"" accesskey=""D""><strong>编辑草稿 ["&session(CookieName&"_draft_"&memName)&"]</strong></a>"

else

userPanel=userPanel+"<a href=""default.asp?display=draft"" class=""sideA"" accesskey=""D"">编辑草稿</a>"

end if

if memName<>Empty then

userPanel=userPanel&"<a href=""member.asp?action=edit"" class=""sideA"" accesskey=""M"">修改資料</a><a href=""login.asp?action=logout"" class=""sideA"" accesskey=""Q"">退出系统</a>"

else

userPanel=userPanel&"<form name=""checkUser"" action=""login.asp"" method=""post""><input name=""action"" type=""hidden"" value=""login""/><label><b>用户名︰</b><input name=""username"" type=""text"" size=""12"" class=""userpass"" maxlength=""24""/></label><br/><label><B>密　码︰</B><input name=""password"" type=""password"" size=""12"" class=""userpass""/></label><br/><label><B>验证码︰</B><input name=""validate"" type=""text"" size=""4"" class=""userpass"" maxlength=""4""/>"&getcode()&"</label><br/><label><input name=""KeepLogin"" type=""checkbox"" value=""1""/>记住我的登陆信息</label><br/><input type=""submit"" value=""登　陆"" class=""userbutton""/>　<input type=""button"" value=""注　册"" class=""userbutton"" onclick=""location.href='register.asp'""/></form>"

end if

end function[/code]

<span style="color:Red"><strong>调用方法┊PJBLOG首页调用</strong></span>

把本文的代码,新键文件topblog.asp，上传到你的博客空间即可.

在你要显示博客首页调用的地方:

加入如下代码即可

[code]

'==================================================================================================

'File name: topblog.asp

'首页调用文件

'原文更新时间: 2005-12-25

'清风修改时间: 2006-09-22

'QQ: 110125707 MSN: anwellsz@msn.com Blog.Wind88.Net

'showType 输出类型,类型有五种

'留空 = [分类]标题+作者

'1 = [分类]标题+日期

'2 = 标题+作者

'3 = 标题+日期

'4 = 标题

'titleLength 标题长度

'authorLength 作者名称长度

'topLen 调用几条记录

'示例: <script language="javascript" src="你的网址/topblog.asp?showtype=4&TopLen=7&titleLength=50">

'==================================================================================================

getInfo(1)

Response.Charset = "UTF-8"

Response.Expires=60

Dim cate_ID,FeedCate,FeedTitle,memName,FeedRows

Dim showType,titleLength,authorLength,topLen

cate_ID=CheckStr(Request.QueryString("cateID"))

showType=Request.QueryString("showType")

titleLength=Request.QueryString("titleLength")

authorLength=Request.QueryString("authorLength")

topLen = Request.QueryString("topLen")

If Not isinteger(topLen) Then topLen = 10

if IsInteger(titleLength)=false then titleLength=20

if IsInteger(authorLength)=false then authorLength=6

FeedCate=False

IF IsInteger(cate_ID) = False Then

SQL="Select TOP "&topLen&" L.log_ID,L.log_Title,l.log_Author,L.log_PostTime,C.cate_Name,C.cate_ID,log_IsTop FROM blog_Content AS L,blog_Category AS C Where C.cate_ID=L.log_cateID AND L.log_IsShow=true AND L.log_IsDraft=false and C.cate_Secret=false orDER BY log_IsTop,log_PostTime DESC"

Else

SQL="Select TOP "&topLen&" L.log_ID,L.log_Title,l.log_Author,L.log_PostTime,C.cate_Name,C.cate_ID,log_IsTop FROM blog_Content AS L,blog_Category AS C Where log_cateID="&cate_ID&" AND C.cate_ID=L.log_cateID AND L.log_IsShow=true AND L.log_IsDraft=false and C.cate_Secret=false orDER BY log_IsTop,log_PostTime DESC"

FeedCate=True

End If

Dim RS,DisIMG,i

Set RS=Conn.ExeCute(SQL)

if RS.EOF or RS.BOF then

ReDim FeedRows(0,0)

else

if FeedCate then FeedTitle=SiteName & " - " & RS("cate_Name")

FeedRows=RS.getrows()

end if

RS.close

set RS=nothing

Conn.Close

Set Conn=Nothing

if ubound(FeedRows,1)=0 then

document.write ("没有找到任何日志")

else

for i=0 to ubound(FeedRows,2)

select case showType

case 1:

document.write ("<div><span style=\"float:right\"><%=DateToStr(FeedRows(3,i),"Y-m-d")%></span>[<a href=\"<%=SiteURL&"default.asp?cateID="&FeedRows(5,i)%>\" target=\"_blank\"><%=toUnicode(FeedRows(4,i))%></a>]<a href=\"<%=SiteURL&"default.asp?id="&FeedRows(0,i)%>\" target=\"_blank\" title=\"<%=toUnicode(FeedRows(1,i))%>\"><%=toUnicode(CutStr(FeedRows(1,i),titleLength))%></a></div>")

case 2:

document.write ("<div><span style=\"float:right\"><a href=\"<%=SiteURL%>\" title=\"<%=toUnicode(FeedRows(2,i))%>\"><%=toUnicode(CutStr(FeedRows(2,i),authorLength))%></a></span><a href=\"<%=SiteURL&"default.asp?id="&FeedRows(0,i)%>\" target=\"_blank\" title=\"<%=toUnicode(FeedRows(1,i))%>\"><%=toUnicode(CutStr(FeedRows(1,i),titleLength))%></a></div>")

case 3:

document.write ("<div><span style=\"float:right\"><%=DateToStr(FeedRows(3,i),"Y-m-d")%></span><a href=\"<%=SiteURL&"default.asp?id="&FeedRows(0,i)%>\" target=\"_blank\" title=\"<%=toUnicode(FeedRows(1,i))%>\"><%=toUnicode(CutStr(FeedRows(1,i),titleLength))%></a></div>")

case 4:

document.write ("<div> <a href=\"<%=SiteURL&"default.asp?id="&FeedRows(0,i)%>\" target=\"_blank\" title=\"<%=toUnicode(FeedRows(1,i))%>\" style=\"color:#0469C4;TEXT-DECORATION: underline\"><%=toUnicode(CutStr(FeedRows(1,i),titleLength))%></a></div>")

case else:

document.write ("<div><span style=\"float:right\"><a href=\"<%=SiteURL%>\" title=\"<%=toUnicode(FeedRows(2,i))%>\"><%=toUnicode(CutStr(FeedRows(2,i),authorLength))%></a></span>[<a href=\"<%=SiteURL&"default.asp?cateID="&FeedRows(5,i)%>\" target=\"_blank\"><%=toUnicode(FeedRows(4,i))%></a>]<a href=\"<%=SiteURL&"default.asp?id="&FeedRows(0,i)%>\" target=\"_blank\" title=\"<%=toUnicode(FeedRows(1,i))%>\"><%=toUnicode(CutStr(FeedRows(1,i),titleLength))%></a></div>")

end select

end if

function toUnicode(str) 'To Unicode

dim i, unicodeF, getUnicode

for i=1 to len(str)

unicodeF=Mid(str,i,1)

getUnicode=getUnicode & chr(38) & chr(35) & chr(120) & Hex(ascw(unicodeF)) & chr(59)

toUnicode=getUnicode

end function

%>[/code][pagesplitxx]

<span style="color:Red">垃圾引用防止补丁</span>

http://bbs.pjhome.net/viewthread.php?tid=9491&highlight=%B2%E5%BC%FE

<span style="color:Red">修改PJblog2的日志日期归档</span>

PJBlog2的日志日期归档（即Archive栏）当跨越时间过长后，就会导致侧边栏也过长，再加上如果友情链接栏也过长的话就会导致整个页面不协调，今天逛逛PJblog官方交流论坛，在里面发现了网友自己动手改动的简短日期归档，把方法摘录下来，方便下次升级是使用。

在改动之前，首先打开common/cache.asp，用任意的文本或网页编辑软件打开，在275行附近找到处理日志归档的函数archive，我们的修改都在这个函数中完成。

[code]

'-----------------读取日志归档缓存--------------------

if action<>2 then

Dim archive_item_Len,Month_array

if ubound(blog_archive,1)=0 then archive="":exit function

Month_array=Array("一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月")

archive_item_Len=ubound(blog_archive,2)

For i=0 to archive_item_Len

archive=archive&"<a class=""sideA"" href=""default.asp?log_Year="&blog_archive(1,i)&"&log_Month="&blog_archive(2,i)&""" title=""查看当前日期的日志"">"&blog_archive(1,i)&"年"&Month_array(blog_archive(2,i)-1)&" ["&blog_archive(0,i)&"]</a>"

end if

end function

'=====================End Function========================

[/code]

方法一：来自何昕博客（http://www.hxblog.net/LoadMod.asp?plugins=GuestBookForPJBlog&page=7）

将以下代码覆盖掉原文件中“读取日志归档缓存”后从“if action<>2 then”到“end if”之间的所有代码。

[code]

if action<>2 then

Dim archive_item_Len,Month_array,TempYear,MonthCounter

if ubound(blog_archive,1)=0 then archive="":exit function

Month_array=Array("01月","02月","03月","04月","05月","06月","07月","08月","09月","10月","11月","12月")

archive_item_Len=ubound(blog_archive,2)

TempYear=blog_archive(1,0)

MonthCounter=0

For i=0 to archive_item_Len

IF i=0 Then archive="<a class=""sideA"" style=""margin:0px 0px 0px -2px;"" href=""default.asp?log_Year="&blog_archive(1,i)&""" title=""查看"&blog_archive(1,i)&"年的日志"">"&blog_archive(1,i)&"</a>"

IF blog_archive(1,i)=TempYear Then

archive=archive&"<a style=""margin-right:3px;"" href=""default.asp?log_Year="&blog_archive(1,i)&"&log_Month="&blog_archive(2,i)&""" title="""&blog_archive(1,i)&"年"&blog_archive(2,i)&"月有"&blog_archive(0,i)&"篇日志"">"&Month_array(blog_archive(2,i)-1)&"</a>"

MonthCounter=MonthCounter+1

IF MonthCounter=5 Then MonthCounter=0:archive=archive&"<br/>"

Else

MonthCounter=1

archive=archive&"<a class=""sideA"" style=""margin:6px 0px 0px -2px;"" href=""default.asp?log_Year="&blog_archive(1,i)&""" title=""查看"&blog_archive(1,i)&"年的日志"">"&blog_archive(1,i)&"</a>"

TempYear=blog_archive(1,i)

End IF

end if

[/code]

此外为了使月份能够按顺序输出还需要将该函数前面的“写入日志归档缓存”中的“Month([log_PostTime]) Desc”改为“Month([log_PostTime]) ASC”。

OK，最后再到后台管理中重建数据缓存就一切搞定了。

PS：某些皮肤的侧边较窄，如果发生撑破侧边栏的话，可将代码中的“MonthCounter=6”的数字改小，或者改动margin-right:3px; 。

方法二：来自异次元の时空隧道（http://www.x-force.cn/article.asp?id=101）

将以下代码覆盖掉原文件中“读取日志归档缓存”后从“if action<>2 then”到“end if”之间的所有代码。

[code]

if action<>2 then

Dim archive_item_Len,Month_array

if ubound(blog_archive,1)=0 then archive="":exit function

Month_array=Array("一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月")

archive_item_Len=ubound(blog_archive,2)

'==========X-Force修改的日志归档下拉列表==========

archive="<div style='OVERFLOW: hidden; HEIGHT:0px'> </div><select onChange='window.location.href=this.options[this.selectedIndex].value'>"

archive=archive&"<option selected value='#'>日志归档</option>"

For i=0 to archive_item_Len

archive=archive&"<option value='default.asp?log_Year="&blog_archive(1,i)&"&log_Month="&blog_archive(2,i)&"'>"&blog_archive(1,i)&"年"&Month_array(blog_archive(2,i)-1)&" ["&blog_archive(0,i)&"]</option>"

'==========X-Force修改的日志归档下拉列表===========

archive=archive&"</select>"

end if

[/code]

[pagesplitxx]

<span style="color:Red">为PJBLOG添加侧边栏整合模块</span>

具体修改如下：

1. 先下载所需的图片及CSS文件： <a target="_blank" href="http://fsnhljz.ys168.com">点击这里去下载文件：侧边栏整合模块</a>

解压缩以后将tabSide文件夹上传到blog的根目录下。

2. 新建一个侧边拦模块，为其加入以下代码：

[code]

var lastNum = 0;

function $(id){

return document.getElementById(id);

}

function Select(num){

if (lastNum != 0){

$("sideTab" + lastNum).className = $("sideTab" + lastNum).className.replace("sideTabSelect", "sideTabUnselect");

$("sideTabContent" + lastNum).style.display = "none";

}

$("sideTab" + num).className = $("sideTab" + num).className.replace("sideTabUnselect", "sideTabSelect");

$("sideTabContent" + num).style.display = "block";

lastNum = num;

}

</script>

<div id="sideTabContent1" class="sideTabContent sideTabContentL">标签A的内容</div>

<div id="sideTabContent2" class="sideTabContent sideTabContentR">标签B的内容</div>

</div>

<div id="sideTabContent3" class="sideTabContent sideTabContentL">标签C的内容</div>

<div id="sideTabContent4" class="sideTabContent sideTabContentR">标签D的内容</div>

</div>

Select(1);

</script>

[/code]

将其中红色部分的文字替换为想要整合的侧边栏的标题，蓝色替换为侧边栏的内容。

3. 修改需要整合的插件

将需要整合的侧边栏插件的install.xml文件中的sideA替换为tabSideA，然后修复插件。

注：

整合过后的插件请设置为隐藏，但不要卸载。

最新回复不是插件，它的相关代码在cache.asp文件里面。

<span style="color:Red">在pjblog日志内放置Google AdSense广告</span>

今天和大家说说，怎么在你的博客日志中添加Google AdSense广告代码，我博客中的广告代码是我昨天刚刚放上去的，问了弄这个代码，我连续在网上找了2天，广告是放上去了，可是广告就是不能和所写的文章混合在一起，让我郁闷了2天，期间我因为弄错代码，差点把网站都毁了，还好以前作了备份，还原成功。

现在我网站广告代码弄成功了，多亏异次元の世界和摇摆2位帅哥精心帮助才以成功。好东西当然要分享咯。下面就写下是怎么修改加入代码的，高手们不要笑我哈。

具体效果见我的博客：http://www.520reb.cn

我的博客是动态模式下的：

用修改class下面的cls_article.asp即可。在114行左右找到：

在其后面添加如下代码：

google_ad_client = "pub-9147000246483358";

google_ad_width = 468;

google_ad_height = 60;

google_ad_format = "468x60_as";

google_ad_type = "text_image";

google_ad_channel = "";

google_color_border = "FFFFFF";

google_color_bg = "FFFFFF";

google_color_link = "38B63C";

google_color_text = "000000";

google_color_url = "F2984C";

//-->

</script>

src="http://pagead2.googlesyndication.com/pagead/show_ads.js">

</script>

</div></div>

注：绿色字为你自己的广告代码

看见红色的代码了吗？就是这段代码可以使文章和广告代码融合在一起，

把right改成left就可以把广告放在左边。

好了，在日志内添加广告就是这么简单。

最后不要忘了到后台重新生成日志哦。

希望广大站长一起加入赚美元的行列吧。

<span style="color:Red">上一篇错位问题。</span>

修改cls_article.asp

搜索"上一篇"

你会发现围绕它们的那个<div> (或者是<span>) 的style有width属性，去掉即可

<span style="color:Red">右边最新日志显示过长</span>

link.css

.sideA{} 把width改到你觉得合适就好

<span style="color:Red">PJblog的一个小BUG: 会员发表评论，提示验证码错误！</span>

打开 blogcomm.asp ,找到:<div class="UBBPanel"><div class="UBBTitle"><img src="images/code.gif" style="margin:0px 2px -3px 0px" alt="程序代码"/> 程序代码</div><div class="UBBContent">IF (memName=empty or blog_validate=true) and cstr(lcase(Session("GetCode")))<>cstr(lcase(validate)) or IsEmpty(Session("GetCode")) Then</div></div>替换为:<div class="UBBPanel"><div class="UBBTitle"><img src="images/code.gif" style="margin:0px 2px -3px 0px" alt="程序代码"/> 程序代码</div><div class="UBBContent">IF (memName=empty or blog_validate=true) and (cstr(lcase(Session("GetCode")))<>cstr(lcase(validate)) or IsEmpty(Session("GetCode"))) Then</div></div>其实就是在这一句的前后加了一对括号 "()" 。但问题得以解决

<span style="color:Red">PJBlog个性日期显示类</span>

说明：

1．此修改需要改动PJBlog的部分源文件和您正在使用的皮肤的CSS，请先备分下面列出的文件。

2．这种显示方法是从WP上看见并且加之模仿的，并非参考大头 (Bigheadlyf)所发表的修改方法。（大头的方法也不错，这个几乎和他的显示效果一样，只是某些地方的修改不大一样。地址:http://bbs.pjhome.net/thread-15452-1-1.html）

3．由于我的Blog改动较大加之修改了半个多月了，如有些地方疏忽没有写对的地方，请您指出，我会立即修改，Thx！！！

实现思路：

1．修改common/function.asp的日期转换函数。

2．修改class/cls_default.asp，cls_article.asp的日期显示。

3．修改相应皮肤的CSS。

详细修改方法：

1．修改common/function.asp的日期转换函数。

查找代码：[code]Case "ym"

DateToStr=Right(Year(DateTime),2)&DateMonth[/code]

在下面增加：[code]Case "y-m"

DateToStr=Right(Year(DateTime),2)&"-"&DateMonth[/code]

2．修改class/cls_default.asp，cls_article.asp的日期显示。

首先修改class/cls_default.asp

查找代码：<div class="UBBPanel"><div class="UBBTitle"><img src="images/code.gif" style="margin:0px 2px -3px 0px" alt="程序代码"/> 程序代码</div><div class="UBBContent"><div class="Content-top"><div class="ContentLeft"></div><div class="ContentRight"></div></div></div>

替换为：<div class="UBBPanel"><div class="UBBTitle"><img src="images/code.gif" style="margin:0px 2px -3px 0px" alt="程序代码"/> 程序代码</div><div class="UBBContent"><div class="Content-top"><div class="ContentLeft"><div class="DateYM"><%=DateToStr(webLogArr(4,PageCount),"y-m")%></div><div class="DateDay"><%=DateToStr(webLogArr(4,PageCount),"d")%></div></div><div class="ContentRight"></div></div></div>

然后修改cls_article.asp

替换为：<div class="UBBPanel"><div class="UBBTitle"><img src="images/code.gif" style="margin:0px 2px -3px 0px" alt="程序代码"/> 程序代码</div><div class="UBBContent"><div class="Content-top"><div class="ContentLeft"><div class="DateYM"><%=DateToStr(log_ViewArr(9,0),"y-m")%></div><div class="DateDay"><%=DateToStr(log_ViewArr(9,0),"d")%></div></div><div class="ContentRight"></div></div></div>

请注意：class/cls_default.asp和cls_article.asp的日期输出调用类不一样

3。修改相应皮肤的CSS。

修改皮肤的CSS是按照您当前的皮肤以及您的个性设置来详细修改的，在这里不能统一，所以我只能给个CSS的大概思路，大家去慢慢按照自己的习惯去修改。（包括日期的背景，“年-月”的字体的设置，“日”的字体的设置。。。）

修改您的皮肤的layout.css

找到/*---日志标题框--*/

在.Content-top{。。。。}下面修改增加

[code].Content-top .ContentLeft{width:40px;height:40px;float:left;background:url('datebg.jpg') no-repeat;} /*---日期框的大体--*/

.Content-top .ContentLeft .DateYM{text-align:center;margin:4px 0px 0px 1px;padding:0px 0px 0px 0px;color:#fff;font-size:10px !important;font-size:10px;} /*---年-月的设置--*/

.Content-top .ContentLeft .DateDay{text-align:center;margin:0px 0px 0px 0px;padding:0px 0px 0px 0px;color:#fff;font-size:18px !important;font-size:18px;font-weight:bold;} /*---日的设置--*/[/code]

好了，这次修改到此也就华丽的结束了，祝大家修改愉快！！- -||

<span style="color:Red">PJBLOG页面广告投放终极教程（全坛最全，威客365版）</span>

http://bbs.pjhome.net/viewthread.php?tid=32208&extra=&page=1

山仔's blog

相关推荐

评论 1