📄 editscoreglobal.asp

📁 一套在线考试系统
💻 ASP
字号:
<!--#include file="conn.asp"--><html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>在线考试系统</title>
<link rel="stylesheet" type="text/css" href="../DEFAULT.CSS">
<script language="JavaScript1.2" src="../js/lock.js"></script>
</head>

<body>

<table border="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber2" height="25" cellpadding="0">
  <tr>
    <td width="100%">&nbsp;当前位置：成绩管理 &gt; <a href="editscore1.asp">修改用户考试成绩第一步</a> &gt;
    <a href="editscore2.asp?examid=<%=request("examid")%>">修改用户考试成绩第二步</a> &gt;
    <font color="#FF0000">全局修改</font></td>
  </tr>
</table>
<hr noshade color="#FFFFFF" size="1">
<%
dim totalper
dim allyadd
dim allyminus
dim score
allyadd=request("allyadd")
allyminus=request("allyminus")
sql="select * from exam_test where examid='"&request("examid")&"'"
rs.open sql,conn,3,2
totalper=rs("totalper")
rs.close
if allyadd<>"" then
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber2" bgcolor="#F1F1F1">
  <tr>
    <td class="border_blue">&nbsp;对应该参加编号为 [<%=request("examid")%>] 考试的所有人员加 <%=allyadd%> 
    分成功，主要涉及如下人员</td>
  </tr>
  <tr>
    <td>
    <p style="line-height: 200%">
    <% sql="select * from exam_score where examid='"& request("examid")&"'"
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2
      do while not rs.eof
      if (rs("score")+allyadd > totalper) then
        score=rs("score")
        rs("score")=totalper
        rs("edittime")=date()&" "&time()
        rs.update
        response.write "&nbsp;"&rs("userid")&"：加分前分数 "&score&" ，加分后分数 "&totalper&" ,编辑时间："&date()&" "&time()&"<br>"
      else
        score=rs("score")
        rs("score")=rs("score")+allyadd
        rs("edittime")=date()&" "&time()
        rs.update
        response.write "&nbsp;"&rs("userid")&"：加分前分数 "&score&" ，加分后分数 "&rs("score")&" ,编辑时间："&date()&" "&time()&"<br>"
      end if
      rs.movenext
      loop
      rs.close %> 　</td>
  </tr>
</table>
<%
end if
if allyminus<>"" then
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber2" bgcolor="#F1F1F1">
  <tr>
    <td class="border_blue">&nbsp;对应该参加编号为 [<%=request("examid")%>] 考试的所有人员减 
    <%=allyminus%> 分成功，主要涉及如下人员</td>
  </tr>
  <tr>
    <td>
    <p style="line-height: 200%">
    <% sql="select * from exam_score where examid='"& request("examid")&"'"
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2
      do while not rs.eof
      if (rs("score")-allyminus)< 0 then
        score=rs("score")
        rs("score")=0
        rs("edittime")=date()&" "&time()
        rs.update
        response.write "&nbsp;"&rs("userid")&"：减分前分数 "&score&" ，减分后分数 "&totalper&" ,编辑时间："&date()&" "&time()&"<br>"
        rs.close
      else
        score=rs("score")
        rs("score")=rs("score")-allyminus
        rs("edittime")=date()&" "&time()
        rs.update
        response.write "&nbsp;"&rs("userid")&"：减分前分数 "&score&" ，减分后分数 "&rs("score")&" ,编辑时间："&date()&" "&time()&"<br>"
      end if
      rs.movenext
      loop
      rs.close %> 　</td>
  </tr>
</table>
<%
end if
%>

</body>

</html>
⌨️ 快捷键说明

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