gusucode.com > ASP+ACCESS在线教育系统设计(源代码+论文) > ASP+ACCESS在线教育系统设计(源代码+论文)\王智_在线教育系统\teacher\homework_admin.asp

    <%@ Language=VBScript %>
<% Response.Expires = -99999 %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<LINK rel="stylesheet" type="text/css" href="../t2.css">
</HEAD>
<BODY>
<%
	set conn = server.CreateObject("ADODB.connection")
	conn.Open application("dsn")
	set rs = server.CreateObject("ADODB.recordset")
	rs.Open "select num as no,score1 as s1,score2 as s2,score3 as s3,score4 as s4,score5 as s5 from student order by num",conn
%>
<TABLE WIDTH=100% BORDER=1 CELLSPACING=1 CELLPADDING=1 align=center>
	<TR>
		<TD bgcolor="#007FFF" align="center" width=80><font color="#FFFFFF">学号</font></TD>
		<TD bgcolor="#007FFF" align="center"><font color="#FFFFFF">实习题1</font></TD>
		<TD bgcolor="#007FFF" align="center"><font color="#FFFFFF">实习题2</font></TD>
		<TD bgcolor="#007FFF" align="center"><font color="#FFFFFF">实习题3</font></TD>
		<TD bgcolor="#007FFF" align="center"><font color="#FFFFFF">实习题4</font></TD>
		<TD bgcolor="#007FFF" align="center"><font color="#FFFFFF">实习题5</font></TD>
	</TR>
<%
	set dict_file = CreateObject("Scripting.Dictionary")

	set fs = createobject("scripting.filesystemobject")
	set folder = fs.GetFolder(server.MapPath("../homework"))
	for each file0 in folder.files
		f_num = left(file0.name,7)
		f_filename = file0.name
		dict_file.Add f_num,f_filename
	next			


	while not rs.EOF
		stu_no = rs("no")
%>
	<TR>
		<TD align=center><b><%=rs("no")%></b></TD>
<%
for order_id = 1 to 5 
%>
		<TD>
			分数:
			<%=rs("s" & cstr(order_id))%>
			&nbsp;
<%
			if dict_file.Exists(stu_no & cstr(order_id)) then
				flag = "1"
				Response.Write "<a href='../homework/" & dict_file.Item(stu_no & cstr(order_id)) & "'>下载</a>"
			else
				flag = "0"
				Response.Write "<font color='red'>未交</font>"
			end if

			Response.Write "&nbsp;"

			if (isnull(rs("s" & cstr(order_id))) or ( cint(rs("s" & cstr(order_id)))  = 0) ) and flag = "1" then

%>
					<a href="homework_mark.asp?stu_no=<%=stu_no%>&order_no=<%=order_id%>"><font color=red>评分</font></a>
<%
			else
%>
					<a href="homework_mark.asp?stu_no=<%=stu_no%>&order_no=<%=order_id%>">评分</a>
<%
			end if
%>
		</td>
<%
next
%>		
	</TR>
<%
		rs.MoveNext
	wend
%>
</TABLE>
<%
	rs.Close
	set rs = nothing
	conn.Close
	set conn = nothing

	set dict_file = nothing
%>
</BODY>
</HTML>