cj_select.asp

来自「C# SQL 齐齐哈尔职业学院学生成绩管理系统」· ASP 代码 · 共 58 行

ASP
58
字号
<!--#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>

<body>

<div align="center">
  <center>
  <form method="post" action="cj_select2.asp">
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#ffffff" width="100%" height="54">
    
    <tr>
      <td width="100%" background="../Images/admin_table_bg.gif" height="24" colspan="2">
      <p align="center"><font color="#FFFFFF"><b>学生成绩录入:选择班级</b></font></td>
    </tr>
    
    <tr>
      <td width="10%" height="13" bgcolor="#D9E6FF" align="center">选择班级:</td>
      <td width="90%" height="13" 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="10%" bgcolor="#D9E6FF" height="15" align="center">
       </td>
      <td width="90%" bgcolor="#D9E6FF" height="15">
      <input type="submit" value="下一步" name="B1" tabindex="2">&nbsp; (1/3)</td>
    </tr>
  </table>
  </form>
  </center>
</div>

</body>

</html>

⌨️ 快捷键说明

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