网络考场（17）（转）tviewscore.asp

core|网络

<%@ 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")%>课的考试成绩
</FONT></STRONG></P>
<P align=center><FONT color=dodgerblue face="" size=2>
任课教师：<%=Request("teachname")%>
</FONT></P>
<P align=center>
<TABLE border=0 cellPadding=1 cellSpacing=1 width=75%>
    <TR  bgcolor=Peachpuff>
        <TD>姓名</TD>
        <TD>成绩</TD>
        <TD>名次</TD></TR>
<%
set conn=server.CreateObject("adodb.connection")
conn.ConnectionString="dsn=testsys"
conn.Open
'声明sql查询语句，从数据库中查询相应科目的考试成绩，查询结构按降序方式排序
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.score DESC"
set mrs=conn.Execute(strsql)
i=1
while not mrs.eof
    '以表格的形式显示相应考试科目的成绩和学生姓名
    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>

时间： 2024-09-20 00:15:52

网络考场（17）（转）tviewscore.asp的相关文章

网络考场（6）（转）stselectsub.asp

select|网络 <%@ Language=VBScript %><%if Request.Form("selsub")<>"" then'如果选择了考科目,则进入考试界面    marray=split(Request.Form("selsub"),",")    '保存考试科目的教师编号    session("teachid")=trim(marray(0))    '

网络考场（15）（转）tselcourse.asp

网络 <%@ Language=VBScript %><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></HEAD><BODY><P align=center><FONT color=crimson face=幼圆 size=4><STRONG>选择要查看的课程&

网络考场（2）（转）screatefrm1.asp

<%@ Language=VBScript %><html><head><title>网络考场</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><frameset rows="*" cols="120,509*" borde

网络考场（4）（转）smessage.asp

<%@ Language=VBScript %><%'计算考试已过时间gotime=hour(now())*60+minute(now())-hour(session("starttime"))*60-minute(session("starttime"))'计算考试剩余时间lefttime=session("testtime")-gotime%><HTML><HEAD><META http-

网络考场（1）（转）logon.asp

<%@ Language=VBScript %><%if Request.ServerVariables("http_method")="POST" then    if Request.Form("submit")="进入1" then        '学生进入网络考场的处理        set conn=server.CreateObject("adodb.connection") 

网络考场（13）（转）testtop.asp

网络 <%@ 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>网络考场:<

网络考场（7）（转）taddquestion.asp

网络 <%@ Language=VBScript %><%if Request.ServerVariables("http_method")="POST" then    if Request.Form("submit")="加入" then    '处理加入试题请求        set mrs=server.CreateObject("adodb.recordset")        

网络考场（16）（转）tselectsub.asp

select|网络 <%@ Language=VBScript %><%Response.Buffer=true%><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></HEAD><BODY bgColor=Azure><%if Request.QueryString("a

网络考场（10）（转）tcreatefrm2.asp

网络 <%@ Language=VBScript %><html><head><title>Untitled Document</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><frameset rows="*" cols="120,