关于myhhe.cn的日志信息切换功能

//<!-- edit by hayden for 相关日志 and 日志信息切换  -->
var tabtit;
var $tabmain;
function tabconfig(){
    tabtit=document.getElementById("conbody-tab").getElementsByTagName("h3");
    $tabmain=function(tagName){return document.getElementById("contab_m"+tagName);}
    for(var i = 0; i < tabtit.length-1; i++){
        bind(tabtit[i],"mouseover","go_to("+(i)+")");
        bind(tabtit[i],"click","go_to("+(i)+")");
    }
}
function go_to(ao){
    for(var i=0;i<2;i++){
        if(ao==i){
            tabtit[i].className+=" up";
            $tabmain(i).className+=" block";
        }else {
            tabtit[i].className=" ";
            $tabmain(i).className=" nones";}}
    }

function bind(o,ev,fn){
    if (document.all){
        o.attachEvent('on'+ev,new Function(fn));
    }
    else{
        o.addEventListener(ev,fn,false);
    }
}
//<!-- edit by hayden for 相关日志 and 日志信息切换  -->

/* 选项卡关键属性 by hayden 12.03 */
#conbody-tab { width:98%; position:relative;background:url(../../images/contab/menubg.gif) repeat-x;padding-left:10px; } /*设置容器高宽等*/
#conbody-tab #contab_m0,#conbody-tab #contab_m1,#conbody-tab #contab_m2{clear:left; width:564px; border:0;text-align: left;padding-top:10px; }/*设置被操作容器高宽等*/
#conbody-tab .nones { display:none; }/*设置被操作容器默认隐藏:不用ID是因为下面将利用class来控制被操作容器显示,而class优先级低于id选择器*/
#conbody-tab .block { display:block; }/*选中的被操作容器*/
#conbody-tab h3 { float:left; width:114px; height:22px; line-height:22px; margin:0 -1px 0 0; font-size:12px; cursor:pointer; font-weight:normal; text-align:center; background:url(../../images/contab/line2.gif) no-repeat; padding-top:4px;}/*默认标题样式*/
#conbody-tab h3 span {display: block;background:url(../../images/contab/90.gif) no-repeat 88px -1px ;text-indent: 10px;font-weight:bold;color:#840000;}
#conbody-tab .up { background:#fff url(../../images/contab/menu.gif) no-repeat;color:#840000; }/*选中的标题样式*/
#conbody-tab .up span {color:#fff;}
#conbody-tab ul.con-Related {width:100%; margin-bottom:30px;}
#conbody-tab ul.con-Related li {width:48%;overflow:hidden;float:left;line-height:22px;margin-right:10px;background:url(../../images/contab/re-a-line2.gif) repeat-x left bottom;}
/*修饰列表内容*/
/* 选项卡关键属性 by hayden 12.03 */

            <div class="Content-body">
                    <$log_Modify$>
                    <img src="images/From.gif" style="margin:0px 2px -4px 0px" alt=""/><strong>文章来自:</strong> <a href="<$log_FromUrl$>" target="_blank"><$log_From$></a><br/>
                    <img src="images/icon_trackback.gif" style="margin:4px 2px -4px 0px" alt=""/><strong>引用通告:</strong> <a href="trackback.asp?tbID=<$LogID$>&action=view" target="_blank">查看所有引用</a> | <a href="javascript:;" title="获得引用文章的链接" onclick="getTrackbackURL(<$LogID$>)">我要引用此文章</a><br/>
                    <img src="images/tag.gif" style="margin:4px 2px -4px 0px" alt=""/><strong>Tags:</strong> <$log_tag$><br/>
                </div>
                <div class="Content-bottom"><div class="ContentBLeft"></div><div class="ContentBRight"></div>评论: <$log_CommNums$> | <a href="trackback.asp?tbID=<$LogID$>&action=view" target="_blank">引用: <$log_QuoteNums$></a> | 查看次数: <$log_ViewNums$></div>

<!-- edit by hayden for 相关日志 and 日志信息切换  -->
                <div id="conbody-tab">
    <h3>日志信息</h3>
    <h3 class="up">相关日志</h3>
    <h3 onclick="window.location='#MsgContent';"><span>网友评论</span></h3>
    <div id="contab_m0" class="nones">
        <$log_Modify$><BR>
        评论: <$log_CommNums$> | 引用: <$log_QuoteNums$> | 查看次数: <$log_ViewNums$>
        <BR><BR><img src="images/From.gif" style="margin:0px 2px -4px 0px" alt=""/><strong>文章来自:</strong> <a href="<$log_FromUrl$>" target="_blank"><$log_From$></a><br/>
        <img src="images/icon_trackback.gif" style="margin:4px 2px -4px 0px" alt=""/><strong>引用通告:</strong> <a href="trackback.asp?tbID=<$LogID$>&action=view" target="_blank">查看所有引用</a> | <a href="javascript:;" title="获得引用文章的链接" onclick="getTrackbackURL(<$LogID$>)">我要引用此文章</a><br/>
        <img src="images/tag.gif" style="margin:4px 2px -4px 0px" alt=""/><strong>Tags:</strong> <$log_tag$><br/><br/>
    </div>
    <div id="contab_m1" class="block"><$log_relatedtag$></div>
</div>
<div style="clear:left;width:2px;height:1px;"></div>
<!-- edit by hayden for 相关日志 and 日志信息切换 end  -->

    log_comorder,log_DisComment FROM

    log_comorder,log_DisComment,log_tag  FROM

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

TempArticle=Replace(TempArticle,"<$log_relatedtag$>",getRelated(log_ViewArr(8,0),LogID,log_ViewArr(2,0)))

<div class="Content-body">
                        <%if len(log_ViewArr(16,0))>0 then response.write (log_ViewArr(16,0)&"<br/>")%>
                        <img src="images/From.gif" style="margin:4px 2px -4px 0px" alt=""/><strong>文章来自:</strong> <a href="<%=log_ViewArr(17,0)%>" target="_blank"><%=log_ViewArr(18,0)%></a><br/>
                        <img src="images/icon_trackback.gif" style="margin:4px 2px -4px 0px" alt=""/><strong>引用通告:</strong> <a href="<%="trackback.asp?tbID="&id&"&action=view"%>" target="_blank">查看所有引用</a> | <a href="javascript:;" title="获得引用文章的链接" onclick="getTrackbackURL(<%=id%>)">我要引用此文章</a><br/>
                           <%dim getTag
                          set getTag=new tag
                        %>
                         <img src="images/tag.gif" style="margin:4px 2px -4px 0px" alt=""/><strong>Tags:</strong> <%=getTag.filterHTML(log_ViewArr(19,0))%><br/>
                       </div>
                       <div class="Content-bottom"><div class="ContentBLeft"></div><div class="ContentBRight"></div>评论: <%=log_ViewArr(12,0)%> | 引用: <%=log_ViewArr(13,0)%> | 查看次数: <%=log_ViewArr(4,0)%>
                       </div>

<div id="conbody-tab">
    <h3>日志信息</h3>
    <h3>相关日志</h3>
    <h3 onclick="window.location='#MsgContent';"><span>网友评论</span></h3>
    <div id="contab_m0" class="nones">
        <%if len(log_ViewArr(16,0))>0 then response.write (log_ViewArr(16,0)&"<br/>")%><BR>
        评论: <%=log_ViewArr(12,0)%> | 引用: <%=log_ViewArr(13,0)%> | 查看次数: <%=log_ViewArr(4,0)%>
        <BR><BR><img src="images/From.gif" style="margin:4px 2px -4px 0px" alt=""/><strong>文章来自:</strong> <a href="<%=log_ViewArr(17,0)%>" target="_blank"><%=log_ViewArr(18,0)%></a><br/>
        <img src="images/icon_trackback.gif" style="margin:4px 2px -4px 0px" alt=""/><strong>引用通告:</strong> <a href="<%="trackback.asp?tbID="&id&"&action=view"%>" target="_blank">查看所有引用</a> | <a href="javascript:;" title="获得引用文章的链接" onclick="getTrackbackURL(<%=id%>)">我要引用此文章</a><br/>
         <%
         Dim haydenTags : haydenTags = log_ViewArr(19,0)
         dim getTag
        set getTag=new tag
            %>
             <img src="images/tag.gif" style="margin:4px 2px -4px 0px" alt=""/><strong>Tags:</strong> <%=getTag.filterHTML(log_ViewArr(19,0))%><br/><br/>
    </div>
    <div id="contab_m1" class="block"><%=getRelated(haydenTags,LogID,log_ViewArr(2,0))%></div>
</div>

<div style="clear:left;width:2px;height:1px;"></div>

*******************************************
'  显示相关日志
。。。。
Function getRelated(hayden_tag,hayden_LogID)

至。。。。

'****************  相关日志功能 getRelated END BY HAYDEN    ****************

'*******************************************
'  显示相关日志
'  作者：静￠脉
'  出自：www.mysuc.com
'  时间：2007.12.03
'*******************************************
Function getRelated(hayden_tag,hayden_LogID,hayde_logtit)
    getRelated=""
  Dim i,RsT,OutPut
    Dim hayden_arr_tag
    Dim hayden_sql
    Dim hayden_sqlTag : hayden_sqlTag=""
  OutPut=""
     if hayden_tag<>"" Then
            hayden_sqlTag = "log_tag like '%{" & Replace(Replace(Replace(hayden_tag,"}{","}%' or log_tag like '%{"),"{",""),"}","") & "}%'"
            hayden_sqlTag = "and (" & hayden_sqlTag & ") "

                hayden_sql="Select top 10 log_Title,log_id,log_ViewNums from blog_Content where log_ID<>" & hayden_LogID & " " & hayden_sqlTag & " and log_IsDraft=False order by log_PostTime desc"
                Set RsT=conn.execute(hayden_sql)
                if not RsT.eof then
                    Do until Rst.eof
                                OutPut=OutPut&"<li><a href='article.asp?id="&RsT(1)&"&fromid=" & hayden_LogID & "' class='sideA'>"&RsT(0)&"["&RsT(2)&"]</a></li>"
                    Rst.movenext
                    Loop
                    hayden_tag=Replace(Replace(Left(hayden_tag,Len(hayden_tag)-1),"{",""),"}",", ")
                    OutPut=OutPut & "<li style=""clear:left;width:90%;""><a href='search.asp?searchType=Tags&hayden_logid="& hayden_LogID &"&hayden_logtit="& server.urlencode(hayde_logtit) &"&SearchContent="& server.urlencode(hayden_tag) & "' class='more' style='margin-top:5px;'>更多相关</a></li>"
                End If
        End If
        Dim setretab : setretab="0"
        If OutPut="" Then
            OutPut="<li style='text-align:center;margin-top:15px;'>无相关日志</li><SCRIPT LANGUAGE='JavaScript'></SCRIPT>"
            setretab="1"
        Else
            OutPut="<ul class=""con-Related"">"&Replace(OutPut,chr(39),chr(34))&"</ul>"
        End If
        OutPut=OutPut&"<SCRIPT LANGUAGE=""JavaScript"">tabconfig();"
        If setretab="1" Then
            OutPut=OutPut&"go_to('0')"
        Else
            OutPut=OutPut&"go_to('1')"
        End If
        OutPut=OutPut&"</SCRIPT>"
        getRelated=OutPut
        Set rst=nothing
End Function
'****************  相关日志功能+日志信息切换 getRelated END BY HAYDEN    ****************