searchscore.asp
来自「网络考试系统最终备份」· ASP 代码 · 共 203 行
ASP
203 行
<!--#include file="conn.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<script language="javascript">
function userinfo(userid)
{
page="userinfo.asp?userid="+userid
window.open (page,'查看用户信息','width=300,height=300')
}
</script>
<body>
<%
v_testid = request("radioPaperID")
sql = "select * from score_tand where Paper_ID = "&v_testid
set sr = server.CreateObject("adodb.recordset")
sr.open sql,conn,3.2
if not sr.eof then
v_usualrate = sr("UsualScoreRate")
else
v_usualrate = 0
end if
sr.close
set sr = nothing
%>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
<tr>
<td width="100%">当前位置：<a href="news.asp">系统管理</a> <a href="adminremarkpaper.asp">>评卷管理</a>>成绩查询</td>
</tr>
</table>
<form name="uform"ACTION="" METHOD="post">
<input name="sPID" type="hidden" value="<%=v_testid%>">
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" id="AutoNumber2" bgcolor="#99CCFF" width="100%">
<div align="right"></div>
<table border="1" cellpadding="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber1">
<tr>
<td height="20" colspan="7" align="center" bgcolor="#E1E1E1">平时成绩占总成绩比例
<%=v_usualrate%>
%
卷面成绩占总成绩比例
<%=100-v_usualrate%>
% </td>
</tr>
<tr>
<td width="64" align="center" bgcolor="#E1E1E1" height="20"> 序号</td>
<td width="90" align="center" bgcolor="#E1E1E1"><strong><font size="2">账号</font></strong></td>
<td width="118" align="center" bgcolor="#E1E1E1"><font size="2"><b>考生姓名</b></font></td>
<td width="179" align="center" bgcolor="#E1E1E1"><div align="center"><strong><font size="2">答题时间</font></strong></div></td>
<td width="238" align="center" bgcolor="#E1E1E1"><font size="2"><strong>平时成绩</strong></font></td>
<td width="164" align="center" bgcolor="#E1E1E1"><strong>卷面成绩</strong></td>
<td width="127" align="center" bgcolor="#E1E1E1"><strong>总成绩</strong></td>
</tr>
<%
'response.Write("testid:"&v_testid)
'sql = "select * from test_user"
sql = "select * from test_user where Paper_ID ="&v_testid
set rs=server.createobject("adodb.recordset")
set rs=conn.execute(sql)
while not rs.eof
PageCount=PageCount+1
rs.movenext
wend
rs.close
set rs = nothing
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
on error resume next
PageSize = 10
PageCount=(PageCount+PageSize-1)\PageSize
Page = CLng(Request("Page"))
'分页显示
If not Page >1 Then Page = 1
If Page > PageCount Then Page = PageCount
i=page+(page-1)*9
rs.AbsolutePage = Page
For iPage = 1 To PageSize
if not rs.eof then
v_uid = rs("User_ID")
v_isTest = rs("isTest")
' to searach usually score of student from table student_score
ussql = "select * from student_score where Paper_ID = "&v_testid&" and User_ID = "&v_uid&""
' us = "select * from student_score where Paper_ID like '%"&v_testid&"%' and User_ID = "&v_uid&" "
set usc = server.CreateObject("adodb.recordset")
usc.open ussql,conn,3,2
if usc.eof then
v_uscore = "----"
'考试成绩（卷面成绩）
v_pscore = "----"
'总成绩
v_score ="----"
'学生开始答题时间
v_stuStartTime ="----"
v_stuEndTime = "----"
else
'平时成绩
v_uscore = usc("UsaScore")
'考试成绩（卷面成绩）
v_pscore = usc("PaperScore")
'总成绩
v_score = usc("Score")
'学生开始答题时间
v_stuStartTime =usc("Stu_Start_time")
v_stuEndTime = usc("Stu_End_time")
end if
usc.close
set usc = nothing
usql = "select * from user_info where UserID = "&v_uid
set urs = server.CreateObject("adodb.recordset")
urs.open usql,conn,3,2
if urs.eof then
v_account ="xxxxx"
v_userName = "xxxxx"
end if
v_account = urs("UserAccount")
v_userName= urs("UserRname")
urs.close
set urs = nothing
%>
<tr>
<td nowrap align="center" bgcolor="#E1E1E1"><%=i%></td>
<td nowrap align="center"><a href="javascript:userinfo(<%=v_uid%>)"><%=v_account%> </td>
<td nowrap align="center"><%=v_userName%></td>
<td nowrap align="center"><%=v_stuStartTime%> — <%=v_stuEndTime%> </td>
<td nowrap align="center"><%=v_uscore%> </td>
<td nowrap align="center"><%=v_pscore%></td>
<td nowrap align="center"><%=v_score%></td>
</tr>
<%
end if
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next
%>
</table>
<div align="right"></div>
</form>
<div ALIGN="right">
<table>
<form ACTION="<%=Myself%>?radioPaperID=<%=v_testid%>" METHOD="Post">
<tr>
<td>
<p ALIGN="right">
<%If Page <> 1 and Page <> 0 Then ' 如果不是位于第一页%>
<a href="<%=Myself%>?Page=1&radioPaperID=<%=v_testid%>">
第一页</a>
<a HREF="<%=Myself%>?Page=<%=(Page-1)%>&radioPaperID=<%=v_testid%>">
上一页</a>
<%
End If
If Page <> PageCount Then ' 如果不是位于最后一页
%> <a HREF="<%=Myself%>?radioPaperID=<%=v_testid%>&Page=<%=(Page+1)%>">
下一页</a>
<a HREF="<%=Myself%>?Page=<%=PageCount%>&radioPaperID=<%=v_testid%>">
最后一页</a> <% End If %> <font SIZE="2">输入页次:</font> <input NAME="Page" SIZE="3" CLASS="s01" >
<font SIZE="2">页次:</font><font COLOR="Red" SIZE="2"><%=Page%>/<%=PageCount%></font></p>
<p></td>
</tr>
</form>
</table>
<p align="left">注：点击帐 号查看该用户的详细信息</p>
</div>
</div>
</td>
</tr>
<%conn.close
set conn = nothing%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?