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

📄 menu_list.asp

📁 适用于网络/信息企业
💻 ASP
字号:
<!--#include file="../INC/Conn.asp"-->
<!--#include file="inc/Check.asp"-->
<!--#include file="inc/public.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>亿博尔</title>
</head>
<link href="Images/Admin.css" rel="stylesheet" type="text/css">
<body>
<%
DIM id
ID=Trim(Request.QueryString("ID"))
%>
<table width="98%" height="40"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><table width="100%"  border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#D8D8D8">
        <tr>
          <td height="30" align="left" bgcolor="ffffff"><table width="100%" height="100%"  border="0" cellpadding="3" cellspacing="0">
              <tr bgcolor="eeeeee">
                <td width="5%" align="center"><span class="style2"><img src="Images/1.gif" width="13" height="12"></span></td>
                <td width="45%"><span class="style2">管理中心 &gt;&gt;&gt; <span class="style2 style1">
                <%
							set rs=server.createobject("adodb.recordset")
	                        sql="select * from MenuClass where ID="& ID
	                        rs.open sql,Conn,1,1
							if not(rs.eof and rs.bof) then
							response.write (rs("Class"))
							end if
							rs.close
							set rs=nothing
							
							%>
                </span></span></td>
                <td width="50%" align="right">&nbsp;</td>
              </tr>
          </table></td>
        </tr>
    </table></td>
  </tr>
</table>
<table width="98%" height="90%"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#D8D8D8">
  <tr>
    <td valign="top" bgcolor="ffffff"><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td align="center" bgcolor="ffffff">
            <table width=100% border=0 align='center' cellpadding=3 cellspacing=1 bordercolordark=#ffffff bgcolor="eeeeee">
              <tr align="center" bgcolor="ffffff" background="Images/box_bg.gif">
                <td width="6%" height="20" class='color01'>ID</td>
                <td width="6%" height="20" class='color01'>排序</td>
                <td width="14%" height="20" class='color01'>名称</td>
                <td width="10%" height="20" class='color01'>方式</td>
                <td width="9%" height="20" class='color01'>状态</td>
                <td width="40%" height="20" class='color01'>连接</td>
                <td width="15%" height="20" class='color01'>修改</td>
              </tr>
              <% 
set rs=server.createobject("adodb.recordset")
	sql="select * from menu where Class="& ID
	rs.open sql,conn,1,1
	if not(rs.bof and rs.eof) then
	rs.PageSize =15
	%>
	<!--#include file="../inc/page.asp"-->
              <tr align="center" bgcolor="ffffff" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#F5F5F5'">
                <td><%=RS("ID")%></td>
                <td><%=rs("ListID")%></td>
                <td align="left"><%=rs("Menu")%></td>
                <td align="left"><%=rs("target")%></td>
                <td><%if rs("Status")=1 then%>
                  正常
                    <%else%>
                    锁定
                    <%end if%></td>
                <td align="left"><a title="<%=left(rs("URL"),100)%>"><%=left(rs("URL"),70)%></a></td>
                <td><span class="color01"><a href="Menu_List_Add.asp?ID=<%=rs("ID")%>&CalssID=<%=ID%>">修改</a>|<a href="Menu_List_Add.asp?Makking=del&ID=<%=rs("ID")%>" onClick="return confirm('您确定要这样操作吗?')">删除</a></span></td>
              </tr>
              <%                                                                   
			rs.movenext
			next
			end if                                                            
           %>
            </table></td>
        </tr>
      </table>
        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="50%" height="24" align="left" background="Images/box_bg_1.gif"><a href="menu_List_add.asp?CalssID=<%=ID%>"><img src="Images/add.gif" alt="添加菜单" width="36" height="21" border="0"></a>&nbsp;<a href="Menu_Class.asp"><img src="Images/back.gif" width="36" height="21" border="0"></a></td>
            <td width="50%" height="24" align="right" valign="top" background="Images/box_bg_1.gif">
              <%Page_links="ID="&ID&"&"
			call PageControl(iCount,maxpage,page)
			rs.close
			set rs=nothing
			Conn.Close
			Set Conn = Nothing
			%></td>
          </tr>
        </table>
        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td height="1" bgcolor="#E2E1E1"></td>
          </tr>
      </table></td>
  </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
  <tr> 
    <td valign="top"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td  rowspan="2"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
              <tr> 
                <td class="12v" > 
                  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
                    <tr> 
                      <td> 
                        <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td width="14%" valign="top" bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                              <tr>
                                <td>&nbsp;
                                  </td>
                              </tr>
                            </table></td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
          </td>
        </tr>
      </table>    </td>
  </tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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