📄 admin_special_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 Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
special_list_numRows = special_list_numRows + Repeat1__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>
<table width="90%" border="0" align="center" cellpadding="8" cellspacing="1" bgcolor="#C1E0FF">
<tr>
<td align="center">序列</td>
<td align="center">专业名称</td>
<td align="left">专业说明</td>
<td align="center">修改</td>
<td align="center">删除</td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT special_list.EOF))
%>
<tr>
<td width="7%" align="center" bgcolor="#FFFFFF"><%=(special_list.Fields.Item("special_index").Value)%></td>
<td width="21%" align="center" bgcolor="#FFFFFF"><%=(special_list.Fields.Item("special_list").Value)%></td>
<td width="50%" align="left" bgcolor="#FFFFFF"><%=(special_list.Fields.Item("special_remark").Value)%></td>
<td width="10%" align="center" bgcolor="#FFFFFF"><a href="admin_special_modi.asp?id=<%=(special_list.Fields.Item("special_id").Value)%>">修改</a></td>
<td width="12%" align="center" bgcolor="#FFFFFF"><a href="admin_special_del.asp?id=<%=(special_list.Fields.Item("special_id").Value)%>" onClick="return confirm('温馨提示：删除后，将不能恢复。你确定删除这班级吗？')">删除</a></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
special_list.MoveNext()
Wend
%>
<tr>
<td height="1" colspan="5" bgcolor="#CCCCCC"></td>
</tr>
<tr> </tr>
<tr>
<td colspan="5" bgcolor="#C1E0FF"> </td>
</tr>
</table>
<br>
</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 + -