林网博客

探讨计算机网络安全 拓展计算机网络应用

« 广告能养活博客吗?z-blog模板修改方法指南-TEMPLATE文件中各文档在模板中的作用 »

z-blog一周热门添加方法

第一步,修改c_system_event.asp文件,加入代码(其实是在文件的结尾加一个函数):

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

' 目的:一周热门日志显示 by 七夜 2005.11.22    

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

Function BlogReBuild_Hotinaweek()



  Dim i

  Dim s

  Dim objRS

  Dim objStream

  Dim objArticle



  'Hotinaweek

  Dim strPrevious

  Set objRS=objConn.Execute("SELECT [log_ID],[log_title] FROM [blog_Article] WHERE ([log_ID]>0) AND ([log_Level]>1) and datediff('d',log_posttime,now())<8 ORDER BY [log_ViewNums] DESC")



  If (Not objRS.bof) And (Not objRS.eof) Then

    For i=1 to ZC_PREVIOUS_COUNT

      Set objArticle=New TArticle

      If objArticle.LoadInfoByID(objRS("log_ID")) Then

        strPrevious=strPrevious & "<li><a href="""& objArticle.Url & """>" & objArticle.Title & "</a></li>"

      End If

      Set objArticle=Nothing

      objRS.MoveNext

      If objRS.eof Then Exit For

    Next

  End If



  objRS.close



  strPrevious=TransferHTML(strPrevious,"[no-asp]")



  Set objStream = Server.CreateObject("ADODB.Stream")

  With objStream

  .Type = adTypeText

  .Mode = adModeReadWrite

  .Open

  .Charset = "utf-8"

  .Position = objStream.Size

  .WriteText = strPrevious

  .SaveToFile BlogPath & "/include/hotinaweek.asp",adSaveCreateOverWrite

  .Close

  End With

  Set objStream = Nothing



  If strPrevious<>"" And ZC_STATIC_TYPE="shtml" Then

    Call RemoveBOM("hotinaweek.asp")

  End if



  BlogReBuild_Hotinaweek=True



End Function

第二步,也是修改这个文件,在Blog ReBuild增加一行(大概在1138行可以找到这个模块,在1165行的分类BlogReBuild_Categorys后面一行加就可以了。我用的是z-blog的plus最新版。)



BlogReBuild_Hotinaweek



第三步,修改 c_html_js.asp文件,在(大概63到64行)



ElseIf f="misc" Then

            f="MISC"



后面加上



ElseIf f="Hotinaweek" Then

            f="Hotinaweek"



   这样前面的工作就做好了,重建索引和文件重建后在include文件夹下面看看有没有Hotinaweek.asp,里面应该是有默认的按点击排名的十条,如果想显示更多的条数,在后台的全局管理里面的程序选项里有一个ZC_PREVIOUS_COUNT变量,是默认的显示最新文章数量,一周热门也是用的这个变量,其默认值为10,可以修改这个变量的值来控制显示的文章数目,但如果修改这个变量的数值,那么最新文章的数量也会随之改变。

第四步,最后在首页调用这个就可以了。调用方法,假如放在文章分类的后面,那么在

<div class="function" id="divCatalog">

<h3><#ZC_MSG026#></h3>

<ul>

<#CACHE_INCLUDE_CATALOG#>

</ul>

</div>

后面加上

<div class="function" id="divHotinaweek">

<h3>一周热门</h3>

<ul>

<script language="JavaScript" src="<#ZC_BLOG_HOST#>c_html_js.asp?include=Hotinaweek" type="text/javascript"></script>

</ul>

</div>

这段代码就可以了,索引重建和文件重建后再看,应该出来了把,这下写的够详细了把!所用代码由论坛上的七夜提供。

订阅我的博客 免费订阅林网博客 欣赏更多博客精品

本文链接地址:http://www.linwan.net.cn/archives/2104.html
原创文章如转载,请注明:转载自林网博客 [ http://www.linwan.net.cn/ ]
  • 文章排行
  • 完全文章排行 随机文章排行 文章本月排行 文章本年排行

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

订阅博客

  • 订阅我的博客:订阅我的博客
  • 通过Google订阅本站
  • 通过抓虾订阅本站
  • 通过鲜果订阅本站
  • 通过bloglines订阅本站
  • 订阅本站到飞豆
  • 订阅本站到哪吒
  • 通过电子邮件订阅本站

热文排行使用

最新评论及回复

最新文章

累计排行

林海谐缘软件区新贴

林海谐缘网络区新贴

联系邮箱:16881688&126[AT]com,Powered By Z-Blog 1.8 Spirit Build 80710

本站采用创作共用版权协议, 要求署名、非商业用途和保持一致. 转载本站内容必须也遵循“署名-非商业用途-保持一致”的创作共用协议.