core| Network <%@ language=vbscript%>
<HTML>
<HEAD>
<meta name= "generator" content= "Microsoft Visual Studio 6.0" >
</HEAD>
<BODY>
<p align=center><strong><font color=crimson face= "" size=4>
<%=request.querystring ("sub") Examination results of%> class
</FONT></STRONG></P>
<p align=center><font color=dodgerblue face= "" size=2>
Instructor: <%=request ("Teachname")%>
</FONT></P>
<p align=center>
<table border=0 cellpadding=1 cellspacing=1 width=75%>
<tr bgcolor=peachpuff>
<TD> name </TD>
<TD> Achievements </TD>
<TD> ranking </TD></TR>
<%
Set Conn=server. CreateObject ("Adodb.connection")
Conn. Connectionstring= "Dsn=testsys"
Conn. Open
' Declare the SQL query statement, query the test scores from the database, and sort the query structure in descending order
Strsql= "Select Score.score, Studentinfo.stname from score,studentinfo where Score.stid = Studentinfo.stid and Teachid= '" & Request.QueryString ("Teachid") & "' and Score.sub= '" & Request.QueryString ("Sub") & "' ORDER by Score.sc Ore DESC "
Set Mrs=conn. Execute (strSQL)
I=1
While not mrs.eof
' Show the results of the corresponding test subjects and the names of the students in tabular form
Response.Write "<TR>"
Response.Write "<TD>"
Response.Write Mrs ("Stname")
Response.Write "</TD>"
Response.Write "<TD>"
Response.Write Mrs ("score")
Response.Write "</TD>"
Response.Write "<TD>" & I & "</TD></TR>"
I=i+1
Mrs.movenext
Wend
Conn. Close
Set conn=nothing
%>
<tr bgcolor=peachpuff><td></td><td></td><td></td></tr>
</TABLE>
</P>
</BODY>
</HTML>
