📄 bodyclassr.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="3" 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="23%" align="center">确定操作</td>
</tr>
<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from anclass where lmflag0=2 order by lmorder",conn,1,1
dim paixu
if rs.EOF and rs.BOF then
paixu=0
else
do while not rs.EOF
%>
<form name="form1" method="post" action="savebodyclassr.asp?action=edit&id=<%="one" &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="lmorder" type="text" id="anclassidorder" size="4" value="<%=int(rs("lmorder"))%>" tabindex="2">
</td>
<td>
<input type="submit" name="Submit" value="修 改" tabindex="4">
<a href="savebodyclassr.asp?id=<%="one" &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=server.CreateObject("adodb.recordset")
rs.Open "select * from nclass where lmflag0=2 order by lmorder",conn,1,1
if not(rs.EOF and rs.BOF) then
do while not rs.EOF
%>
<form name="form1" method="post" action="savebodyclassr.asp?action=edit&id=<%="two" &rs("nclassid")%>">
<tr align="center">
<td>
<input name="anclass" type="text" id="anclass" size="12" value="<%=trim(rs("classname"))%>" tabindex="1">
</td>
<td>
<input name="lmorder" type="text" id="anclassidorder" size="4" value="<%=int(rs("lmorder"))%>" tabindex="2">
</td>
<td>
<input type="submit" name="Submit" value="修 改" tabindex="4">
<a href="savebodyclassr.asp?id=<%="two" &rs("nclassid")%>&action=del" onClick="return confirm('您确定要删除该栏目吗？')"><font color=red>删除</font></a>
</td>
</tr>
</form>
<%rs.MoveNext
loop
paixu=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="3" align="center" background="images/admin_bg_1.gif">
<font color="#FFFFFF">==<b> </b></font><b><font color="#ffffff">添加</font></b><font color="#FFFFFF"><b>右栏项目</b></font><b><font color="#FFFFFF">
</font></b><font color="#FFFFFF">==</font></td>
</tr>
<tr align="center">
<td width="48%" align="center"> 右栏名称</td>
<td width="22%" align="center"> 右栏排序</td>
</tr>
<form name="form1" method="post" action="savebodyclassr.asp?action=add">
<tr align="center">
<td>
<select name="selectmenu">
<option >选择以下项目</option>
<%set rs=server.createobject("adodb.recordset")
rs.Open "select * from anclass where lmflag0<=0 and classname<>'特殊内容' and classname<>'网站首页' and classname<>'首页' order by anclassidorder",conn,1,1
do while not rs.eof %>
<option value=<%="one" &rs("anclassid")%>><%=trim(rs("classname"))%></option>
<%rs.movenext
loop
rs.close
rs.Open "select * from nclass where lmflag0<=0 order by anclassid,nclassidorder",conn,1,1
do while not rs.eof %>
<option value=<%="two" &rs("nclassid")%>><%=trim(rs("classname"))%></option>
<%rs.movenext
loop
rs.close
set rs=nothing
%>
</select>
</td>
<td>
<input name="nclassidorder2" type="text" id="anclassidorder2" size="4" value="<%=paixu+1%>" tabindex="6">
</td>
<td width="28%">
<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 + -