bigclass.asp
来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 110 行
ASP
110 行
<!--#include file="Conn.ASP"-->
<%
IF Session("KEY")<>"super"THEN
response.redirect "index_face.asp"
response.end
END IF
%>
<html>
<head>
<title>分类管理</title>
<style type="text/css">
<!--
BODY {font-size:9pt;font-family:Tahoma,Verdana,MS Sans Serif,Courier New;}
a:link, a:visited{text-decoration:none;}
A:hover {text-decoration:underline;color:#C5F0C5}
tr, td, p{font-size:9pt}
B{color:#C5F0C5;}
INPUT.text{color:#000000;background-color:#95A095;border:1px solid #101010; }
INPUT {BACKGROUND-COLOR: #000000; color: #FFFFFF; font-size: 9pt; border-style: solid; border-color: #707070; PADDING-TOP: 3px}FONT.strong{color:#FFFFFF;font-weight:bold}
.rcontent, .info, .move, .title{background-color:#202420}
.footer{color:white;font-size:8pt}
.cell, .outter{background-color:#303430}
-->
</style>
</head>
<body bgcolor="#000000">
<div align="center">
<center>
<p> </p>
<table border="0" width="80%" bgcolor="#303430" cellpadding="0">
<tr>
<td width="100%" align="center" style="border: 3 solid #808080" valign="middle" height="55"><b><font size="2" color="#00FF00">系
统 大 类 管 理</font></b> </td>
</tr>
<tr>
<td width="100%" align="center" style="border: 3 solid #808080">
<p> </p><div align="center">
<table border="0" cellspacing="1" width="80%" style="font-size: 10pt" bgcolor="#999999">
<tr>
<td align="center" colspan="4" width="100%" bgcolor="#303430" height="50">
<font color="#FFFFFF">请谨慎执行<font color="#FF0000">删除</font>操作！此操作将一起<font color="#FFFF00">删除相应的小类和新闻</font>！<br>
遇到排序不正常请使用“初始化排序”功能</font> </td>
</tr>
<%
Set rs6 = Server.CreateObject("ADODB.Recordset")
sql6 ="SELECT * From BigClass order by BigClassID"
RS6.open sql6,Conn,3,3
%>
<tr align="center" bgcolor="#666666">
<td width="15%"><font color="#FFFFFF">原序</font></td>
<td width="15%"><font color="#FFFFFF">新序</font></td>
<td width="30%"><font color="#FFFFFF">大类名称</font></td>
<td width="40%"><font color="#FFFFFF">执 行</font></td>
</tr>
<%
i=0
do while not rs6.eof
i=i+1%>
<tr bgcolor="#303430">
<td width="15%" align="center"><font color="#FFFFFF"><%=rs6("ID")%></font></td>
<td width="15%" align="center"><font color="#FFFFFF"><%=rs6("BigClassID")%></font></td>
<td width="30%" align="center"><font color="#FFFFFF"><%=rs6("BigClassName")%></font></td>
<td width="40%" bgcolor="#303430" align="center"><a href="BigClassedit.asp?ID=<%=rs6("ID")%>&BigClassName=<%=rs6("BigClassName")%>" style="color: #C0C0C0">编辑</a>
<a href="BigClasskill.asp?ID=<%=rs6("ID")%>&BigClassName=<%=rs6("BigClassName")%>" style="color: #C0C0C0">删除</a>
<%if i=1 then%>
<font color="#808080">拉上 </font>
<%else%>
<a href="BigClassup.asp?ID=<%=rs6("ID")%>&BigClassID=<%=rs6("BigClassID")%>" style="color: #C0C0C0">拉上</a>
<%end if%>
<%if i=rs6.recordcount then%>
<font color="#808080">拉下</font>
<%else%>
<a href="BigClassdown.asp?ID=<%=rs6("ID")%>&BigClassID=<%=rs6("BigClassID")%>" style="color: #C0C0C0">拉下</a></td>
<%end if%>
</tr>
<%
RS6.MoveNext
Loop
rs6.close
set rs6=nothing
%>
<tr>
<td colspan="4" height="40" align="center" width="100%" bgcolor="#303430"><a href="BigClassstart.asp"><font color="#FFFFFF">初始化分类排序</font></a></td>
</tr>
<tr>
<td align="center" colspan="4" width="100%" bgcolor="#303430">
<form method="post" action="BigClassadd.asp" name="type">
<font color="#C0C0C0"><br>
增加分类：</font>
<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">
</form>
</td>
</tr>
</table>
<p> </p>
</div>
</td>
</tr>
</table>
</center>
</div>
<p align="center">
</body>
</html>
<%conn.close
set conn=nothing%>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?