homework_mark.asp ASP+ACCESS在线教育系统设计(源代码+论文) - ASP源码程序

www.gusucode.com > ASP+ACCESS在线教育系统设计(源代码+论文) > ASP+ACCESS在线教育系统设计(源代码+论文)\王智_在线教育系统\teacher\homework_mark.asp
    <%@ Language=VBScript %>
<%
	Response.Expires = -99999
	stu_no = Request.QueryString("stu_no")
	order_no = Request.QueryString("order_no")
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<LINK rel="stylesheet" type="text/css" href="../t2.css">
<SCRIPT LANGUAGE=javascript>
<!--
	function check()
	{
		if (form1.score.value =="") 
		{
			alert("分数不能为空！");
			return false;
		}
		if (isNaN(parseInt(form1.score.value)))
		{
			alert("分数应该为整数！");
			return false;
		} 
		if ((parseInt(form1.score.value)>100)||(parseInt(form1.score.value)<0))
		{
			alert("分数应该大于0小于100！");
			return false;
		}
		ans = confirm("您的评分是" + parseInt(form1.score.value) + "，提交吗？")
		if (ans) 
		{
			return true;	
		}
		else
		{
			return false;	
		}
	}
//-->
</SCRIPT>

</HEAD>
<BODY>
<%
	set conn = server.CreateObject("ADODB.connection")
	conn.Open application("dsn")
	set rs = server.CreateObject("ADODB.recordset")
	rs.Open "select num,name,department,major,score1 as s1,score2 as s2,score3 as s3,score4 as s4,score5 as s5 from student where num = '" & stu_no & "'",conn
%>
<TABLE WIDTH=40% BORDER=1 CELLSPACING=1 CELLPADDING=1 align=center>
	<TR>
		<TD bgcolor="#007FFF" width=80><font color="#FFFFFF">学号</font></TD>
		<TD ><%=rs("num")%></TD>
	</TR>
	<TR>
		<TD bgcolor="#007FFF"><font color="#FFFFFF">姓名</font></TD>
		<TD ><%=rs("name")%></TD>
	</TR>
	<TR>
		<TD bgcolor="#007FFF"><font color="#FFFFFF">系别</font></TD>
		<TD ><%=rs("department")%></TD>
	</TR>
	<TR>
		<TD bgcolor="#007FFF"><font color="#FFFFFF">专业</font></TD>
		<TD ><%=rs("major")%></TD>
	</TR>
	</table>
	<br>
	<FORM action="homework_markOK.asp" method=POST id=form1 name=form1 LANGUAGE=javascript onsubmit="return	check()">
	<TABLE WIDTH=40% BORDER=1 CELLSPACING=1 CELLPADDING=1 align=center>
	<TR>
		<TD bgcolor="#007FFF" width=80><font color="#FFFFFF">本次作业序号</font></TD>
		<TD ><%=order_no%></TD>
	</TR>
	<TR>
		<TD bgcolor="#007FFF"><font color="#FFFFFF">zip文件</font></TD>
		<TD >
		<%
			set fs = createobject("scripting.filesystemobject")
			
			if fs.FileExists(server.MapPath("../homework/" & stu_no & cstr(order_no) & ".zip")) then
				Response.Write "<a href='../homework/" & stu_no & cstr(order_no) & ".zip'>下载</a>"
			elseif fs.FileExists(server.MapPath("../homework/" & stu_no & cstr(order_no) & "x.zip")) then
				Response.Write "<a href='../homework/" & stu_no & cstr(order_no) & "x.zip'>下载（已评分）</a>"
			else
				Response.Write "<font color='red'>未交</font>"
			end if
			
			set fs = nothing
		%>
		</TD>
	</TR>
	<TR>
		<TD bgcolor="#007FFF"><font color="#FFFFFF">作业分数</font></TD>
		<TD ><%=rs("s" & order_no)%></TD>
	</TR>
	<TR>
		<TD bgcolor="#007FFF"><font color="#FFFFFF">重新打分</font></TD>
		<TD>
		<input size=5 id="score" name="score" type="text" value="<%=rs("s" & order_no)%>">
		<input name="stu_no" type=hidden value="<%=stu_no%>">
		<input name="order_no" type=hidden value="<%=order_no%>">
		<INPUT type="submit" value="提交" id=submit1 name=submit1>
		</TD>
	</TR>
</table>
</FORM>

<%
	rs.Close
	set rs = nothing
	conn.Close
	set conn = nothing
%>

	<TABLE WIDTH=40% BORDER=0 CELLSPACING=1 CELLPADDING=1 align=center>
	<TR>
		<TD align=center><input type=button value="返回" onclick="window.location='homework_admin.asp';"></TD>
	</TR>
	</table>

</body>
</html>