📄 zyguanli.asp
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/conn.asp" -->
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_conn_STRING
Recordset1_cmd.CommandText = "SELECT * FROM buzhi ORDER BY zy_cs ASC"
Recordset1_cmd.Prepared = true
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.text { font-size: 12px; color: #000000}
.t3 {
color: #000000;
background-color: #eaf1fb;
border: 1px solid #3d5a83;
font-size: 12px;
}
-->
</style>
<link href="../Admin_Style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #D6DFF7;
}
-->
</style></head>
<body text="#000000">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="topbg">
<td height="22" colspan="2" align="center"><strong>作 业 系 统 管 理</strong></td>
</tr>
</table>
<br>
<table width="100%" border="0" cellspacing="1" cellpadding="2" class="border">
<tr class="title">
<td height="45">
<div align="center"><strong>已发布的作业题</strong></div>
</td>
</tr>
<% If Recordset1.EOF And Recordset1.BOF Then %>
<tr class="tdbg">
<td height="37" class="tdbg"><table width="500" border="0" cellspacing="0" cellpadding="0" align="center" height="20">
<tr>
<td height="20"><div align="center">暂时没有布置作业</div></td>
</tr>
</table></td>
</tr>
<% End If ' end Recordset1.EOF And Recordset1.BOF %>
<tr class="tdbg">
<td height="20" class="tdbg">
<table border="1" cellspacing="0" cellpadding="0" height="40" align="center">
<tr>
<td height="20" width="178">
<div align="center">次 数</div> </td>
<td height="20" width="166">
<div align="center">所属科目</div> </td>
<td height="20" width="204">
<div align="center">布置时间</div> </td>
<td width="66"><div align="center">查看</div></td>
<td width="68"><div align="center">删除</div></td>
</tr>
<%
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
%>
<tr>
<td height="20" width="178"><div align="center">第<%=(Recordset1.Fields.Item("zy_cs").Value)%>次作业</div></td>
<td height="20" width="166"><div align="center"><%=(Recordset1.Fields.Item("zy_km").Value)%></div></td>
<td height="20" width="204"><%=(Recordset1.Fields.Item("zy_fbtime").Value)%></td>
<td width="66"><div align="center"><a href="ck_zy.asp?id=<%=(Recordset1.Fields.Item("id").Value)%>">查看</a></div></td>
<td width="68"><div align="center"><a href="del_zyok.asp?id=<%=(Recordset1.Fields.Item("id").Value)%>">删除</a></div></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
Recordset1.MoveNext()
Wend
%>
</table>
</td>
</tr>
<tr class="tdbg">
<td height="29" class="tdbg">
<table width="600" border="0" cellspacing="0" cellpadding="0" height="20" align="center">
</table>
</td>
</tr>
<tr class="tdbg">
<td height="63" class="tdbg"> </td>
</tr>
</table>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -