conditionscoredisplay.asp
来自「网络考试系统最终备份」· ASP 代码 · 共 217 行
ASP
217 行
<!--#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')
}
function saveit(myform)
{
if (confirm("是否保存所有修改？"))
{
myform.action="uscoreSave.asp";
myform.submit();
}
return
}
function doSubmit(op1,op2,op3)
{
var pageNo=myform1.Page.value
var acstr="conditionScoreDisplay.asp?Page="+pageNo+"&maxScore="+op1+"&pass="+op2+"&test_id="+op3;
myform1.action=acstr
myform1.submit();
}
</script>
<body>
<%
v_Ssore = request("maxScore")
v_pass = request("pass")
v_testid = request("test_id")
'response.Write("v_testID:"&v_testid&"<BR>")
'response.Write("v_pass:"&v_pass&"<BR>")
'response.Write("v_Ssore:"&v_Ssore&"<BR>")
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" 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>
<%
if(v_pass = 1) then
sql1 = "select count(*) as totalPeple from student_score where Paper_ID = "&v_testid&" and Score >"&v_Ssore&" "
sql = "select * from student_score where Paper_ID = "&v_testid&" and Score >"&v_Ssore&" "
else
sql1 = "select count(*) as totalPeple from student_score where Paper_ID = "&v_testid&" and Score <= "&v_Ssore&" "
sql = "select * from student_score where Paper_ID = "&v_testid&" and Score <= "&v_Ssore&""
end if
set rs=server.createobject("adodb.recordset")
set rs=conn.execute(sql1)
PageCount =rs("totalPeple")
rs.close
set rs = nothing
'response.Write("total record:"&PageCount&"<br>")
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"))
'分页显示
'response.Write("Page1:"&Page&"<br>")
'response.Write("PageCount1:"&PageCount&"<br>")
If Page < 1 Then
Page = 1
end if
If Page > PageCount Then
Page = PageCount
end if
i=page+(page-1)*9
rs.AbsolutePage = Page
'response.Write("Page2:"&Page&"<br>")
'response.Write("PageCount2:"&PageCount&"<br>")
For iPage = 1 To PageSize
if not rs.eof then
v_uid = rs("User_ID")
'平时成绩
v_uscore = rs("UsaScore")
'考试成绩（卷面成绩）
v_pscore = rs("PaperScore")
'总成绩
v_score = rs("Score")
'学生开始答题时间
v_stuStartTime =rs("Stu_Start_time")
v_stuEndTime = rs("Stu_End_time")
usql = "select * from user_info where UserID = "&v_uid
set urs = server.CreateObject("adodb.recordset")
urs.open usql,conn,3,2
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>
<%
rs.MoveNext
end if
If rs.EOF Then Exit For
i=i+1
Next
%>
</table>
<div align="right"></div>
<div ALIGN="right">
<form ACTION="<%=Myself%>?maxScore=<%=v_Ssore%>&pass=<%=v_pass%>&test_id=<%=v_testid%>%>" name="myform1" METHOD="post">
<table>
<tr>
<td>
<p ALIGN="right">
<%If Page > 1 Then ' 如果不是位于第一页%>
<a href="<%=Myself%>?Page=1&maxScore=<%=v_Ssore%>&pass=<%=v_pass%>&test_id=<%=v_testid%>"> 第一页</a>
<a HREF="<%=Myself%>?Page=<%=(Page-1)%>&maxScore=<%=v_Ssore%>&pass=<%=v_pass%>&test_id=<%=v_testid%>">上一页</a>
<% End If
If Page <> PageCount Then ' 如果不是位于最后一页
%>
<a HREF="<%=Myself%>?Page=<%=(Page+1)%>&maxScore=<%=v_Ssore%>&pass=<%=v_pass%>&test_id=<%=v_testid%>">下一页</a>
<a HREF="<%=Myself%>?Page=<%=PageCount%>&maxScore=<%=v_Ssore%>&pass=<%=v_pass%>&test_id=<%=v_testid%>">最后一页</a>
<% End If %>
<font SIZE="2">输入页次:</font><input type="text" name="Page" size="5" value="" onKeyPress="if(event.keyCode==13)javascript:doSubmit(<%=v_Ssore%>,<%=v_pass%>,<%=v_testid%>);"/>
<font SIZE="2">页次:</font><font COLOR="Red" SIZE="2"><%=Page%>/<%=PageCount%></font></p> <p>
</td>
</tr>
</table>
<%
'response.Write("Page3:"&Page&"<br>")
' response.Write("PageCount3:"&PageCount&"<br>")
%>
</form>
<p align="left">注：点击帐 号查看该用户的详细信息</p>
</div>
</div>
</td>
</tr>
<%conn.close
set conn = nothing%>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?