📄 smallclass.asp
字号:
<!--#include file="Conn.ASP"-->
<%
IF not(Session("KEY")="input" or Session("KEY")="check" or 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="86%" 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">遇到排序不正常请使用“初始化排序”功能<br>把鼠标移到小类名称上将出现该小类的注释</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%"><span style="CURSOR: hand" title="<%if rs6("smallClasszs")<>"" then%><%=rs6("smallClasszs")%><%else%>无<%end if%>"><%=rs6("smallClassName")%></span><%if session("key")="super" then%><font color=red>(<%=rs6("smallmaster")%>)</font><%end if%></td>
<td width="40%"><%if session("key")="super" or session("key")="check" or rs6("smallmaster")=session("username") then%><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><%end if%><%end if%></td>
</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
%>
在
<select size="1" name="bigclassname" style="font-size: 9pt">
<%if rs.EOF then %>
<option>暂无任何大类</option>
<%else
if session("KEY")="super" or Session("KEY")="check" then
while not rs.EOF
%>
<option value='<%=rs("BigClassName")%>'><%=trim(rs("BigClassName"))%></option>
<%
rs.MoveNext
wend
else
while not rs.EOF
if instr(rs("BigClassMaster"),Session("UserName"))>0 then
%>
<option value='<%=rs("BigClassName")%>'><%=trim(rs("BigClassName"))%></option>
<%
end if
rs.MoveNext
wend
end if
end if
%>
</select>
中添加小类：
<input class=text type="text" name="type" size="15" style="font-family: 宋体; font-size: 9pt"> 注释：
<input class=text type="text" name="smallclasszs" size="15" style="font-family: 宋体; font-size: 9pt">
<input type="hidden" name="howmany" size="15" value=<%=i%>>
<input type="hidden" name="smallmaster" value="<%=session("username")%>">
<input type="submit" name="Submit" value="添加" style="font-family: 宋体; font-size: 9pt">
<input type="reset" value="重写" name="B1" style="font-family: 宋体; font-size: 9pt">
</td>
</form>
</tr>
</table>
</center>
</body>
</html>
<%rs.Close
set rs=nothing
conn.close
set conn=nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -