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

    <%@ Language=VBScript %>
<% Response.Expires = 0 %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
	set conn = server.CreateObject("ADODB.connection")
	conn.Open application("dsn")
	'set rs = conn.Execute("exec sp_js99")
	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=75% BORDER=1 CELLSPACING=1 CELLPADDING=1 align=center>
	<TR>
		<TD bgcolor="#007FFF" align="center"><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>
<%
	while not rs.EOF
%>
	<TR>
		<TD><%=rs("no")%></TD>
		<TD align="center"><%
		if isnull(rs("s1")) then 
			Response.Write "&nbsp;"
		else 
			Response.Write rs("s1")
		end if
		%></TD>
		<TD align="center"><%
		if isnull(rs("s2")) then 
			Response.Write "&nbsp;"
		else 
			Response.Write rs("s2")
		end if
		%></TD>
		<TD align="center"><%
		if isnull(rs("s3")) then 
			Response.Write "&nbsp;"
		else 
			Response.Write rs("s3")
		end if
		%></TD>
		<TD align="center"><%
		if isnull(rs("s4")) then 
			Response.Write "&nbsp;"
		else 
			Response.Write rs("s4")
		end if
		%></TD>
		<TD align="center"><%
		if isnull(rs("s5")) then 
			Response.Write "&nbsp;"
		else 
			Response.Write rs("s5")
		end if
		%></TD>
	</TR>
<%
		rs.MoveNext
	wend
%>
</TABLE>
<%
	rs.Close
	set rs = nothing
	conn.Close
	set conn = nothing
%>


</BODY>
</HTML>