📄 admin_class_list.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'=========================================================
' 学校机房作业管理系统 V 1.0 [创建于200812122100]
' 授权发布网站：清远ABC-http://www.qyabc.com/
' 客服QQ:418322257 E-Mail:qystu@163.com
' 注意：如想得到关于本程序免费的技术支持，
' 必须承诺使用一周后，用平邮回寄“相关文件”文件夹中的“学校机房作业管理系统调查反馈表”表格。
' 作者博客：http://www.qyabc.com/u/qin/Default.aspx
'=========================================================
%>
<!--#include file="inc/config.asp" -->
<!--#include file="Connections/master.asp" -->
<%
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
%>
<%
Dim special_list
Dim special_list_numRows
Set special_list = Server.CreateObject("ADODB.Recordset")
special_list.ActiveConnection = MM_master_STRING
special_list.Source = "SELECT * FROM special_list ORDER BY special_index ASC"
special_list.CursorType = 0
special_list.CursorLocation = 2
special_list.LockType = 1
special_list.Open()
special_list_numRows = 0
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = -1
Repeat2__index = 0
special_list_numRows = special_list_numRows + Repeat2__numRows
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=WebName%>-<%=WebName%></title>
<link rel="SHORTCUT ICON" href="favicon.ico"/>
<link href="<%= SysCss %>" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="16%" valign="top"><table width="97%" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td> </td>
</tr>
<tr>
<td align="center"><a href="admin_class_add.asp">添加班级</a><a href="admin_news_index.asp"></a></td>
</tr>
<tr>
<td align="center"><a href="admin_class_list.asp">班级列表</a></td>
</tr>
<tr>
<td align="center"><a href="admin_special_add.asp">添加科组</a><a href="admin_news_add.asp"></a></td>
</tr>
<tr>
<td align="center"><a href="admin_special_list.asp">科组列表</a><a href="admin_news_add.asp"></a></td>
</tr>
<tr>
<td align="center"><a href="admin_news_add.asp"></a></td>
</tr>
</table></td>
<td width="84%" valign="top">
<table width="90%" border="0" align="center">
<tr>
<td height="30" bgcolor="#FFB8A6"><strong> 班级列表:</strong>如无必要，请不要随意修改！</td>
</tr>
</table>
<br>
<%
While ((Repeat2__numRows <> 0) AND (NOT special_list.EOF))
%>
<table width="90%" border="0" align="center" cellpadding="8" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td bgcolor="#FFFFFF"><%=(special_list.Fields.Item("special_list").Value)%></td>
<td> </td>
</tr>
<tr>
<td height="1" colspan="2" bgcolor="#CCCCCC"></td>
</tr>
<%
Dim class_list
Dim class_list_numRows
Set class_list = Server.CreateObject("ADODB.Recordset")
class_list.ActiveConnection = MM_master_STRING
class_list.Source = "SELECT * FROM class_list WHERE Specia = '" + Replace(special_list.Fields.Item("special_list").Value, "'", "''") + "' ORDER BY MasterClass ASC"
class_list.CursorType = 0
class_list.CursorLocation = 2
class_list.LockType = 1
class_list.Open()
class_list_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
class_list_numRows = class_list_numRows + Repeat1__numRows
%>
<tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT class_list.EOF))
%>
<%
dim mytablenum
mytablenum=Repeat1__index mod 2
if mytablenum =0 then
Response.Write "<td width='50%'>" %>
.<%=(class_list.Fields.Item("MasterClass").Value)%> <a href="admin_class_modi.asp?id=<%=(class_list.Fields.Item("ID").Value)%>">修改</a> <a href="admin_class_del.asp?id=<%=(class_list.Fields.Item("ID").Value)%>"onClick="return confirm('温馨提示：删除后，将不能恢复。你确定删除这班级吗？')">删除</a>
<%
Response.Write("</td>")
elseif mytablenum=1 then
Response.Write "<td width='50%'>" %>
.<%=(class_list.Fields.Item("MasterClass").Value)%> <a href="admin_class_modi.asp?id=<%=(class_list.Fields.Item("ID").Value)%>">修改</a> <a href="admin_class_del.asp?id=<%=(class_list.Fields.Item("ID").Value)%>"onClick="return confirm('温馨提示：删除后，将不能恢复。你确定删除这班级吗？')">删除</a>
<%
Response.Write("</td>")
Response.Write "</tr><tr>"
end if%>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
class_list.MoveNext()
Wend
%></tr>
<tr>
<td colspan="2" bgcolor="#C1E0FF"> </td>
</tr>
</table>
<br>
<%
class_list.Close()
Set class_list = Nothing
%>
<%
Repeat2__index=Repeat2__index+1
Repeat2__numRows=Repeat2__numRows-1
special_list.MoveNext()
Wend
%>
</td>
</tr>
</table>
<!--#include file="inc/bot.asp" -->
</body>
</html>
<%
special_list.Close()
Set special_list = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -