TempArticle=Replace(TempArticle,"<$log_ViewNums$>",log_ViewArr(4,0))

'***********  相关日志功能 修改1 BY HAYDEN    *********
TempArticle=Replace(TempArticle,"<$log_relatedtag$>",getRelated(log_ViewArr(8,0),LogID))
'************  相关日志功能 修改1 END    ************

dim getTag

'***********  相关日志功能 修改2 BY HAYDEN    ***********
Dim haydenTags : haydenTags = log_ViewArr(19,0)
'***********   相关日志功能 修改2    **********

<img src="/images/tag.gif" style="margin:4px 2px -4px 0px" alt=""/><strong>Tags:</strong> <%=getTag.filterHTML(log_ViewArr(19,0))%><br/>

'***********  相关日志功能 修改3 BY HAYDEN    ***********
<img src="/images/search.gif" style="margin:4px 2px -4px 0px" alt=""/><strong>相关日志:</strong><%=getRelated(haydenTags,LogID)%><br/>
'**********  相关日志功能 修改3 END    ***********

'********************************
'  显示相关日志
'  作者：静￠脉
'  出自：myhhe.cn
'  时间：2007.11.25
'********************************
Function getRelated(hayden_tag,hayden_LogID)
    getRelated=""
  Dim i,RsT,OutPut
    Dim hayden_arr_tag
    Dim hayden_sql
    Dim hayden_sqlTag : hayden_sqlTag=""
  OutPut=""
     if hayden_tag<>"" Then
            hayden_arr_tag=split(hayden_tag,"{")
            For i = 1 to Ubound(hayden_arr_tag)   
                If i > 1 Then hayden_sqlTag=hayden_sqlTag & " or "
                hayden_sqlTag = hayden_sqlTag & "log_tag like '%{" & hayden_arr_tag(i) & "%' "
            Next
                hayden_sql="Select top 10 log_Title,log_id,log_ViewNums from blog_Content where (" & hayden_sqlTag & ") and log_ID<>" & hayden_LogID & " and log_IsDraft=False and log_CateID not  in (select  cate_id from blog_Category where cate_secret=True ) order by log_PostTime desc"
'此处红色标记处，感谢 ppcode 提出指正 #2007-11-26 
                 Set RsT=conn.execute(hayden_sql)
                 if not RsT.eof then
                        Do until Rst.eof
                                OutPut=OutPut&"<font face='Wingdings'>n</font> <a href='article.asp?id="&RsT(1)&"' target='_blank'>"&RsT(0)&"["&RsT(2)&"]</a><br>"
                        Rst.movenext
                        Loop
                     End if
        End if
        If OutPut="" Then
            OutPut="无相关日志"
        Else
            OutPut="<div class='Content-body' id='hayden_tag'>"&Replace(OutPut,chr(39),chr(34))&"</div>"
            '注意上面DIV中的class名称，如果想给他设定单独的样式，可以在这里给他另定一个名称
        End If
        getRelated=OutPut
        Set rst=nothing
End Function
'********  相关日志功能 getRelated END BY HAYDEN    **********

log_DisComment FROM

log_DisComment,log_tag FROM

<$log_tag$><br/>

<img src="/images/search.gif" style="margin:4px 2px -4px 0px" alt=""/><strong>相关日志:</strong> <$log_relatedtag$><br/>