Blog更新小记

今天修改了一下blog,

作点纪录备忘。

①:添加了UBB下的Audio Player播放器,

修改方法来自jinn's blog.

引用自
1. 在本日志的末尾处下载一个压缩包文件,解压后放置在PJBlog2的根目录下。

  2. 用任意的文本编辑软件打开header.asp文件,在以下代码:

 <script type=&#34;text/javascript&#34; src=&#34;common/common.js&#34;></script>

    之后添加如下代码:

 <script type=&#34;text/javascript&#34; src=&#34;common/audioplayer.js&#34;></script>

  3. 打开common文件夹下的ubbcode.asp文件,在“&#39;———–多媒体标签—————-”之前添加这里的代码(代码太长会超出边界,只好用文本显示,压缩包中也有)。

  4. 修改完成,发表时使用【mp3】MP3文件路径【/mp3】(将【】替换成[])就可以了。

②: 修改查看更多..为阅读全文..主要修改了Class文件夹下两个文件。

[htmlcode]<strike style=&#34;color:red&#34;>③: 在文章内容中加入GGAD,

方法来自PJ论坛,从别人站里偷了张背景图片。</strike>[/htmlcode]

引用自
header.asp

搜索

<!–UBB编辑器代码–>

后面增加

<link rel=&#34;stylesheet&#34; rev=&#34;stylesheet&#34; href=&#34;skins/ad.css&#34; type=&#34;text/css&#34; media=&#34;all&#34; />

<!–Google广告样式表–>

skins文件夹下增加ad.css

.ggad

{

margin: 2px 1px 2px 2px;

float:right;

width: 222px;

height: 198px;

background: url(/images/ggad.gif) top no-repeat;

vertical-align: top;

}

.ad_ggad

{

padding: 20px 0px 0px 20px;

}

Template文件夹下Article.asp文件

搜索<div id=&#34;logPanel&#34; class=&#34;Content-body&#34;>

后面增加

div id=&#34;vad&#34; class=&#34;ggad&#34;>

<div class=&#34;ad_ggad&#34;>

GGAD代码

</script></div></div>

④:将相册图库修改为新窗口打开,

在后台设置>日志文章分类>外部连接加入相关代码。

[htmlcode]<strike style=&#34;color:red&#34;>⑤:将公告板转换成上下滚动方式,后台新建正文模块,加入以下代码:</strike>[/htmlcode]

引用自
<DIV class=content-width style=&#34;MARGIN-BOTTOM: 5px&#34;>

<TABLE style=&#34;MARGIN-BOTTOM: 0px; WIDTH: 100%; HEIGHT: 50px&#34; cellSpacing=1

cellPadding=0 align=center bgColor=#DEF2B0 border=0>

<TBODY>

<TR bgColor=#ffffff>

<TD align=center valign=&#34;middle&#34; bgColor=#DEF280 style=&#34;WIDTH: 25px&#34;><SPAN style=&#34;FONT-SIZE: 12px; COLOR: #009900&#34;><strong>公告</strong></SPAN></TD>

<TD style=&#34;PADDING-RIGHT: 0px; PADDING-LEFT: 10px; PADDING-TOP: 2px; PADDING-BOTTOM: 2px; WIDTH: 96%; TEXT-ALIGN: left&#34;>

<MARQUEE onmouseover=this.stop() onmouseout=this.start() scrollAmount=1 scrollDelay=20 direction=up width=&#34;100%&#34; height=50>

<FONT color=#999999>[2006-02-21]</FONT> <A href=&#34;http://www.13973.com/article.asp?id=222&#34;>申请友情连接的请先看相关要求</A><BR>

<FONT color=#999999>[2006-02-21]</FONT> <A href=&#34;http://www.13973.com/article.asp?id=222&#34; target=&#34;_blank&#34;>对本站所有文章版权的相关说明</A><BR>

<FONT color=#999999>[2006-02-21]</FONT> <A href=&#34;http://www.13973.com/LoadMod.asp?plugins=GuestBookForPJBlog&#34;>留言并不需要注册,欢迎各位留言,但请不要发布垃圾信息,谢谢。</A><br>

<FONT color=#999999>[2006-07-20]</FONT> <A href=&#34;http://www.13973.com&#34;>游客评论功能重新开放,发现垃圾信息过多将继续关闭</A><br>

<FONT color=#999999>[2006-07-22]</FONT> <A href=&#34;http://www.13973.com/&#34;>放置几个GGAD,请大家顺手点下,谢谢!</A><br>

<FONT color=#999999>[2006-07-27]</FONT> <A href=&#34;http://www.13973.com&#34;>增加文章内页显示GGAD。。</A></MARQUEE></TD></TR></TBODY></TABLE></DIV>

⑥:再次纪录播放器代码

引用自
<object type=&#34;application/x-shockwave-flash&#34; height=&#34;20&#34; width=&#34;200&#34; data=&#34;http://www.estvideo.com/dew/media/dewplayer.swf?son=http://www.der8.cn/UploadFile/mv/dachangjin.mp3&#34;>

<param value=&#34;http://www.estvideo.com/dew/media/dewplayer.swf?son=http://www.der8.cn/UploadFile/mv/dachangjin.mp3&#34; name=&#34;movie&#34; /></object>

⑦:将日志归档重新整理,方法来自JINN。

引用自
在common文件夹下找到cache.asp,用任意的文本或网页编辑软件打开,在249行附近找到处理日志归档的函数archive,我们的修改都在这个函数中完成。

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

if action<>2 then

Dim archive_it

em_Len,Month_array,TempYear,MonthCounter

if ubound(blog_archive,1)=0 then archive=&#34;&#34;:exit function

Month_array=Array(&#34;01月&#34;,&#34;02月&#34;,&#34;03月&#34;,&#34;04月&#34;,&#34;05月&#34;,&#34;06月&#34;,&#34;07月&#34;,&#34;08月&#34;,&#34;09月&#34;,&#34;10月&#34;,&#34;11月&#34;,&#34;12月&#34;)

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=&#34;<a class=&#34;&#34;sideA&#34;&#34; style=&#34;&#34;margin:0px 0px 0px -2px;&#34;&#34; href=&#34;&#34;default.asp?log_Year=&#34;&amp;blog_archive(1,i)&amp;&#34;&#34;&#34; title=&#34;&#34;查看&#34;&amp;blog_archive(1,i)&amp;&#34;年的日志&#34;&#34;>&#34;&amp;blog_archive(1,i)&amp;&#34;</a>&#34;

IF blog_archive(1,i)=TempYear Then

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

MonthCounter=MonthCounter+1

IF MonthCounter=6 Then MonthCounter=0:archive=archive&amp;&#34;<br/>&#34;

Else

MonthCounter=1

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

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

TempYear=blog_archive(1,i)

End IF

Next

end if

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

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

⑧:UBB下直接使用HTM语言,方法同样来自JINN

引用自
在common文件夹下找到ubbcode.asp,在“多媒体标签”前面添加以下代码

re.Pattern = &#34;[htmlcode](.[^[]*)[/htmlcode]&#34;

Set strMatchs=re.Execute(strContent)

For Each strMatch in strMatchs

tmpStr1=HTMLDecode(strMatch.SubMatches(0))

strContent=replace(strContent,strMatch.Value,tmpStr1,1,-1,1)

Next

  使用方法与其他标签相似:[html code]HTML代码[/html code],不过需要注意的是当HTML代码中包含URL时,如发布Flash时,需要禁止自动转换链接。用的时候记得去掉htmlcode间空格。

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

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

动态模式:

打开class/cls_default.asp 搜索

程序代码

<%If CanRead Then%>

(共找到2个,一个普通模式,一个列表模式,都要改)第一处,原来是这样:

程序代码

<a class=&#34;titleA&#34; href=&#34;article.asp?id=<%=webLogArr(0,PageCount)%>&#34;><%=HtmlEncode(webLogArr(3,PageCount))%></a>

修改成:

程序代码

<%&#39;=================X-Force修改的动态普通模式置顶字符=================%>

<a class=&#34;titleA&#34; href=&#34;article.asp?id=<%=webLogArr(0,PageCount)%>&#34;><%if webLogArr(9,PageCount) then response.Write &#34;<font color=&#39;#ff0000&#39;>热点聚焦∴ </font>&#34;%><%=HtmlEncode(webLogArr(3,PageCount))%></a>

<%&#39;=================X-Force修改的动态普通模式置顶字符=================%>

第二处:

原来是这样 程序代码

<a href=&#34;<%=logLink%>&#34; title=&#34;作者:<%=webLogArr(2,PageCount)%> 日期:<%=DateToStr(webLogArr(4,PageCount),&#34;Y-m-d&#34;)%>&#34;><%=HtmlEncode(webLogArr(3,PageCount))%></a>

我改成:

程序代码

<%&#39;=================X-Force修改的动态列表模式置顶字符=================%>

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

<%&#39;=================X-Force修改的动态列表模式置顶字符=================%>

静态模式:

打开class/cls_logAction.asp

搜索程序代码

Temp1=Replace(Temp1,&#34;<$log_Title$>&#34;,HtmlEncode(log_View(&#34;log_Title&#34;)))

改为:

程序代码

&#39;============X-Force修改的静态普通模式“置顶”字符===========

&#39;原来是:

&#39;Temp1=Replace(Temp1,&#34;<$log_Title$>&#34;,HtmlEncode(log_View(&#34;log_Title&#34;)))

&#39;现在改为:

if log_View(&#34;log_IsTop&#34;) then

Temp1=Replace(Temp1,&#34;<$log_Title$>&#34;,&#34;<font color=&#39;#ff0000&#39;>热点聚焦∴ </font>&#34;&amp;HtmlEncode(log_View(&#34;log_Title&#34;)))

Else

Temp1=Replace(Temp1,&#34;<$log_Title$>&#34;,HtmlEncode(log_View(&#34;log_Title&#34;)))

End if

&#39;============X-Force修改的静态普通模式“置顶”字符===========

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

搜索:

程序代码

Temp2=Replace(Temp2,&#34;<$log_Title$>&#34;,HtmlEncode(log_View(&#34;log_Title&#34;)))

改为:

程序代码

&#39;============X-Force修改的静态列表模式“置顶”字符===========

&#39;原本是这样:

&#39;Temp2=Replace(Temp2,&#34;<$log_Title$>&#34;,HtmlEncode(log_View(&#34;log_Title&#34;)))

&#39;现在改为:

if log_View(&#34;log_IsTop&#34;) then

Temp2=Replace(Temp2,&#34;<$log_Title$>&#34;,&#34;<font color=&#39;#ff0000&#39;>热点聚焦∴ </font>&#34;&amp;HtmlEncode(log_View(&#34;log_Title&#34;)))

Else

Temp2=Replace(Temp2,&#34;<$log_Title$>&#34;,HtmlEncode(log_View(&#34;log_Title&#34;)))

End if

&#39;============X-Force修改的静态列表模式“置顶”字符===========

2007/05/02修改首页直接登陆:

引用自
else

userPanel=userPanel&amp;&#34;<form name=&#34;&#34;checkUser&#34;&#34; action=&#34;&#34;login.asp&#34;&#34; method=&#34;&#34;post&#34;&#34; style=&#34;&#34;margin:1px;&#34;&#34;><input name=&#34;&#34;action&#34;&#34; type=&#34;&#34;hidden&#34;&#34; value=&#34;&#34;login&#34;&#34;/><label>用户:<input name=&#34;&#34;username&#34;&#34; type=&#34;&#34;text&#34;&#34; size=&#34;&#34;12&#34;&#34; class=&#34;&#34;userpass&#34;&#34; maxlength=&#34;&#34;24&#34;&#34;/></label><br/><label>密码:<input name=&#34;&#34;password&#34;&#34; type=&#34;&#34;password&#34;&#34; size=&#34;&#34;12&#34;&#34; class=&#34;&#34;userpass&#34;&#34;/></label><br/><label>验证:<input name=&#34;&#34;validate&#34;&#34; type=&#34;&#34;text&#34;&#34; size=&#34;&#34;4&#34;&#34; class=&#34;&#34;userpass&#34;&#34; maxlength=&#34;&#34;4&#34;&#34;/> &#34;&amp;getcode()&amp;&#34;</label><br/><label>记住登陆: <sel&#101;ct name=&#34;&#34;KeepLogin&#34;&#34; id=&#34;&#34;KeepLogin&#34;&#34; class=&#34;&#34;userpass&#34;&#34;><option value=&#34;&#34;1&#34;&#34; sel&#101;cted=&#34;&#34;sel&#101;cted&#34;&#34;>一天</option><option value=&#34;&#34;30&#34;&#34; >一個月</option><option value=&#34;&#34;365&#34;&#34;>一年</option><option value=&#34;&#34;0&#34;&#34;>不用記住</option></sel&#101;ct></label><br/><input type=&#34;&#34;submit&#34;&#34; value=&#34;&#34;登录&#34;&#34; class=&#34;&#34;userbutton&#34;&#34;/><input type=&#34;&#34;button&#34;&#34; value=&#34;&#34;会员注册&#34;&#34; class=&#34;&#34;userbutton&#34;&#34; onclick=&#34;&#34;location.href=&#39;register.asp&#39;&#34;&#34;/></form>&#34;

end if

end function