📄 scoreprintstep1.asp

📁 很好的学籍管理系统代码
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT"%> 
<!--#include file="Connections/StudentConn.asp" -->
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_StudentConn_STRING
Recordset1.Source = "SELECT * FROM TestName ORDER BY id DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_StudentConn_STRING
Recordset2.Source = "SELECT * FROM Subject ORDER BY ID ASC"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>学生成绩打印</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2600.0" Name=GENERATOR>
<link href="home.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0>
<!--#include file="ScoreManage_Top.asp"-->
<TABLE width="760" border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR> 
      <TD width=1 background="images/dotLine_h.gif"><IMG src="images/shim(1).gif" width=1></TD>
      <TD Width="100" align="center" bgcolor="#EEEEEE">&nbsp;</TD>
      <td width="10" bgcolor="#F2FBF2"></td>
      <TD bgcolor="#F2FBF2"><img src="images/ScorePrint_Title.GIF" width="500" height="60"><br>
        <b><font color="#FF0000">&nbsp;&nbsp;&nbsp;&nbsp;如果您还没有阅读<a href="http://cqzx.sdedu.net/sdms/PrintGuide.asp" target="_blank">《如何用IE打印网页》</a>一文，那么请首先阅读它，因为本系统只是对查询的结果进行简单的版面调整，真正的打印功能还必须使用IE的打印功能来实现。</font><br>
        <br>
        <a href="http://cqzx.sdedu.net/sdms/PrintGuide.asp" target="_blank">&nbsp;&nbsp;&nbsp;&nbsp;点此阅读《如何用IE打印网页》一文。</a></b><br>
        <br>
        第一步：请选择查询方式<br>
        <table width="80%" border="0" cellpadding="0" cellspacing="3" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF">
          <form Name="form1" action="ScorePrintStep2_1.asp" method="post">
            <tr valign="middle"> 
              <td width="120" height="30" align="right"><font color="#FF0000">※</font>按考试查询：</td>
              <td width="150" height="30"> <select Name="sheetName">
                  <%
i=0						
While (NOT Recordset1.EOF)
	if i=0 then
		response.Write "<option value='" & Recordset1.Fields.Item("SheetName").Value & "' selected>" & Recordset1.Fields.Item("TestName").Value & "</option>"
	else
		response.Write "<option value='" & Recordset1.Fields.Item("SheetName").Value & "'>" & Recordset1.Fields.Item("TestName").Value & "</option>"
	end if
	i=i+1
	Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
  Recordset1.MoveFirst
Else
  Recordset1.Requery
End If
%>
                </select> </td>
              <td width="200" height="30"> <input type="submit" name="Submit" value="下一步"> 
              </td>
            </tr>
            <tr valign="middle"> 
              <td width="120" height="30" align="right">&nbsp;</td>
              <td height="30" colspan="2">查询指定考试中某一科或几科的成绩及总分、达标等信息。此种方式便于班任或科任掌握相应考试的考试情况。</td>
            </tr>
          </form>
          <form Name="form2" action="ScorePrintStep2_2.asp" method="post">
            <tr valign="middle"> 
              <td width="120" height="30" align="right"><font color="#FF0000">※</font>按科目查询：</td>
              <td width="150" height="30"> <select name="Subject">
                  <%
i=0
While (NOT Recordset2.EOF)
	if i=0 then
        response.Write "<option value='" & Recordset2.Fields.Item("SubjectName").Value & "' selected>" & Recordset2.Fields.Item("SubjectName").Value & "</option>"
    else
        response.Write "<option value='" & Recordset2.Fields.Item("SubjectName").Value & "'>" & Recordset2.Fields.Item("SubjectName").Value & "</option>"
	end if
	i=i+1
	Recordset2.MoveNext()
Wend
If (Recordset2.CursorType > 0) Then
  Recordset2.MoveFirst
Else
  Recordset2.Requery
End If
%>
                </select> </td>
              <td width="200" height="30"> <input type="submit" name="Submit2" value="下一步"> 
              </td>
            </tr>
            <tr valign="middle"> 
              <td width="120" height="30" align="right">&nbsp;</td>
              <td height="30" colspan="2">查询指定科目的某一次或几次考试的成绩、达标、成绩升降等信息。此种方式便于科任老师掌握学生的学习情况。</td>
            </tr>
          </form>
        </table> </td>
      <TD width=1 background="images/dotLine_h.gif"><IMG src="images/shim(1).gif" width=1></TD>
    </TR>
    <tr> 
      <TD height="1" colspan="7" background="images/dotLine_w.gif"><IMG height=1 src="images/shim(1).gif" width=100></TD>
    </tr>
  </TBODY>
</TABLE>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">  <tr>    <td>		<Iframe src="http://cqzx.sdedu.net/sdms/CopyRight.asp" width="760" height="200" marginheight="0" marginwidth="0" scrolling="NO" frameborder="0" name="CopyRight"></iframe>	</td>  </tr></table></BODY>
</HTML>
<%
Recordset1.Close()
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
⌨️ 快捷键说明

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