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))%> <% 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 " " 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>