月光博客

　　本来想写一个ZBLOG的“相关文章”插件，但上网一搜索，发现已经有人写过了。我就直接拿来用了。粗略用了一下，发现其耗费资源很大，每生成一篇文章都要多执行2条数据库查询，使得重建文章速度更慢了。这和我以前想的方法不一样，我想的方法应该是先将全部TAG生成独立的临时文件 ，在文章重建的时候再进行文本替换，这样执行的数据库查询就很少了，不会占用太多系统资源，可惜现在没时间去实现。

　　下面是七夜发布的Z-blog“相关文章”修改方法，其中Export_Mutuality处代码我进行了一些修改，使得TAG为空的时候该代码也能正常运行。原文地址参见：http://www.h2o.name/post/661.html

1.新增加一个模板，名字为b_article_mutuality.html，文章扩展名根据情况修改，内容

  <li class="mutualityurl"><a  href="<#article/mutuality/url#>.html"><#article/mutuality/name#></a>&nbsp;(<#article/mutuality/posttime#>)</li>

2.b_article-single.html增加如下内容，具体位置自己选

<ul class="msg trackback">
  <li class="tbname">&#x76F8;&#x5173;&#x6587;&#x7AE0;</li>
<#template:article_mutuality#>
</ul>

3.CSS样式增加一个，具体根据自己喜好修改，内容如下

li.mutualityurl{
  text-align:left;
  padding:3px 10px 0px 10px;
  margin:0;
  background:#F6F4EE;
  line-height:150%;
}

4.c_system_base.asp的Function LoadGlobeCache()部分，原来的几处27改为28，增加

  aryFileName(28)="/TEMPLATE/b_article_mutuality.html"
  aryFileName_Variable(28)="TEMPLATE_ARTICLE_mutuality"

5.c_system_lib.asp
Class TArticle增加一行

Public Template_Article_Mutuality

Public Function Export(intType)增加两行，注意Call Export_Mutuality一定要放在Call Export_Tag的前面，否则会出错。

    Call Export_Mutuality

    Template_Article_Single=Replace(Template_Article_Single,"<#template:article_mutuality#>",Template_Article_Mutuality)

以下部分找个地方放下就可以了

  '相关文章的生成
  Function Export_Mutuality()

  Call CheckParameter(ID,"int",0)
  If (ID=0) Then Del=False:Exit Function
  If Tag<>"" Then

  Dim strCC_Count,strCC_ID,strCC_Name,strCC_Url,strCC_PostTime,strCC_Title
  Dim strCC
  Dim i
  Dim j
  Dim objTNode
  Dim objCNode
  Dim objSingleNode
  Dim objNodeText
  Dim objMutArticle
  Dim objRS
  Dim strSQL

  Set objRS=Server.CreateObject("ADODB.Recordset")

  strSQL="SELECT top 30  [log_ID],[log_Tag],[log_CateID],[log_Title],[log_Level],[log_AuthorID],[log_PostTime],[log_Url] FROM [blog_Article] WHERE ([log_Level]>2) AND [log_ID]<>"& ID &" "

  Dim aryTAGs
  If InStr(Tag,"}{") > 0 Then
    aryTAGs = Split(Tag,"}{")
  Else
    ReDim aryTAGs(0)
    aryTAGs(0) = Tag
  End If
  strSQL = strSQL & " AND ("
  For j = 0 To UBound(aryTAGs)
    If Not (IsNull(aryTAGs(j)) Or IsEmpty(aryTAGs(j)) Or aryTAGs(j) = "" Or Len(aryTAGs(j)) < 1) Then
      aryTAGs(j) = Replace(Replace(aryTAGs(j),"}",""),"{","")
      If IsNumeric(aryTAGs(j)) Then
        If j > 0 Then strSQL = strSQL & " OR "
        strSQL = strSQL & "([log_Tag] Like '%{"&aryTAGs(j)&"}%')"
      End If
    End If
  Next
  strSQL = strSQL & ")"
  strSQL = strSQL + " ORDER BY [log_PostTime] DESC " 

  Set objRS=Server.CreateObject("ADODB.Recordset")
  objRS.CursorType = adOpenKeyset
  objRS.LockType = adLockReadOnly
  objRS.ActiveConnection=objConn
  objRS.Source=strSQL
  objRS.Open()
  If (not objRS.bof) And (not objRS.eof) Then

    For i=1 To 30 '相关文章数目，可自行设定

      strCC_Count=strCC_Count+1
      strCC_ID=objRS("log_ID")
      strCC_Url=objRS("log_Url")
      strCC_PostTime=objRS("log_PostTime")
      strCC_Title=objRS("log_Title")

      Application.Lock
      strCC=Application(ZC_BLOG_CLSID & "TEMPLATE_ARTICLE_Mutuality")
      Application.UnLock
      If IsNull(strCC_Url) Or IsEmpty(strCC_Url) Or strCC_Url="" Then
      strCC_Url=strCC_ID
      end if
      strCC=Replace(strCC,"<#article/mutuality/id#>",strCC_ID)
      strCC=Replace(strCC,"<#article/mutuality/url#>",strCC_Url)
      strCC=Replace(strCC,"<#article/mutuality/posttime#>",strCC_PostTime)
      strCC=Replace(strCC,"<#article/mutuality/name#>",strCC_Title)

      Template_Article_Mutuality=Template_Article_Mutuality & strCC

    objRS.MoveNext
    If objRS.eof Then Exit For
    Next

  End if

  objRS.Close()
  Set objRS=Nothing

  End If

  Export_Mutuality=True

  End Function


原创文章如转载，请注明：转载自月光博客 [ http://www.williamlong.info/ ]

本文链接地址：http://www.williamlong.info/archives/314.html