z-blog一周热门添加方法

288 views

分类 : 技术文摘 | 发布时间 : 07-08-2006

第一步,修改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>

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

你也许还想了解这些

Comments (2)

估计还是不行,这个针对的应该还是1.5的版本。

很好很强大,很黄很暴力

Post a comment

无觅相关文章插件,快速提升流量