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 " " else Response.Write rs("s1") end if %></TD> <TD align="center"><% if isnull(rs("s2")) then Response.Write " " else Response.Write rs("s2") end if %></TD> <TD align="center"><% if isnull(rs("s3")) then Response.Write " " else Response.Write rs("s3") end if %></TD> <TD align="center"><% if isnull(rs("s4")) then Response.Write " " else Response.Write rs("s4") end if %></TD> <TD align="center"><% if isnull(rs("s5")) then Response.Write " " 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>