⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_menu.asp

📁 非常好的源码 非常好的源码 非常好的源码
💻 ASP
📖 第 1 页 / 共 2 页
字号:
<!--#include file="admin_login_check.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="images/css.css" type=text/css rel=stylesheet>
<title></title>
<STYLE type=text/css>
BODY {
	BACKGROUND: #799ae1; MARGIN: 0px; FONT: 9pt 宋体;
	scrollbar-face-color: #DEE3E7;
scrollbar-highlight-color: #FFFFFF;
scrollbar-shadow-color: #DEE3E7;
scrollbar-3dlight-color: #D1D7DC;
scrollbar-arrow-color:  #006699;
scrollbar-track-color: #EFEFEF;
scrollbar-darkshadow-color: #98AAB1;
}
TABLE {
	BORDER-RIGHT: 0px; BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px
}
TD {
	FONT: 12px 宋体
}
IMG {
	BORDER-RIGHT: 0px; BORDER-TOP: 0px; VERTICAL-ALIGN: bottom; BORDER-LEFT: 0px; BORDER-BOTTOM: 0px
}
A {
	FONT: 12px 宋体; COLOR: #215dc6; TEXT-DECORATION: none
}
A:hover {
	COLOR: #428eff
}
.sec_menu {
	BORDER-RIGHT: white 1px solid; BACKGROUND: #d6dff7; OVERFLOW: hidden; BORDER-LEFT: white 1px solid; BORDER-BOTTOM: white 1px solid
}
.menu_title {
	
}
.menu_title SPAN {
	FONT-WEIGHT: bold; LEFT: 8px; COLOR: #215dc6; POSITION: relative; TOP: 2px
}
.menu_title2 {
	
}
.menu_title2 SPAN {
	FONT-WEIGHT: bold; LEFT: 8px; COLOR: #428eff; POSITION: relative; TOP: 2px
}
</STYLE>


<SCRIPT language=javascript>
  var whichOpen="";				//展开的菜单
  var whichContinue='';			//继续执行的菜单
function menuShow(obj,maxh,obj2)			//显示出动态菜单
{
  if(obj.style.pixelHeight<maxh)
  {
    obj.style.pixelHeight+=maxh/10;
	obj.filters.alpha.opacity+=10;
	obj2.background="images/pics/title_bg_hide.gif";
    if(obj.style.pixelHeight==maxh/5)
	  obj.style.display='block';
	myObj=obj;
	myMaxh=maxh;
	myObj2=obj2;
	setTimeout('menuShow(myObj,myMaxh,myObj2)','4');
  }
}
function menuHide(obj,maxh,obj2)			//菜单的隐藏
{
  if(obj.style.pixelHeight>0)
  {
    if(obj.style.pixelHeight==maxh/10)
	  obj.style.display='none';
    obj.style.pixelHeight-=maxh/10;
	obj.filters.alpha.opacity-=10;
	obj2.background="images/pics/title_bg_show.gif";
	myObj=obj;
	myMaxh=maxh
	myObj2=obj2;
	setTimeout('menuHide(myObj,myMaxh,myObj2)','5');
  }
  else
    if(whichContinue)
	  whichContinue.click();
}
function menuChange(obj,maxh,obj2)	  			//菜单状态的跳转
{
  if(obj.style.pixelHeight)									//如果该菜单已经展开,则收进菜单
  {
    menuHide(obj,maxh,obj2);
	whichOpen='';
	whichcontinue='';
  }	
  else																	//该菜单没有展开
    if(whichOpen)												//有别的菜单展开,则将其收回
	{
	  whichContinue=obj2;
      whichOpen.click();										//模拟鼠标的点击,相当于一个递归调用	
	}
	else
	{
	  menuShow(obj,maxh,obj2);
	  whichOpen=obj2;
	  whichContinue='';
	}
}
var tt='start';
var ii='start';
function turnit(ss,bb) {

  if (ss.style.display=="none") {
    if(tt!='start') tt.style.display="none";
    if(ii!='start') ii.src="dian.gif";
    ss.style.display="";
    tt=ss;
    ii=bb;
    bb.src="ball.gif";
  }
  else {
    ss.style.display="none"; 
    bb.src="dian.gif";
  }
}

function openWindow(url) {
  popupWin = window.open(url, 'new_page', 'width=400,height=410,scrollbars')
}
</SCRIPT>
</head>


<body leftmargin="0" topmargin="0" bgcolor="#FFFFFF">




<TABLE cellSpacing=0 cellPadding=0 width="100%" align=left border=0> 
<TBODY>
  <TR>
    <TD vAlign=top>
      <TABLE cellSpacing=0 cellPadding=0 width=158 align=center>
        <TBODY>
        <TR style="CURSOR: hand">
          <TD vAlign=bottom height=42><IMG height=38 
            src="images/pics/title.gif" width=158> 
	  </TD>
	</TR>
	</TBODY>
      </TABLE>

      <TABLE cellSpacing=0 cellPadding=0 width=158 align=center>
        <TBODY>
        <TR style="CURSOR: hand">
            <TD class=menu_title onMouseOver="this.className='menu_title2';" 
          	onmouseout="this.className='menu_title';" 
          	background="images/pics/title_bg_quit.gif" 
            	height=25><SPAN><a href="admin_index.asp" target="_top"><B>管理中心</B></A>/<a href="admin_login_out.asp" target="_parent"><B>退出</B></A></SPAN> 
            </TD>
        </TR>
      </TBODY></TABLE>&nbsp;
<% if session("flag")="1" then%>
      <TABLE cellSpacing=0 cellPadding=0 width=158 align=center>
        <TBODY>
        <TR style="CURSOR: hand">
            <TD class=menu_title id=menuTitle1 
          onmouseover="this.className='menu_title2';" 
          onclick=menuChange(menu1,170,menuTitle1); 
          onmouseout="this.className='menu_title';" 
          background="images/pics/title_bg_show.gif" 
            height=25><SPAN>站点管理</SPAN> </TD>
          </TR>
        <TR>
          <TD>
            <DIV class=sec_menu id=menu1 
            style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px">
                <TABLE style="POSITION: relative; top: 10px;" cellSpacing=0 
            cellPadding=0 width=135 align=center>
                  <TBODY>
                    <TR> 
                      <TD height=20><a href="admin_config.asp" target="mainFrame">站点配置</a></TD>
                    </TR>
                    <TR>
                      <TD height=20><a href="admin_add_main.asp" target="mainFrame">栏目管理</a></TD>
                    </TR>
                    <TR>
                      <TD height=20><a href="admin_gonggo.asp" target="mainFrame">公告管理</a></TD>
                    </TR>
                    <TR>
                      <TD height=20><a href="admin_bbs.asp" target="mainFrame">评论管理</a></TD>
                    </TR>
                    <TR>
                      <TD height=20><a href="admin_link.asp" target="mainFrame">友联管理</a></TD>
                    </TR>
                    <TR>
                      <TD height=20><a href="admin_ly.asp" target="mainFrame">留言管理</a></TD>
                    </TR>
                    <TR>
                      <TD height=20><a href="admin_user.asp" target="mainFrame">用户管理</a></TD>
                    </TR>
                    <TR>
                      <TD height=20><a href="adminuser.asp" target="mainFrame">帐号管理</a></TD>
                    </TR>
                    </TBODY>
                </TABLE>
<%else%>
      <TABLE cellSpacing=0 cellPadding=0 width=158 align=center>
        <TBODY>
        <TR style="CURSOR: hand">
            <TD class=menu_title id=menuTitle1 
          onmouseover="this.className='menu_title2';" 
          onclick=menuChange(menu1,130,menuTitle1); 
          onmouseout="this.className='menu_title';" 
          background="images/pics/title_bg_show.gif" 
            height=25><SPAN>站点管理</SPAN> </TD>
          </TR>
        <TR>
          <TD>
            <DIV class=sec_menu id=menu1 
            style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px">
                <TABLE style="POSITION: relative; top: 10px;" cellSpacing=0 
            cellPadding=0 width=135 align=center>
                  <TBODY>
                    <TR>
                      <TD height=20><a href="admin_add_main.asp" target="mainFrame">栏目管理</a></TD>
                    </TR>
                    <TR>
                      <TD height=20><a href="admin_gonggo.asp" target="mainFrame">公告管理</a></TD>
                    </TR>
                    <TR>
                      <TD height=20><a href="admin_bbs.asp" target="mainFrame">评论管理</a></TD>
                    </TR>
                    <TR>
                      <TD height=20><a href="admin_link.asp" target="mainFrame">友联管理</a></TD>
                    </TR>
                    <TR>
                      <TD height=20><a href="admin_ly.asp" target="mainFrame">留言管理</a></TD>
                    </TR>
                    <TR>
                      <TD height=20><a href="adminuser.asp" target="mainFrame">帐号管理</a></TD>
                    </TR>
                    </TBODY>
                </TABLE>
<%end if%>
              </DIV></TD></TR></TBODY></TABLE>&nbsp; 

<%
dim h,i
	Set Rs = Server.CreateObject("Adodb.Recordset")
	Sql = "SELECT * FROM bclass "
	Rs.Open Sql,conn,1,3
	if not (rs.bof and rs.eof)  then 
		h=50+rs.RecordCount*20


%>
<% if session("flag")="1" or session("flag")="2" then%>
      <TABLE cellSpacing=0 cellPadding=0 width=158 align=center>
        <TBODY>
        <TR style="CURSOR: hand">
            <TD class=menu_title id=menuTitle2 
          onmouseover="this.className='menu_title2';" 
          onclick=menuChange(menu2,<%=h%>,menuTitle2); 
          onmouseout="this.className='menu_title';" 
          background="images/pics/title_bg_show.gif" 
            height=25><SPAN>文章管理</SPAN> </TD>
          </TR>
        <TR>
          <TD>
            <DIV class=sec_menu id=menu2 
            style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px">
                <TABLE style="POSITION: relative; top: 10px;" cellSpacing=0 
            cellPadding=0 width=135 align=center>
                  <TBODY>
                    <TR> 
                      <TD height=20><a href="admin_add_btitle.asp?Action=add" target="mainFrame">添加栏目</a></TD>
                    </TR>
<%else%>
      <TABLE cellSpacing=0 cellPadding=0 width=158 align=center>
        <TBODY>
        <TR style="CURSOR: hand">
            <TD class=menu_title id=menuTitle2 
          onmouseover="this.className='menu_title2';" 
          onclick=menuChange(menu2,<%=h-20%>,menuTitle2); 
          onmouseout="this.className='menu_title';" 
          background="images/pics/title_bg_show.gif" 
            height=25><SPAN>文章管理</SPAN> </TD>
          </TR>
        <TR>
          <TD>
            <DIV class=sec_menu id=menu2 
            style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px">
                <TABLE style="POSITION: relative; top: 10px;" cellSpacing=0 
            cellPadding=0 width=135 align=center>
                  <TBODY>
<%end if%>
                    <TR> 
                      <TD height=20><a href="admin_add_btitle.asp" target="mainFrame">栏目管理</a></TD>
                    </TR>
<%

	For i=1 to rs.RecordCount

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -