📄 smallclass.asp
字号:
<!--#include file="Conn.ASP"-->
<%
IF Session("KEY")<>"super"THEN
response.redirect "index_face.asp"
response.end
END IF
%>
<html>
<head>
<title>分类管理</title>
<LINK href=style.css rel=stylesheet>
</head>
<body>
<br>
<center>
<table border="0" width="80%" bgcolor="#000000" cellpadding="0" cellspacing="1">
<tr bgcolor="#abb8d6">
<td width="100%" colspan="5" align="center" valign="middle" height="55"><b>系
统 小 类 管 理</b></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="100%" align="center" colspan="5" height="50"> <font color="#FF0000">遇到排序不正常请使用“初始化排序”功能</font></td>
</tr>
<%
Set rs6 = Server.CreateObject("ADODB.Recordset")
sql6 ="SELECT * From SmallClass order by SmallClassID"
RS6.open sql6,Conn,3,3
%>
<tr align="center" bgcolor="#abb8d6">
<td width="10%">原序</td>
<td width="10%">新序</td>
<td width="25%">从属大类</td>
<td width="25%">小类名称</td>
<td width="30%">执 行</td>
</tr>
<%
i=0
do while not rs6.eof
i=i+1
%>
<tr align="center" bgcolor="#FFFFFF">
<td width="10%"><%=rs6("ID")%></td>
<td width="10%"><%=rs6("SmallClassID")%></td>
<td width="20%"><%=rs6("BigClassName")%></td>
<td width="20%"><%=rs6("SmallClassName")%></td>
<td width="40%"> <a href="SmallClassedit.asp?ID=<%=rs6("ID")%>&SmallClassname=<%=rs6("SmallClassname")%>" >编辑</a>
<a href="SmallClasskill.asp?ID=<%=rs6("ID")%>&SmallClassName=<%=rs6("SmallClassName")%>" >删除</a>
<%if i=1 then%>
拉上
<%else%>
<a href="SmallClassup.asp?ID=<%=rs6("ID")%>&SmallClassID=<%=rs6("SmallClassID")%>" >拉上</a>
<%end if%>
<%if i=rs6.recordcount then%>
拉下
<%else%>
<a href="SmallClassdown.asp?ID=<%=rs6("ID")%>&SmallClassID=<%=rs6("SmallClassID")%>" >拉下</a></td>
<%end if%>
</tr>
<%
RS6.MoveNext
Loop
rs6.close
set rs6=nothing
%>
<tr bgcolor="#FFFFFF">
<td width="100%" colspan="5" height="40" align="center"><a href="SmallClassstart.asp">初始化类型排序</a>
</td>
</tr>
<tr bgcolor="#abb8d6">
<form method="post" action="SmallClassadd.asp" name="type">
<td width="100%" align="center" colspan="5" height="55">
<%
set rs=server.CreateObject ("ADODB.RecordSet")
rs.Source="select * from BigClass order by BigClassID"
rs.Open rs.source,conn,1,1
%>
<font color="C0C0C0">在</font>
<select size="1" name="bigclassname" style="font-size: 9pt">
<%if rs.EOF then %>
<option>暂无任何大类</option>
<%else
while not rs.EOF
%>
<option value="<%=rs("BigClassName")%>"><%=trim(rs("BigClassName"))%></option>
<%
rs.MoveNext
wend
end if
rs.Close
set rs=nothing
%>
</select>
中添加小类：
<input class=text type="text" name="type" size="15">
<input type="hidden" name="howmany" size="15" value=<%=i%>>
<input type="submit" name="Submit" value="添加">
<input type="reset" value="重写" name="B1">
</td>
</form>
</tr>
</table>
</center>
</body>
</html>
<%conn.close
set conn=nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -