增加了“阅读全文”链接和“访问统计”
一、增加“访问统计” 来自随想飞翔
c_system_event.asp 第 1049 - 1051 行(任意一行)后添加一行
strStatistics=strStatistics & "<li>"& ZC_MSG129 &":" & objRS("allViewNums") & "</li>"
c_system_lib.asp 第 277 和 283 行,去掉单引号(单引号后边字符保留)
c_system_lib.asp 第 464 行,修改为
aryCommentPost(0)= "<div class=""post"" id=""divCommentPost"">" & "<script language=""JavaScript"" src=""" & ZC_BLOG_HOST & "c_count_js.asp?id=" & ID & """ type=""text/javascript""></script>"
二、增加“阅读全文”链接 来自七夜的博客
c_system_lib.asp 244行,直接替换,语言文件中,自行定义一个ZC_MSG1266
aryArticleExport(11)= ZC_MSG126 & TransferHTML(UBBCode(Intro,"[face][link][autolink][font][code][image][typeset][media][flash][key]"),"[vbCrlf][upload]")&"<br><a href=""/post/"& ID &".html"">"&ZC_MSG1266&"</a>"
红色部分要依据自己的具体blog路径来修改。
三、作者、分类等的链接以及“编辑”的链接 来自七夜的博客
c_system_lib.asp第277和283行用下面的代码替换,给作者、分类等添加链接,需要在语言包里添加Const ZC_MSG0110="编辑"
aryArticleExport(17)= ZC_MSG011&":<a href=""/blog/catalog.asp?auth="& AuthorID &""">"& Author &"</a> | "&ZC_MSG012&":<a href=""/blog/catalog.asp?cate="& cateID &""">"& Cate &"</a> | <a href=""/blog/cmd.asp?act=ArticleEdt&id="& ID &""">"&ZC_MSG0110&"</a> | <a href=""/blog/post/"& ID &".html#Comm"">"&ZC_MSG013&"</a>:"& CommNums &" | "&ZC_MSG014&":"& TrackBackNums &" | "&ZC_MSG015&":"& ViewNums &""
要注意具体的文件路径。
四、“文章置顶”的应用。
手动编辑default.asp。
<%
Call System_Initialize()
Dim topArticle
Set topArticle=New TArticle
If topArticle.LoadInfobyID(xxx)=True Then Response.Write topArticle.Export(ZC_DISPLAY_MODE_INTRO)
Set topArticle=Nothing
Call System_Terminate()
%>
这里的xxx就是要置顶文章的ID号,代码可插入在之内,暂时请使用"ZC_DISPLAY_MODE_INTRO"参数,"ZC_DISPLAY_MODE_ONTOP"的实现有点问题,会在下一个版本修正的。