<!--#include file="../SQLconn.asp"-->
<html>
<head><title>学生名单</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">
<!--
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
}
body {
	background-image: url(../images/table/line.JPG);
}
-->
</style></head>
<%
  strYears =Request( "years" )
  strGrade = TRIM( Request( "selgrade" ) )
  strClass = TRIM( Request( "selClass" ) )
%>

<body text="#000000">
<form method="post" action="InputScore.asp">
  
  <h1 align="center">&nbsp;</h1>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <table width="301" border="0" align="center">
    <tr>
      <td width="68" height="39"><font size="2">学年</font></td>
      <td width="217"><font size="2">
       
      </font>
        <label>
        <input name="years" type="text" id="years" readonly="true" value=<%=strYears%>>
      </label></td>
    </tr>
    <tr>
      <td height="26">考试名称</td>
      <td>
	  <select name="testname" id="testname">
          <option selected value=<%=strTestName%>><%=strTestName%></option>
          <% Set RSsel = Conn.Execute("select vname from  varset where name='testname'")
                   While NOT RSsel.EOF %>
          <option value=<%=RSsel( "Vname" )%>><%=RSsel( "vname" )%></option>
          <% RSsel.MoveNext
                  Wend
                  RSsel.Close%>
        </select>
	  </td>
    </tr>
	
	<tr>
      <td height="38"><font size="2">级别</font></td>
      <td><font size="2">
        <select name="selgrade" id="selgrade">
          <option selected value=<%=strGrade%>><%=strGrade%></option>
          <% Set RSsel = Conn.Execute("select vname from  varset where name='grade'")
                   While NOT RSsel.EOF %>
          <option value=<%=RSsel( "Vname" )%>><%=RSsel( "vname" )%></option>
          <% RSsel.MoveNext
                  Wend
                  RSsel.Close%>
        </select>
      </font></td>
    </tr>
	</tr>
    
    <tr>
      <td height="26"><font size="2">班别</font></td>
      <td><font size="2">
        <select name="selclass">
          <option selected value=<%=strclass%>><%=strclass%></option>
          <% Set RSsel = Conn.Execute("select vname from  varset where name='class'")
                   While NOT RSsel.EOF %>
          <option value=<%=RSsel( "Vname" )%>><%=RSsel( "vname" )%></option>
          <% RSsel.MoveNext
                  Wend
                  RSsel.Close%>
        </select>
      </font></td>
    </tr>
    <tr>
      <td height="26">科目</td>
      <td><font size="2">
        <select name="selsubject" id="selsubject">
          <option selected value=<%=strclass%>><%=strclass%></option>
          <% Set RSsel = Conn.Execute("select vname from  varset where name='subject'")
                   While NOT RSsel.EOF %>
          <option value=<%=RSsel( "Vname" )%>><%=RSsel( "vname" )%></option>
          <% RSsel.MoveNext
                  Wend
                  RSsel.Close%>
        </select>
      </font></td>
    
  </table>
  <h1 align="center"><font size="2">
    <input type="submit" value="录入该班成绩">
  &nbsp;</font></h1>
  <h1 align="center">&nbsp;</h1>
  <h1 align="center"><font size="2">&nbsp;</font></h1>
</FORM>
 
</body>
</html>
