⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 print_subno.asp

📁 C# SQL 齐齐哈尔职业学院学生成绩管理系统
💻 ASP
字号:
<!--#include file="chkadmin.asp"-->
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<title>学生成绩管理系统</title>
<style>
<!--
.sec_menu  { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#C6EBDE; }
-->
</style>
</head>

<body>

<div align="center">
  <center>
  <form method="post" action="print_subno_ok.asp">
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#ffffff" width="100%">
    
    <tr>
      <td width="100%" background="../Images/admin_table_bg.gif" height="25" colspan="2">
      <p align="center"><b><font color="#FFFFFF">按班级单科统计不及格学生名单</font></b></td>
    </tr>
    
    <tr>
      <td width="11%" height="15" bgcolor="#D9E6FF">班&nbsp;&nbsp;&nbsp; 级:</td>
      <td width="89%" height="15" bgcolor="#D9E6FF">
      <select size="1" name="classid" tabindex="1">
<%
set fs=server.createobject("adodb.recordset")
fs.open "select * from [class]",conn,1,1
set rs=server.createobject("adodb.recordset")
Do while Not fs.EOF
  rs.open "select * from [pro] where id="&fs("proid"),conn,1,1
  Response.Write "<option Value="& fs("id") & ">" &rs("xi")&rs("pro")&fs("num")&"班</option>"  
  rs.Close
fs.MoveNext
Loop
Set rs=nothing
fs.Close
Set fs=nothing
%>
      </select> (请确认您选择的班级在您指定的考试中进行了您指定科目的考试)</td>
    </tr>
    <tr>
      <td width="11%" bgcolor="#D9E6FF" height="15">
      科&nbsp;&nbsp;&nbsp; 目:</td>
      <td width="89%" bgcolor="#D9E6FF" height="15">
      <select name="subid" tabindex="2">
      <%
set fs=server.createobject("adodb.recordset")
fs.open "select * from [sub]",conn,1,1
If fs.RecordCount=0 Then
Response.Write "<option>没有科目</option>"
Else
Do While Not fs.EOF
%>
      <option value="<%=fs("id")%>"><%=fs("sub")%></option>
      <%
fs.MoveNext
Loop
End If
fs.Close
Set fs=nothing
%></select></td>
    </tr>
    
    <tr>
      <td width="11%" height="15" bgcolor="#D9E6FF">考试编号:</td>
      <td width="89%" height="15" bgcolor="#D9E6FF">
      <input type="text" name="jecid" size="4" tabindex="3"> (此编号可在&quot;<font color="#ff0000">基本信息录入</font>&quot;→&quot;<font color="#ff0000">编辑考试类型</font>&quot;列表&quot;<font color="#ff0000">考试编号</font>&quot;中查到)</td>
    </tr>
    
    <tr>
      <td width="11%" bgcolor="#D9E6FF" height="15">
       </td>
      <td width="89%" bgcolor="#D9E6FF" height="15">
      <input type="submit" value="开始统计" name="B1" tabindex="4"></td>
    </tr>
  </table>
  </form>
  </center>
</div>

</body>

</html>

⌨️ 快捷键说明

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