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

📄 print_subno_ok.asp

📁 本 源码是 VF 管理系统
💻 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>
</head>
<%
set fs=server.createobject("adodb.recordset")
set rs=server.createobject("adodb.recordset")
classid=Request.Form("classid")

fs.open "select * from [class] where id="&classid,conn,1,1
classnum=fs("num")
rs.open "select * from [pro] where id="&fs("proid"),conn,1,1
classname=rs("xi")&rs("pro")&classnum
rs.Close
fs.Close

subid=Request.Form("subid")
jecid=Request("jecid")
If Trim(jecid)="" Then
  Response.Write "考试编号不正确!"
  Response.End
End If

fs.open "select * from [sub] where id="&subid,conn,1,1
subname=fs("sub")
fs.close
%>

<body>

<div align="center">
  <center>


    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#ffffff" width="100%" height="87">
    
    <tr>
      <td width="101%" background="../Images/admin_table_bg.gif" height="24" colspan="3">
      <p align="center">　<b><font color="#FFFFFF"><%=classname%>班<%=jecname%>-<%=subname%>科</font></b><font color="#FFFFFF"><b>不及格学生名单</b></font></td>
    </tr>
    
     <tr>
      <td width="33%" height="20" bgcolor="#D9E6FF" align="center">序 号</td>
      <td width="33%" height="20" bgcolor="#D9E6FF" align="center">姓 名</td>
      <td width="34%" height="20" bgcolor="#D9E6FF" align="center">成 绩</td>
    </tr>
<%
  sql="Select * from [chengji] Where subid="&subid&" and jecid="&jecid&" and classid="&classid&" Order by cj desc"
  rs.Open sql,conn,1,1
  do While Not rs.Eof
  If rs("cj")<60 Then
  i=i+1
%>  

  
   
 <tr>
      <td width="33%" height="21" bgcolor="#D9E6FF" align="center">　<%=i%></td>
      <td width="33%" height="21" bgcolor="#D9E6FF" align="center">  
      <%
      fs.open "select * from [stu] where id="&rs("stuid"),conn,1,1
      Response.Write fs("name")
      fs.Close
      %>　</td>
      <td width="34%" height="21" bgcolor="#D9E6FF" align="center">  <%=rs("cj")%>      　</td>
    </tr>
<%
End If
rs.MoveNext
Loop
rs.Close
Set rs=nothing
%>
    <tr>
      <td width="100%" bgcolor="#D9E6FF" height="21" align="center" colspan="3">
      　</td>
    </tr>
  </table>

  </center>
</div>

</body>
</html>

⌨️ 快捷键说明

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