📄 webexamscore.asp

📁 一套在线考试系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%
Dim i
Dim subject
Dim examname
Dim starttime
Dim endtime
Dim factno
Dim max
Dim maxusername
Dim min
Dim minusername
Dim avg
Dim rs1
Dim sql1
Dim page
Dim ipage
%> <html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<title>在线考试系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta content="Microsoft FrontPage 5.0" name="GENERATOR">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" type="text/css" href="../DEFAULT.CSS">
<script language="javascript">
function webuserinfo(userid)
{ 
  page="webuserinfo.asp?userid="+userid
  window.open (page,'查看用户信息','width=260,height=340')
}
</script><script language="JavaScript1.2" src="../js/lock.js"></script>
</head>

<body>

<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber2" height="25" cellpadding="0">
  <tr>
    <td width="100%">当前位置：统计查询/报表 &gt; <a href="searchscore.asp">考试成绩</a> &gt; 考试成绩</td>
  </tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3" height="30">
  <tr>
    <td width="100%">
    <p align="right"><img border="0" src="../images/printer.gif"></td>
  </tr>
</table>
<%
sql="select * from exam_test_web where examid='"&request("examid")&"'"
rs.open sql,conn,3,2
if not rs.eof then
  subject=rs("subject")
  examname=rs("examname")
  starttime=rs("starttime")
  endtime=rs("endtime")
end if
rs.close
sql="select * from exam_score_web where examid='"&request("examid")&"'"
rs.open sql,conn,3,2
if not rs.eof then
  factno=rs.recordcount
end if
rs.close
sql="select max(score) as maxper from exam_score_web where examid='"&request("examid")&"'"
rs.open sql,conn,3,2
if not rs.eof then
  max=rs("maxper")
end if
rs.close
sql="select min(score) as minper from exam_score_web where examid='"&request("examid")&"'"
rs.open sql,conn,3,2
if not rs.eof then
  min=rs("minper")
end if
rs.close
sql="select avg(score) as avgper from exam_score_web where examid='"&request("examid")&"'"
rs.open sql,conn,3,2
if not rs.eof then
  avg=rs("avgper")
end if
rs.close


%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" bgcolor="#F1F1F1">
  <tr>
    <td width="100%" class="border_blue">
    <p align="center">基本信息</td>
  </tr>
  <tr>
    <td width="100%">
    <p style="line-height: 200%">&nbsp;考试编号：<font color="#ff0000"><%=request("examid")%>
    </font>考试科目：<font color="#ff0000"><%=subject%></font><br>
    &nbsp;考试名称：<font color="#ff0000"><%=examname%></font><br>
    &nbsp;开始时间：<font color="#ff0000"><%=starttime%></font> 结束时间：<font color="#ff0000"><%=endtime%></font><br>
    &nbsp;参加考试人数：<font color="#ff0000"><%=factno%></font> <br>
    &nbsp;最高分数：<font color="#ff0000"><%=max%></font> 最低分数：<font color="#ff0000"><%=min%></font> 
    平均分数：<font color="#ff0000"><%=avg%></font></td>
  </tr>
</table>
<hr noshade color="#FFFFFF" size="1">
<%
sql="select * from exam_score_web where examid='"& request("examid")&"' order by score desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
%>
<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber1" cellpadding="0" bgcolor="#F1F1F1">
  <tr>
    <td colspan="4" class="border_blue">
    <p align="center">[<a href="webexaminfo.asp?examid=<%=request("examid")%>">
    <%=request("examid")%></a>]<%=subject%>考试成绩一览表</td>
  </tr>
  <tr id="ignore" class="noborder">
    <td height="20" class="border" align="center" width="8%">排名</td>
    <td height="20" class="border" align="center">身份证证号</td>
    <td class="border" align="center">姓名</td>
    <td class="border" align="center">成绩</td>
  </tr>
  <%
i=1
on error resume next
rs.PageSize = 20
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*19
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
sql1="select * from userinfo where userid="&rs("userid")
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
%>
  <tr>
    <td height="20" align="center" width="8%">
    <p align="center"><%=i%></td>
    <td height="20" align="center">
    <a href="javascript:webuserinfo('<%=rs("userid")%>')"><%=rs("userid")%></a></td>
    <td align="center"><a href="javascript:webuserinfo('<%=rs("userid")%>')">
    <%=rs1("username")%></a>　</td>
    <td align="center"><%=rs("score")%>　</td>
  </tr>
  <% rs1.close
  rs.movenext
  If rs.EOF Then Exit For
    i=i+1
  Next
%>
</table>
<form ACTION="<%=Myself%>?examid=<%=request("examid")%>" METHOD="GET">
  <div align="right">
    <table cellspacing="0" cellpadding="0" class="withborder" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" bgcolor="#F1F1F1" border="1">
      <tr>
        <td align="center">共有 <%=factno%> 条记录　</td>
        <td align="center">
        <p align="right"><%If Page <> 1 Then %>
        <a href="<%=Myself%>?Page=1&examid=<%=request("examid")%>">第一页</a>
        <a href="<%=Myself%>?Page=<%=(Page-1)%>&examid=<%=request("examid")%>">
        上一页</a> <% End If 
        If Page <> rs.PageCount Then %>
        <a href="<%=Myself%>?Page=<%=(Page+1)%>&examid=<%=request("examid")%>">
        下一页</a>
        <a href="<%=Myself%>?Page=<%=rs.PageCount%>&examid=<%=request("examid")%>">
        最后一页</a> <% End If %> 输入页次:<input name="Page" size="3" class="s01"> 页次:<font color="Red"><%=Page%>/<%=rs.PageCount%></font>&nbsp;&nbsp;</td>
      </tr>
    </table>
  </div>
</form>

</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -