顶部常用信息开发完成.提供下载

function blog_affichep()
%>
<DIV id=con align=left>
<UL id=tabtags>
  <LI class=sel�ctTag><A onMouseMove="sel�ctTag('menu0',this)" href="javascript:void(0)">本站公告</A> </LI>
  <LI><A onMouseMove="sel�ctTag('menu',this)" href="javascript:void(0)">信息推荐</A> </LI>
  <LI><A onMouseMove="sel�ctTag('menu2',this)" href="javascript:void(0)">常用网址</A> </LI>
  <LI><A onMouseMove="sel�ctTag('menu3',this)" href="javascript:void(0)">天气预报</A> </LI>
  <LI><A onMouseMove="sel�ctTag('menu4',this)" href="javascript:void(0)">实用工具</A> </LI>
  <LI><A onMouseMove="sel�ctTag('menu5',this)" href="javascript:void(0)">免责声明</A> </LI>
</UL>
<Ul id=tabtags>
    <li style="height:2px; background-color:#a5e763;"></li>
    <li style="height:2px; background-color:#ffae42;"></li>
    <li style="height:2px; background-color:#ff7573;"></li>
    <li style="height:2px; background-color:#ad7dde;"></li>
    <li style="height:2px; background-color:#4abeff;"></li>
    <li style="height:2px; background-color:#A8C6A8;"></li>
</Ul>
<DIV id=tabtagContent>
<%
        dim SQL,webLog,blog_affiche
        SQL="Sel�ct * FROM blog_Info"
        Set webLog=Server.Cr�ateObject("Adodb.Recordset")
        webLog.Open SQL,CONN,,

        blog_affiche=weblog("blog_affiche")
        blog_cuurl=weblog("blog_cuurl")
        blog_weather=weblog("blog_weather")
        blog_utools=weblog("blog_utools")
        blog_announce=weblog("blog_announce")
        webLog.Close
        Set webLog=Nothing
%>
<DIV class="tabtagContent sel�ctTag" id=menu0>
              <%=blog_affiche%>
</DIV>
<DIV class=tabtagContent id=menu>
<%
        SQL="Sel�ct * FROM blog_Content wh�re log_IsTop=True oDER BY log_PostTime DESC"
        Set webLog=Server.Cr�ateObject("Adodb.Recordset")
        webLog.Open SQL,CONN,,
        If webLog.EOF o webLog.BOF Then
            response.write "暂未找到任何置顶日志"
        else
            Do While Not webLog.EOF
                response.write "<font color=#999999>["&DateToStr(webLog("log_PostTime"),"Y-m-d")&"]</font><font color=#0000ff><A href=article.asp?id="&webLog("log_ID")&">"&webLog("log_Title")&"</A></font><br>"            
            webLog.movenext
            Loop
        end if
        webLog.Close
        Set webLog=Nothing
%>
</DIV>
<DIV class=tabtagContent id=menu2>
              <%=blog_cuurl%>
</DIV>
<DIV class=tabtagContent id=menu3>
              <%=blog_weather%>
</DIV>
<DIV class=tabtagContent id=menu4>
             <%=blog_utools%>
</DIV>
<DIV class=tabtagContent id=menu5>
             <%=blog_announce%>
</DIV>
</DIV>            
<SCRIPT type=text/javascript>
function sel�ctTag(showContent,selfObj){
    // 操作标签
    var tabtag = document.getElementById("tabtags").getElementsByTagName("li");
    var tabtaglength = tabtag.length;
    for(i=0; i<tabtaglength; i++){
        tabtag[i].className = "";
    }
    selfObj.parentNode.className = "sel�ctTag";
    // 操作内容
    for(i=0; j=document.getElementById("menu"+i); i++){
        j.style.display = "none";
    }
    document.getElementById(showContent).style.display = "block";
}
</SCRIPT>
</DIV>
<%
end function