www.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>