zytj.asp

在线教育

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/conn.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1.Source = "SELECT * FROM buzhi ORDER BY zy_fbtime DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "1"
If (Session("MM_Username") <> "") Then 
  Recordset2__MMColParam = Session("MM_Username")
End If
%>
<%
Dim Recordset2
Dim Recordset2_cmd
Dim Recordset2_numRows

Set Recordset2_cmd = Server.CreateObject ("ADODB.Command")
Recordset2_cmd.ActiveConnection = MM_conn_STRING
Recordset2_cmd.CommandText = "SELECT * FROM tijiao WHERE zy_studentid = ? AND ifread=0 and zy_grade='优秀' ORDER BY zy_km,zy_tjtime asc" 
Recordset2_cmd.Prepared = true
Recordset2_cmd.Parameters.Append Recordset2_cmd.CreateParameter("param1", 200, 1, 255, Recordset2__MMColParam) ' adVarChar

Set Recordset2 = Recordset2_cmd.Execute
Recordset2_numRows = 0
%>
<%
Dim Recordset3__MMColParam
Recordset3__MMColParam = "1"
If (Session("MM_Username")  <> "") Then 
  Recordset3__MMColParam = Session("MM_Username") 
End If
%>
<%
Dim Recordset3
Dim Recordset3_cmd
Dim Recordset3_numRows

Set Recordset3_cmd = Server.CreateObject ("ADODB.Command")
Recordset3_cmd.ActiveConnection = MM_conn_STRING
Recordset3_cmd.CommandText = "SELECT * FROM tijiao WHERE zy_studentid = ? AND ifread=0 and zy_grade='良好' ORDER BY zy_km,zy_tjtime asc" 
Recordset3_cmd.Prepared = true
Recordset3_cmd.Parameters.Append Recordset3_cmd.CreateParameter("param1", 200, 1, 255, Recordset3__MMColParam) ' adVarChar

Set Recordset3 = Recordset3_cmd.Execute
Recordset3_numRows = 0
%>
<%
Dim Recordset4__MMColParam
Recordset4__MMColParam = "1"
If (Session("MM_Username") <> "") Then 
  Recordset4__MMColParam = Session("MM_Username")
End If
%>
<%
Dim Recordset4
Dim Recordset4_cmd
Dim Recordset4_numRows

Set Recordset4_cmd = Server.CreateObject ("ADODB.Command")
Recordset4_cmd.ActiveConnection = MM_conn_STRING
Recordset4_cmd.CommandText = "SELECT * FROM tijiao WHERE zy_studentid = ? AND ifread=0 and zy_grade='及格' order by zy_km,zy_tjtime asc " 
Recordset4_cmd.Prepared = true
Recordset4_cmd.Parameters.Append Recordset4_cmd.CreateParameter("param1", 200, 1, 255, Recordset4__MMColParam) ' adVarChar

Set Recordset4 = Recordset4_cmd.Execute
Recordset4_numRows = 0
%>
<%
Dim Recordset5__MMColParam
Recordset5__MMColParam = "1"
If (Session("MM_Username") <> "") Then 
  Recordset5__MMColParam = Session("MM_Username")
End If
%>
<%
Dim Recordset5
Dim Recordset5_cmd
Dim Recordset5_numRows

Set Recordset5_cmd = Server.CreateObject ("ADODB.Command")
Recordset5_cmd.ActiveConnection = MM_conn_STRING
Recordset5_cmd.CommandText = "SELECT * FROM tijiao WHERE zy_studentid = ? AND ifread=0 and zy_grade='不及格' ORDER BY zy_km,zy_tjtime asc" 
Recordset5_cmd.Prepared = true
Recordset5_cmd.Parameters.Append Recordset5_cmd.CreateParameter("param1", 200, 1, 255, Recordset5__MMColParam) ' adVarChar

Set Recordset5 = Recordset5_cmd.Execute
Recordset5_numRows = 0
%>
<%
Dim Recordset6__MMColParam
Recordset6__MMColParam = "1"
If (Session("MM_Username") <> "") Then 
  Recordset6__MMColParam = Session("MM_Username")
End If
%>
<%
Dim Recordset6
Dim Recordset6_cmd
Dim Recordset6_numRows

Set Recordset6_cmd = Server.CreateObject ("ADODB.Command")
Recordset6_cmd.ActiveConnection = MM_conn_STRING
Recordset6_cmd.CommandText = "SELECT * FROM tijiao WHERE zy_studentid = ? AND ifread=0" 
Recordset6_cmd.Prepared = true
Recordset6_cmd.Parameters.Append Recordset6_cmd.CreateParameter("param1", 200, 1, 255, Recordset6__MMColParam) ' adVarChar

Set Recordset6 = Recordset6_cmd.Execute
Recordset6_numRows = 0
%>
<%
Dim Recordset7__MMColParam
Recordset7__MMColParam = "1"
If (Session("MM_Username") <> "") Then 
  Recordset7__MMColParam = Session("MM_Username")
End If
%>
<%
Dim Recordset7
Dim Recordset7_cmd
Dim Recordset7_numRows

Set Recordset7_cmd = Server.CreateObject ("ADODB.Command")
Recordset7_cmd.ActiveConnection = MM_conn_STRING
Recordset7_cmd.CommandText = "SELECT * FROM tijiao WHERE zy_studentid = ? AND ifread=1" 
Recordset7_cmd.Prepared = true
Recordset7_cmd.Parameters.Append Recordset7_cmd.CreateParameter("param1", 200, 1, 255, Recordset7__MMColParam) ' adVarChar

Set Recordset7 = Recordset7_cmd.Execute
Recordset7_numRows = 0
%>
<%
Dim Recordset8
Dim Recordset8_cmd
Dim Recordset8_numRows

Set Recordset8_cmd = Server.CreateObject ("ADODB.Command")
Recordset8_cmd.ActiveConnection = MM_conn_STRING
Recordset8_cmd.CommandText = "SELECT * FROM tijiao WHERE ifexample =0" 
Recordset8_cmd.Prepared = true

Set Recordset8 = Recordset8_cmd.Execute
Recordset8_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Recordset8_numRows = Recordset8_numRows + Repeat1__numRows
%>
<HTML>
<head>
<style type="text/css">
<!--
p{font-size:9pt};
td{font-size:9pt};
li{font-size:9pt};
select{font-size:9pt};
.forms {
	BORDER-RIGHT: #254b03 1px solid; BORDER-TOP: #254b03 1px solid; MARGIN-TOP: auto; MARGIN-BOTTOM: auto; BORDER-LEFT: #254b03 1px solid; WIDTH: 80px; BORDER-BOTTOM: #254b03 1px solid; HEIGHT: 14px; BACKGROUND-COLOR: #ffffff
}
a {color:#0000ff;font-size: 9pt ;text-decoration:none; line-height:13.5pt}
a:hover {text-decoration:none; color:#000000;text-decoration: underline}
-->
.a10 {  font-size: 10.5pt}
.bg {
	background-repeat: no-repeat;
}
</style>
<title>作业系统</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>

<body leftmargin="0" topmargin="0">
<table width="760" cellpadding="0" cellspacing="0" border="0" align="center">
  
</table>
  
<table width="760" border="0" cellpadding="0" cellspacing="0" align="center">
  <tr> 
      <td><img src="images/top.gif" width="760" height="100"></td>
  </tr>
</table>
  
<table width="760" border="0" cellpadding="0" cellspacing="0" bordercolor="003366" align="center">
  <tr> 
      
  </tr>