首页 信息技术正文

改换样式,修改一些地方

老看一种模板,时间长了未免要乏味,换一个新样式

将日志分类的rss图标放在前边,默认的是在后边,觉得难看(1.7版本不需要修改)
修改文件:function/c_system_event.asp
Function BlogReBuild_Catalogs()

strCatalog=strCatalog & "<li><a href="""& Categorys(objRS("cate_ID")).Url & """>"+Categorys(objRS("cate_ID")).Name + " (" & Categorys(objRS("cate_ID")).Count & ")" +"</a> <a href="""&ZC_BLOG_HOST&"sydication.asp?cate="&objRS("cate_ID")&""" target=""_blank""><img title=""rss"" width=""20"" height=""12"" src="""&ZC_BLOG_HOST&"IMAGE/LOGO/rss.png"" border=""0"" alt=""rss"" /></a></li>"

改为:
strCatalog=strCatalog & "<li><a href="""&ZC_BLOG_HOST&"sydication.asp?cate="&objRS("cate_ID")&""" target=""_blank""><img title=""rss"" width=""20"" height=""12"" src="""&ZC_BLOG_HOST&"IMAGE/LOGO/rss.png"" border=""0"" alt=""rss"" /></a><a href="""& Categorys(objRS("cate_ID")).Url & """>"+Categorys(objRS("cate_ID")).Name + " (" & Categorys(objRS("cate_ID")).Count & ")" +"</a> </li>"

其实就是前后倒了下


留言按日期反向排序(适用于1.6版本,1.7版本不一样了)

修改文件:function/c_system_lib.asp

Function Export_CMTandTB()

objRS.Source="SELECT [comm_ID],[log_ID],[comm_AuthorID],[comm_Author],[comm_Content],[comm_Email],[comm_HomePage],[comm_PostTime],[comm_IP],[comm_Agent] FROM [blog_Comment] WHERE [blog_Comment].[log_ID]=" & ID &" UNION ALL SELECT [tb_ID],[log_ID],'',[tb_Title],[tb_Excerpt],[tb_Blog],[tb_URL],[tb_PostTime],[tb_IP],[tb_Agent] from [blog_TrackBack] WHERE [blog_TrackBack].[log_ID]="& ID & " ORDER BY [comm_PostTime]"

改为:

objRS.Source="SELECT [comm_ID],[log_ID],[comm_AuthorID],[comm_Author],[comm_Content],[comm_Email],[comm_HomePage],[comm_PostTime],[comm_IP],[comm_Agent] FROM [blog_Comment] WHERE [blog_Comment].[log_ID]=" & ID &" UNION ALL SELECT [tb_ID],[log_ID],'',[tb_Title],[tb_Excerpt],[tb_Blog],[tb_URL],[tb_PostTime],[tb_IP],[tb_Agent] from [blog_TrackBack] WHERE [blog_TrackBack].[log_ID]="& ID & " ORDER BY [comm_PostTime] DESC"


strC=Replace(strC,"<#article/comment/count#>",strC_Count)

改为:

strC=Replace(strC,"<#article/comment/count#>", CommNums+1-strC_Count)

首页正文右下部分的分类、评论、引用信息加上链接、在前边加上“编辑”:

修改文件:template/b_article-multi.html

<h6 class="post-footer">
  <script>
if(GetCookie("password")){
document.write("<a href=\"<#ZC_BLOG_HOST#>cmd.asp?act=ArticleEdt&type=fckeditor&id=<#article/id#>\" /><#ZC_MSG100#></a> | <a href=\"<#ZC_BLOG_HOST#>cmd.asp?act=ArticleEdt&id=<#article/id#>\" /><#ZC_MSG101#></a> | ")}</script> <#ZC_MSG012#>:<a href="<#ZC_BLOG_HOST#>catalog.asp?cate=<#article/category/id#>"><#article/category/name#></a> | <a href="<#article/url#>#comment"><#ZC_MSG013#></a>:<a href="<#article/url#>#comms"><#article/commnums#></a> | <a href="<#article/url#>#tburl"><#ZC_MSG014#></a>:<a href="<#article/url#>#tbs"><#article/trackbacknums#></a> | <#ZC_MSG130#>:<script language="JavaScript" src="<#ZC_BLOG_HOST#>function/c_html_js.asp?act=ArticleView&id=<#article/id#>" type="text/javascript"></script>
 </h6>

单篇文章右下分类、评论、引用信息加上链接、在前边加上“编辑”:

修改文件:template/b_article-single.html

<h6 class="post-footer">
  <script>
if(GetCookie("password")){
document.write("<a href=\"<#ZC_BLOG_HOST#>cmd.asp?act=ArticleEdt&type=fckeditor&id=<#article/id#>\" /><#ZC_MSG100#></a> | <a href=\"<#ZC_BLOG_HOST#>cmd.asp?act=ArticleEdt&id=<#article/id#>\" /><#ZC_MSG101#></a> | ")}</script> <#ZC_MSG012#>:<a href="<#ZC_BLOG_HOST#>catalog.asp?cate=<#article/category/id#>"><#article/category/name#></a> | <a href="<#article/url#>#comment"><#ZC_MSG013#></a>:<a href="<#article/url#>#comms"><#article/commnums#></a> | <a href="<#article/url#>#tburl"><#ZC_MSG014#></a>:<a href="<#article/url#>#tbs"><#article/trackbacknums#></a> | <#ZC_MSG130#>:<script language="JavaScript" src="<#ZC_BLOG_HOST#>function/c_html_js.asp?act=ArticleView&id=<#article/id#>" type="text/javascript"></script> </h6>

评论加上引用的文字链接,醒目一些,加上删除按钮:

修改文件:template/b_article_comment.html


<ul class="msg">
 <li class="msgname"><a onclick="InsertQuote(this.parentNode.parentNode.getElementsByTagName('a')[2].innerHTML,this.parentNode.parentNode.getElementsByTagName('li')[2].innerHTML);return false;" href=""><img src="<#ZC_BLOG_HOST#>image/common/quote.gif" height="9" width="9" alt="quote" title="quote" />[<#ZC_MSG014#>]</a> <a name="cmt<#article/comment/id#>"><#article/comment/count#></a>.<a href="mailto:<#article/comment/email#>" onclick="this.href=(this.href).replace(/\[AT\]/,String.fromCharCode(64));"><#article/comment/name#></a></li>
 <li class="msgurl"><a href="<#article/comment/url#>" rel="nofollow" target="_blank"><#article/comment/url#></a></li>
 <li class="msgarticle"><#article/comment/content#></li>
 <li class="msgtime"><script>
if(GetCookie("password")){
document.write("<a href=\"<#ZC_BLOG_HOST#>cmd.asp?act=CommentDel&id=<#article/comment/id#>\">[<#ZC_MSG063#>]</a>")}</script><#article/comment/posttime#></li>
</ul>

去掉原来的音乐播放器,改为从http://bbs.rainbowsoft.org/viewthread.php?tid=1007&extra=page%3D1&page=2获得的新播放器

把musicindex.asp,mp3文件夹 放到根目录(就是和default.asp一个目录)下!
把下面的代码加到template下的default.htm等模版中。(<#ZC_MSG269#>是在language/SimpChinese.asp中自己加的)


<div class=functionid="music" >
<h3><#ZC_MSG269#></h3>
<span id="playerbox">
<a href="<#ZC_BLOG_HOST#>musicindex.asp" _fcksavedurl=""<#ZC_BLOG_HOST#>musicindex.asp"" _fcksavedurl=""<#ZC_BLOG_HOST#>musicindex.asp"" _fcksavedurl=""<#ZC_BLOG_HOST#>musicindex.asp"" _fcksavedurl=""<#ZC_BLOG_HOST#>musicindex.asp"" _fcksavedurl=""<#ZC_BLOG_HOST#>musicindex.asp"" _fcksavedurl=""<#ZC_BLOG_HOST#>musicindex.asp"" target="_parent">点击加载背景音乐>></a>
</span>
<span id="player">
<marquee behavior="scroll" width=135 height=14px scrollamount=2 scrolldelay=70><span id="disp1" class="title">加载音乐中</span></marquee>
<span id="disp2" class="time" title="曲目长度时间格式 (正数/倒数)"style="cursor:hand;padding-bottom:3px;color:#666;font-size=14px;" nowrap>00:00 | 00:00</span><br>
<a href=# ><img src=<#ZC_BLOG_HOST#>mp3/img/mute.gif border=0 alt=静音></a>
<a href=# ><img src=<#ZC_BLOG_HOST#>mp3/img/down.gif border=0 alt=小声></a>
<a href=# ><img src=<#ZC_BLOG_HOST#>mp3/img/up.gif border=0 alt=大声></a>
<a href=# ><img src=<#ZC_BLOG_HOST#>mp3/img/prev.gif border=0 alt=上一首></a>
<a href=# ><img src=<#ZC_BLOG_HOST#>mp3/img/play.gif border=0 alt=播放/暂停></a>
<a href=# ><img src=<#ZC_BLOG_HOST#>mp3/img/next.gif border=0 alt=下一首></a>
<a href=# ><img src=<#ZC_BLOG_HOST#>mp3/img/list.gif border=0 alt=歌曲列表></a>
<a href=# ><img src=<#ZC_BLOG_HOST#>mp3/img/repeat.gif border=0 alt=重复></a>
<a href=# ><img src=<#ZC_BLOG_HOST#>mp3/img/random.gif border=0 alt=循环/随机></a>
<a href="/default.asp" target="_parent"><img src=<#ZC_BLOG_HOST#>mp3/img/close.gif border=0 alt=关闭音乐></a>
</span>
<script type="text/javascript">if(top != self){playerbox.innerHTML=player.innerHTML;}player.innerHTML="";</script>
</div>

增加添加到各大流行网摘的插件代码http://bbs.rainbowsoft.org/viewthread.php?tid=1140&extra=page%3D1

(1.7下貌似不能用了,没空看是什么问题)

(今天2007-2-11看了下,只要把<%=ZC_BLOG_HOST%>改成<#ZC_BLOG_HOST#>就OK了)

使用方法

1.下载文件上传到BLOG根目录

2.修改/TEMPLATE/b_article-single.html 文件


找到

<#template:article_trackback#>


在下面加上

<p><strong><#ZC_MSG268#>:</strong> <SCRIPT language="javascript" src="<%=ZC_BLOG_HOST%>wz/wz.js"></SCRIPT></p>

其中<#ZC_MSG268#>是在language/SimpChinese.asp中自己加的
3.在后台"文件重建"

将样式的选择输入框改成选择下拉框

修改文件:admin/edit_setting.asp

在以下这段代码后或适当位置

strZC_BLOG_HOST=TransferHTML(strZC_BLOG_HOST,"[html-format]")
 strZC_BLOG_TITLE=TransferHTML(strZC_BLOG_TITLE,"[html-format]")
 strZC_BLOG_SUBTITLE=TransferHTML(strZC_BLOG_SUBTITLE,"[html-format]")
 strZC_BLOG_NAME=TransferHTML(strZC_BLOG_NAME,"[html-format]")
 strZC_BLOG_SUB_NAME=TransferHTML(strZC_BLOG_SUB_NAME,"[html-format]")
 strZC_BLOG_CSS=TransferHTML(strZC_BLOG_CSS,"[html-format]")
 strZC_BLOG_COPYRIGHT=TransferHTML(strZC_BLOG_COPYRIGHT,"[html-format]")
 strZC_BLOG_MASTER=TransferHTML(strZC_BLOG_MASTER,"[html-format]")

加入
 '//定义选择样式的下拉样式,原来是需要自己填写的,现在只需要选
 Dim objFSO,objFSOD,objFSOF,objFiles,strStyles,strStyleHTML
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 Set objFSOD = objFSO.GetFolder(BlogPath&"STYLE")
 Set objFSOF = objFSOD.Files

 For Each objFiles In objFSOF
  If LCase(Right(objFiles.Name,4)) = ".css" Then strStyles = strStyles & "||" & Left(objFiles.Name,Len(objFiles.Name)-4)
 Next

 Set objFSO = Nothing
 Set objFSOD = Nothing
 Set objFSOF = Nothing

 strStyleHTML = Replace("<option>"&Replace(Mid(strStyles,3),"||","</option><option>")&"</option>",">"&ZC_BLOG_CSS&"<"," selected>"&ZC_BLOG_CSS&"<")
 '定义选择样式的下拉样式,原来是需要自己填写的,现在只需要选

Response.Write "<p>"& ZC_MSG095 &":</p><p><input id=""edtZC_BLOG_CSS"" name=""edtZC_BLOG_CSS"" style=""width:90%"" type=""text"" value=""" & strZC_BLOG_CSS & """ /></p><p></p>"

改为

Response.Write "<p>"& ZC_MSG095 &":</p><p><select id=""edtZC_BLOG_CSS"" name=""edtZC_BLOG_CSS"" style=""width:80%"">"&strStyleHTML&"</select></p><p></p>"

在版本号后加上空间提供与网站统计代码

修改文件:c_option.asp

Const ZC_BLOG_VERSION="1.6 Final Build 60816"

改为

Const ZC_BLOG_VERSION="1.6 Final Build 60816  <a href=http://www.idc600.com _fcksavedurl="http://www.idc600.com" _fcksavedurl="http://www.idc600.com" target=_blank>空间带宽提供:IDC前线</a> <script language=""Javascript"">var uid=388;var Show=3;</script><script language=""Javascript"" src=""http://dm.wztj.net/stat.js""></script>"

评论

«    2024年3月    »
123
45678910
11121314151617
18192021222324
25262728293031

控制面板

您好,欢迎到访网站!
  查看权限

文章归档