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

📄 anclass.asp

📁 简单整站程序
💻 ASP
字号:
<!--#include virtual="/include/check.asp"-->
<% CheckAdminIsLogin("信息管理") %>
<!--#include virtual="/include/conn.asp"-->
<html><head><title>一级菜单管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/style.css" rel="stylesheet" type="text/css">
</head>
<body>
                              <table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
							  <tr>
							  <td colspan="4" align="center" background="images/admin_bg_1.gif">
								<font color="#FFFFFF">==<b> 一级菜单查看与修改 </b>==</font></td>
							  </tr>
                                <tr > 
                                  <td width="39%" align="center">菜单名称</td>
                                  <td width="18%" align="center">菜单排序</td>
                                  <td width="18%" align="center">链接地址</td>
                                  <td width="23%" align="center">确定操作</td>
                                </tr>
                                <%set rs=server.CreateObject("adodb.recordset")
		  rs.Open "select * from anclass order by anclassidorder ",conn,1,1
		  dim paixu
		  if rs.EOF and rs.BOF then
		     response.Write "<div align=center><font color=red>还没有相应菜单!</font></center>"
		     paixu=0
		  else
		     do while not rs.EOF
		  %>
                                <form name="form1" method="post" action="saveanclass.asp?action=edit&id=<%=int(rs("anclassid"))%>">
                                  <tr  align="center"> 
                                    <td>
									<input name="anclass" type="text" id="anclass" size="12" value="<%=trim(rs("classname"))%>" tabindex="1">
                                    </td>
                                    <td>
									<input name="anclassidorder" type="text" id="anclassidorder" size="4" value="<%=int(rs("anclassidorder"))%>" tabindex="2">
                                    </td>
                                    <td>
									<input name="anweb" type="text" id="anclassidorder3" size="30" value="<%=rs("anweb")%>" tabindex="3"></td>
                                    <td>
									<input type="submit" name="Submit" value="修 改" tabindex="4">&nbsp;
									<a href="saveanclass.asp?id=<%=int(rs("anclassid"))%>&action=del" onClick="return confirm('您确定要删除该菜单吗?')"><font color=red>删除</font></a>
                                    </td>
                                  </tr>
                                </form>
						<%rs.MoveNext
								loop
								paixu=rs.RecordCount
								end if
                                rs.Close
                                set rs=nothing
								%>
								</table><br>
<table class="tableBorder" width="90%" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td colspan="4" align="center" background="images/admin_bg_1.gif">
<font color="#FFFFFF">==<b> </b></font><b><font color="#ffffff">添加</font><font color="#FFFFFF">一级菜单 
</font></b><font color="#FFFFFF">==</font></td>
</tr>
<tr  align="center"> 
<td width="37%" align="center"> 菜单名称</td>
<td width="17%" align="center"> 菜单排序</td>
<td width="22%" align="center"> 链接地址</td>
</tr>
<form name="form1" method="post" action="saveanclass.asp?action=add">
<tr  align="center"> 
<td>
<input name="anclass2" type="text" id="anclass2" size="12" tabindex="5">
</td>
<td>
<input name="anclassidorder2" type="text" id="anclassidorder2" size="4" value="<%=paixu+1%>" tabindex="6">
</td>
<td>
<input name="nweb" type="text" id="fudongjia2" size="30" value="#" tabindex="7">
</td>
<td width="21%">
<input type="submit" name="Submit3" value="添 加" tabindex="8">

</td>
</tr>
</form>
</table>
<p align="center"><font color="#FF0000">说明:</font>当菜单名设为“<font color="#FF00FF">特殊内容</font>”时,则此项不在导航条中显示!</p>
<!--#include file="copyright.asp"-->							
</body>
</html>


⌨️ 快捷键说明

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