📄 editscore2.asp
字号:
<!--#include file="conn.asp"-->
<%
Dim i
Dim subject
Dim starttime
Dim endtime
Dim examname
Dim avg
Dim rs1
Dim sql1
%> <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 userinfo(userid)
{
page="userinfo.asp?userid="+userid
window.open (page,'查看用户信息','width=260,height=300')
}
function examinfo(examid)
{
page="examinfo.asp?examid="+examid
window.open (page,'查看考试信息','width=560,height=480,scrollbars=1')
}
</script><script language="JavaScript1.2" src="../js/lock.js"></script>
</head>
<body bgcolor="#FFFFFF">
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber2" height="25" cellpadding="0">
<tr>
<td width="100%">当前位置：成绩管理 > <a href="editscore1.asp">修改用户考试成绩第一步</a> >
<font color="#FF0000">修改用户考试成绩第二步</font></td>
</tr>
</table>
<form method="POST" action="editscoreglobal.asp">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" width="100%" bgcolor="#F1F1F1">
<tr>
<td width="100%" class="border"> 本次考试全局修改<input type="hidden" name="examid" value="<%=request("examid")%>" size="20"></td>
</tr>
<tr>
<td width="100%"> 所有<font color="#FF0000">参考</font>人员加
<input type="text" name="allyadd" onblur="if(isNaN(this.value)) this.value='';" size="8" class="s01">
分</td>
</tr>
<tr>
<td width="100%"> 所有<font color="#008000">参考</font>人员减
<input type="text" name="allyminus" onblur="if(isNaN(this.value)) this.value='';" size="8" class="s01">
分</td>
</tr>
<tr>
<td width="100%" class="border" style="height: 30">
<p align="right"><input type="submit" value="保 存" name="B1" class="s02">
</td>
</tr>
</table>
</form>
<%
sql="select * from exam_test 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 avg(score) as avgper from exam_score where examid='"&request("examid")&"'"
rs.open sql,conn,3,2
if not rs.eof then
avg=rs("avgper")
end if
rs.close
%><form method="POST" action="editscore.asp">
<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%"> 考试编号：<font color="#ff0000"><%=request("examid")%>
</font>考试科目：<font color="#ff0000"><%=subject%></font><br>
考试名称：<font color="#ff0000"><%=examname%></font><br>
开始时间：<font color="#ff0000"><%=starttime%></font> 结束时间：<font color="#ff0000"><%=endtime%></font><br>
平均分数：<font color="#ff0000"><%=avg%></font></td>
</tr>
</table>
<hr noshade color="#FFFFFF" size="1">
<%
sql="select * from exam_score where examid='"& request("examid")&"' order by score desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
%>
<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" cellpadding="0" bgcolor="#F1F1F1">
<tr>
<td colspan="9" class="border_blue">
<p align="center">[<a href="javascript:examinfo('<%=rs("examid")%>')">
<%=request("examid")%></a>]<%=rs("subject")%>考试成绩一览表</td>
</tr>
<tr id="ignore" class="noborder">
<td style="height: 20" class="border" align="center" bgcolor="#cccccc" width="30"> </td>
<td class="border" align="center">证号</td>
<td class="border" align="center">姓名</td>
<td class="border" align="center">部门</td>
<td class="border" align="center">单位</td>
<td class="border" align="center">职务</td>
<td class="border" align="center">岗位</td>
<td class="border" align="center">成绩</td>
<td class="border" align="center" width="80"></td>
</tr>
<%
i=1
do while not rs.eof
sql1="select * from cadre_info where userid="&rs("userid")
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
%>
<tr>
<td align="center" style="height: 20"><%=i%></td>
<td align="center"><%=rs("userid")%></td>
<td align="center"><%=rs1("username")%></td>
<td align="center"><%=rs1("department")%></td>
<td align="center"><%=rs1("office")%></td>
<td align="center"><%=rs1("duties")%></td>
<td align="center"><%=rs1("post")%></td>
<td align="center">
<input type="hidden" name="userid" value="<%=rs("userid")%>" size="20">
<input type="text" name="score" onblur="if(isNaN(this.value)) this.value='';" size="8" value="<%=rs("score")%>" class="s01"></td>
<td align="center"><a href="reexam.asp?userid=<%=rs1("userid")%>&examid=<%=rs("examid")%>">重新考试</a></td>
</tr>
<%
i=i+1
rs.movenext
loop
%>
<tr>
<td align="right" colspan="9" class="border_blue" style="height: 30">
<input type="hidden" name="examid" value="<%=request("examid")%>" size="20">
<input type="submit" value="保 存" name="B1" class="s02"> </td>
</tr>
</table>
</form>
<%
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -