📄 exercise_teacher.asp

📁 《学校机房作业管理系统》采用ASP+Aceesss+ ServU构架
💻 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" -->
<%
Dim teacherlist__MMColParam
teacherlist__MMColParam = "教师"
If (Request("MM_EmptyValue") <> "") Then 
  teacherlist__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim teacherlist
Dim teacherlist_numRows

Set teacherlist = Server.CreateObject("ADODB.Recordset")
teacherlist.ActiveConnection = MM_master_STRING
teacherlist.Source = "SELECT studentnum, studentname,userid  FROM userinfo  WHERE usersort = '" + Replace(teacherlist__MMColParam, "'", "''") + "' and Authority='5'  ORDER BY studentnum DESC"
teacherlist.CursorType = 0
teacherlist.CursorLocation = 2
teacherlist.LockType = 1
teacherlist.Open()

teacherlist_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
teacherlist_numRows = teacherlist_numRows + Repeat1__numRows
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>作业按教师分类-<%=WebName%></title>
<link rel="SHORTCUT ICON" href="favicon.ico"/>
<link href="<%= SysCss %>" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.STYLE2 {
	font-size: x-large;
	color: #FF0000;
}
-->
</style>
</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>&nbsp;</td>
      </tr>
      <tr>
        <td align="center"><a href="exercise_teacher.asp">按教师分类</a><a href="admin_news_index.asp"></a></td>
      </tr>
      <tr>
          <td align="center"><a href="exercise_list.asp"></a><a href="admin_news_index.asp"></a>&nbsp; 
          </td>
      </tr>
      <tr>
          <td align="center"><a href="admin_exercise_content_add.asp"></a><a href="admin_news_add.asp"></a> 
            &nbsp; </td>
      </tr>
      <tr>
          <td align="center"><a href="admin_exercise_content_mylist.asp"></a><a href="admin_news_add.asp"></a>&nbsp;</td>
      </tr>
      <tr>
          <td align="center"><a href="admin_news_add.asp"></a>&nbsp;</td>
      </tr>
    </table></td>
    <td width="84%" align="center" valign="middle"><p class="STYLE2">首先选择科任教师：</p>
      <p> 
        <% 
While ((Repeat1__numRows <> 0) AND (NOT teacherlist.EOF)) 
%>
            <span class="STYLE2"><a href="exercise_list.asp?userid=<%=(teacherlist.Fields.Item("userid").Value)%>"><%=(teacherlist.Fields.Item("studentname").Value)%></a>&nbsp;&nbsp; <% if Repeat1__numRows mod 5 =0 then Response.Write("<br>") end if %>
            <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  teacherlist.MoveNext()
Wend
%>
        <br>
        <br>
        </span>        <br>
        <br>
        <br>
      </p></td>
  </tr>
</table>
<!--#include file="inc/bot.asp" -->
</body>
</html>
<%
teacherlist.Close()
Set teacherlist = Nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -