showscoreinputform.asp

eayanQuery思燕大学成绩查询系统 版本 V1.6

		  'OpenConn()
		  'StudentRs.Open StudentSql,Initialize_Conn,1,1
		   Set StudentRs=Initialize_Conn.execute(StudentSql)
		   If StudentRs.eof and StudentRs.eof then
		     response.Write("<p><font color=red>当前班级中没有学生，请您首先添加学生之后，再来添加课程成绩。</font></p>")
			 response.End()
		    End if
		Do while not StudentRs.eof   
	    %>
        <tr bgcolor="#FFFFFF">
          <td align="center" height="18"><%=StudentRs("student_no")%>
		                      <Input type="hidden" name="<%="StuID_"&ScoreN%>" value="<%=StudentRs("student_id")%>"></td>
          <td align="center" height="18"><%=StudentRs("student_name")%></td>
          <td align="center" height="18">
<input type="text" name="<%="Score_"&ScoreN%>" value="<%if CurrentScoreNum <> 0  then response.Write(ScoreArray(iiiiii))%>" size="8" /></td>
          <td bgcolor="#8ab105">&nbsp;</td>
          <% StudentRs.movenext
		     ScoreN=ScoreN+1'此处是分数名称的编号自动加1
			 iiiiii=iiiiii+1'此处是保存分数的数组的索引变量加1
		  IF StudentRs.eof Then 
		     Response.Write("<td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td bgcolor=#8ab105>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td>")
		  exit do 
		   End IF %>
          <td align="center"><%=StudentRs("student_no")%>
		                     <Input type="hidden" name="<%="StuID_"&ScoreN%>" value="<%=StudentRs("student_id")%>"></td>
          <td align="center"><%=StudentRs("student_name")%></td>
          <td align="center">
<input type="text" name="<%="Score_"&ScoreN%>" value="<%if CurrentScoreNum <> 0  then response.Write(ScoreArray(iiiiii))%>" size="8" /></td>
          <td width="1%" bgcolor="#8ab105">&nbsp;</td>
          <% StudentRs.movenext
		     ScoreN=ScoreN+1'此处是分数名称的编号再次自动加1
			 iiiiii=iiiiii+1'此处是保存分数的数组的索引变量再次加1
		  IF StudentRs.eof Then 
		     Response.Write("<td>&nbsp;</td> <td>&nbsp;</td> <td>&nbsp;</td>")
		  exit do 
		  End IF %>
          <td align="center"><%=StudentRs("student_no")%>
		                     <Input type="hidden" name="<%="StuID_"&ScoreN%>" value="<%=StudentRs("student_id")%>"></td>
          <td align="center"><%=StudentRs("student_name")%></td>
          <td align="center">
<input type="text" name="<%="Score_"&ScoreN%>" value="<%if CurrentScoreNum <> 0  then response.Write(ScoreArray(iiiiii))%>" size="8" /></td>
        </tr>
        <% StudentRs.movenext 
		   ScoreN=ScoreN+1'此处是分数名称的编号第三次自动加1
		  iiiiii=iiiiii+1'此处是保存分数的数组的索引变量第三次加1
		 IF StudentRs.eof Then exit do '记录第三次下移一条 
         Loop %>
		<% StudentRs.close:Set StudentRs=nothing '此时循行结束  %>
        <tr bgcolor="#FFFFFF">
          <td height="50" colspan="11" align="center">
            <input type="hidden" name="term_id" value="<%=request.Form("term_id")%>"/>
            <input type="hidden" name="teacher_id" value="<%=request.Form("teacher_id")%>" />
            <input type="hidden" name="department_id" value="<%=request.Form("department_id")%>"/>
			<input type="hidden" name="class_id" value="<%=request.Form("class_id")%>"/>
			<!--input type="hidden" name="class_name" value="<=request.Form("class_name")>"/--><!--这个隐藏域没有太大用处-->
		  <input type="hidden" name="subject_id" value="<% =request.Form("subject_id") %>" />
          <input type="hidden" name="StudentRsNum" value="<% call ShowCurrentClassStuNum() %>" />
  		  <input type="submit" name="Submit" value="保存分数" />&nbsp;&nbsp;&nbsp;
          <input type="reset" name="Submit2" value="全部重填" />
		  <%response.Write CurrentScoreNum%>
		  <% 'For iiiii=0 to CurrentScoreNum
		      '   response.Write ScoreArray(iiiii)
		    ' next	'此处是打印分数测试，就是把上面从数据库中取出的分数保存到数组中，然后再逐个把数组中的元素打印出来。
		   %>
 		  </td>
        </tr>
       </table>
        </form>
	</td>
    <td>&nbsp;</td>
  </tr>
</table>
</div>
	 <div id="bottom">
 	 <iframe src="images/bottom.htm" frameborder="0" scrolling="no" width="100%" height="28"></iframe>
	 </div>
</body>
</html>
<%end sub
 '搜索教师的过程调用,显示页面************************************************************
 '显示辅导员所在院系的过程调用************************
Sub Show_teacher_department(id,Show_OR_Edit)''show的意思是数据显示模式，当要显示辅导员列表时是show模式，出于要和显示列表中表格一致的考虑，此时要打印出<td></td>;
'当要修改辅导员的信息是，此时要显示的是edit模式，只需要根据call传递过来的department_id显示辅导员所在院系的汉字描述；
    Dim ShowSql,ShowRs
	Set ShowRs=server.CreateObject("adodb.recordset")
	 ShowSql="select department_name from [department] where department_id="&id&""
     ShowRs.open ShowSql,Initialize_Conn,1,1
  IF Show_OR_Edit=0 Then
	response.Write "<td>"&ShowRs("department_name")&"</td>"
   else 
	response.Write ShowRs("department_name")
  End if
 	ShowRs.close
	Set ShowRs=nothing
end sub
'显示当前学期的过程调用*********************************
sub ShowCurrentTerm(Name_id)
    Dim ShowCurrentTermRs,ShowCurrentTermSql
	Set ShowCurrentTermRs=server.CreateObject("adodb.recordset")
	ShowCurrentTermSql="select [Term_id],[Term_name] from [term_info] where [Current_Term]=1"
	ShowCurrentTermRs.open ShowCurrentTermSql,Initialize_Conn,1,1
  if Name_id=0 then
	response.Write "<font color=red>"&ShowCurrentTermRs("term_name")&"</font>"
   else
    response.Write ShowCurrentTermRs("term_id")
  End if	
 	ShowCurrentTermRs.close:Set ShowCurrentTermRs=nothing
end Sub
'教师选择课程科目的下列列表*****************************
Sub TeacherSelectSubject()
    Dim SelectSubjectRs,SelectSubjectSql
	Set SelectSubjectRs=server.CreateObject("adodb.recordset")
SelectSubjectSql="select [subject_id],[subject_name],[auth_teacher] from [subject] where teacher_id='"&request("teacher_id")&"'"
    SelectSubjectRs.open SelectSubjectSql,Initialize_Conn,1,1
	DO while not SelectSubjectRs.eof
	    Response.Write("<option value="&SelectSubjectRs("subject_id")&">"&SelectSubjectRs("subject_name")&"</option>")
	    SelectSubjectRs.movenext
    Loop:SelectSubjectRs.close:set SelectSubjectRs=nothing
End Sub
'根据传递过来的subject_id 显示所选课程的名称
Sub GetSubjectNameByID() 
    Dim GetSubjectNameRs,GetSubjectNameSql
	Set GetSubjectNameRs=server.CreateObject("adodb.recordset")
	GetSubjectNameSql="select [subject_name],[auth_teacher] from [subject] where [subject_id]='"&request.Form("subject_id")&"'"
	GetSubjectNameRs.open GetSubjectNameSql,Initialize_Conn,1,1
Response.Write GetSubjectNameRs("subject_name")&"</font>&nbsp;&nbsp;授课教师是:<font color=red>"&GetSubjectNameRs("auth_teacher")&"</font>"
	GetSubjectNameRs.close: Set GetSubjectNameRs=nothing
End Sub
'显示当前班级中学生的数目
Sub ShowCurrentClassStuNum()
    Dim StudentRsNum,StudentRsNumSql
    StudentRsNumSql="select count(*) from [student] where department_id='"&request("department_id")&"'  and teacher_id='"&request("teacher_id")&"' and class_id='"&request("class_id")&"'"
    Set StudentRsNum=Initialize_Conn.execute(StudentRsNumSql)
    Response.Write StudentRsNum(0)
   StudentRsNum.close: Set StudentRsNum=nothing
 End Sub
%>