head.asp

台讯企业全站管理系统V2006 供下载时经过了严格的测试

<%Sub Page_iHead()
    Response.Write "<DIV id=menuDiv STYLE='POSITION: absolute;'></DIV><DIV CLASS=table-span></DIV>"
    %>
    <TABLE WIDTH="770"  BORDER="0" ALIGN="center" cellpadding="0" CELLSPACING="0">
        <TR>
            <TD WIDTH="500"><IMG SRC="<%=Web_Const(2)%>"></TD>
            <TD><DIV CLASS="table-head"><DIV CLASS="table-head1"><%Call Head_Clock()%></DIV><DIV CLASS="table-head1"><A onclick="this.style.behavior='url(#default#homepage)';this.setHomePage('<%=Web_Const(1)%>');" href="<%=Web_Const(1)%>">设为首页</A>　|　<A onclick="window.external.addFavorite('<%=Web_Const(1)%>','<%=Web_Const(0)%>')" href="<%=Web_Const(1)%>">加入收藏</A>　|　<A id=zoom>繁體中文</A>&nbsp;<SCRIPT language=Javascript src="Inc/Chinese.Js"></SCRIPT></DIV></DIV></TD>
        </TR>
    </TABLE>
    <%
    strIfc = "<DIV CLASS='table-span'></DIV>"&_
             "<TABLE WIDTH=770 HEIGHT=32 BORDER=0 ALIGN=center cellpadding=0 CELLSPACING=0 CLASS=Head_Table><TR>"
    Dim Menu_nName,ParentnRs
    Set Rs=server.createObject("Adodb.RecordSet")
    Sql="select * from Tx_Menu where Menu_Flag=1 and ParentID=0 order by Menu_Order"
    Rs.open sql,Conn,1,1
        While Not Rs.Eof
            Set Rs_n=server.createObject("Adodb.RecordSet")
            Sql="select * from Tx_Menu where Menu_Flag=1 and ParentID=" & Rs("Menu_Id") & " order by Menu_Order"
            Rs_n.open sql,Conn,1,1
                ParentnRs=Rs_n.recordCount
                IF ParentnRs<>0 THEN
                    Menu_nName=""
                    While Not Rs_n.Eof
                        Menu_nName=Menu_nName & "<DIV CLASS=Menu_Table><SPAN style=width:100px;>&nbsp;- <A HREF=" & Rs_n("Menu_Url") & ">" & Rs_n("Menu_Name") & "</A></SPAN><SPAN style=width:14px;><IMG SRC=Skins/Blue/Tx_Ar1.gif></SPAN></DIV><DIV CLASS=type-height3></DIV>"
                    Rs_n.MoveNext
                    Wend
                    strIfc = strIfc & "<SCRIPT LANGUAGE='JavaScript' TYPE='text/javascript'>"&_
                                      "var " & Rs("Menu_Name") & "='" & Menu_nName & "';"&_
                                      "</script>"
                End IF
            Rs_n.Close
            Set Rs_n=Nothing
            strIfc = strIfc & "<TD ALIGN=center><A HREF=" & Rs("Menu_Url") & " "
            IF ParentnRs<>0 THEN
                strIfc = strIfc & "onMouseOver='ShowMenu(" & Rs("Menu_Name") & ",120)'"
            End IF
            strIfc = strIfc & "><SPAN CLASS=Head_Table>" & Rs("Menu_Name") & "</SPAN></A></TD>"
        Rs.MoveNext
        Wend
    Rs.Close
    set Rs=Nothing
    strIfc = strIfc & "</TR></TABLE><DIV CLASS='table-span'></DIV><DIV CLASS=table-tstd>"
                      Response.Write strIfc
    Call Head_Banner()
    Response.Write "</DIV><DIV CLASS='table-span'></DIV>"
End Sub
%>