gusucode.com > ASP+ACCESS在线教育系统设计(源代码+论文) > ASP+ACCESS在线教育系统设计(源代码+论文)\王智_在线教育系统\homeworkcheck.asp
<%@ Language = "VBScript" %> <% Response.Expires = -99999 %> <!-- #Include file="include\adovbs.inc" --> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title></title> <!-- #Include file="include\style.inc" --> </head> <body> <br> <br> <% num = Request.Form("num") %> <TABLE align=center border=0 cellPadding=1 cellSpacing=1 width="75%"> <tr> <td> 学生<%=num%>上交的作业列表如下: </td> </tr> </table> <TABLE align=center border=1 cellPadding=1 cellSpacing=1 width="75%"> <TR> <TD bgcolor="#007FFF" align="center"><font color="#FFFFFF">学号</font></TD> <TD bgcolor="#007FFF" align="center"><font color="#FFFFFF">第几次实习题</font></TD> <TD bgcolor="#007FFF" align="center"><font color="#FFFFFF">上交时间</font></TD> <TD bgcolor="#007FFF" align="center"><font color="#FFFFFF">是否批改</font></TD> </TR> <% set fs = createobject("scripting.filesystemobject") set folder = fs.GetFolder(server.MapPath("./homework")) for each file0 in folder.files f_num = left(file0.name,6) f_idnum = mid(file0.name,7,1) f_flag = mid(file0.name,8,1) f_time = file0.DateLastModified if trim(num) = f_num then %> <tr> <TD align=center><%=f_num%></TD> <TD align=center><%=f_idnum%></TD> <TD align=center><%=f_time%></TD> <TD align=center> <% if f_flag = "x" then Response.Write "已批改" else Response.Write "未批改" end if %> </TD> </TR> <% end if next set fs = nothing set folder = nothing %> </TABLE> <TABLE align=center border=0 cellPadding=1 cellSpacing=1 width="75%"> <tr> <td align=center> <INPUT type="button" value="返回" onclick="window.location='uploadform.asp';"> </td> </tr> </table> </body> </html>