?? exercise_teacher.asp
字號(hào):
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'=========================================================
' 學(xué)校機(jī)房作業(yè)管理系統(tǒng) V 1.0 [創(chuàng)建于200812122100]
' 授權(quán)發(fā)布網(wǎng)站：清遠(yuǎn)ABC-http://www.qyabc.com/
' 客服QQ:418322257 E-Mail:qystu@163.com
' 注意：如想得到關(guān)于本程序免費(fèi)的技術(shù)支持，
' 必須承諾使用一周后，用平郵回寄“相關(guān)文件”文件夾中的“學(xué)校機(jī)房作業(yè)管理系統(tǒng)調(diào)查反饋表”表格。
' 作者博客：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>作業(yè)按教師分類-<%=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> </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>
</td>
</tr>
<tr>
<td align="center"><a href="admin_exercise_content_add.asp"></a><a href="admin_news_add.asp"></a>
</td>
</tr>
<tr>
<td align="center"><a href="admin_exercise_content_mylist.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%" 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> <% 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
%>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -