head.asp

强大的后台管理功能,给用户自由制定页面,新闻、产品多级分类。 管理员后台站点关闭,后台管理员仍然可以登陆。页面是否允许使用右键和复制功能。自定义IE状态栏、版权等显示信息。 开通会员注册和产品

<% 
w=weekday(now(),2) '2表示以星期一作为一周的第一天
select case w
case 1
we="一"
case 2
we="二"
case 3
we="三"
case 4
we="四"
case 5
we="五"
case 6
we="六"
case 7
we="日"

end select
%>
<%Sub Page_iHead()
    Response.Write "<DIV id=menuDiv STYLE='POSITION: absolute;'></DIV><DIV CLASS=table-span></DIV>"
    %>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
#Layer1 {
	position:absolute;
	left:2px;
	top:188px;
	width:262px;
	height:385px;
	z-index:1;
}
-->
</style>

<table width="100%"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="223" valign="top"><img src="<%=Web_Const(2)%>" width="224" height="50" /></td>
    <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0" class="table-head1">
      <tr>
        <td><table width="780" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td align="right"><span class="style1"><%= year(now()) %>年<%= month(now()) %>月<%= day(now()) %>日　　星期<%= we %></span></td>
            </tr>
          </table></td>
      </tr>
    </table>
      <table width="780" height="22" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td align="right"><span ><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" type="text/javascript"></script>
          </span></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<%
    strIfc = "<DIV CLASS='table-span'></DIV>"&_
             "<TABLE WIDTH=1000 HEIGHT=32 BORDER=0 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; class=RR>&nbsp;- <A HREF=" & Rs_n("Menu_Url") & "><SPAN CLASS=RR>" & Rs_n("Menu_Name") & "</SPAN></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 class=RR><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

End Sub
%>