📄 editscore.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" bordercolor="#007CD0" width="100%" id="AutoNumber2" height="25" cellpadding="0">
  <tr>
    <td width="100%">当前位置：成绩管理 &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
sql="select * from exam_test where examid='"&request("examid")&"'"
rs.open sql,conn,3,2
totalper=rs("totalper")
rs.close
%>
<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;成功修改用户考试成绩，下面用户的成绩被修改</td>
  </tr>
  <tr>
    <td>
    <p style="line-height: 200%">
    <% Dim i
    Dim j
    Dim userid
    Dim score
    Dim myscore
    userid=request("userid")
    userid=split(userid,",")
    score=request("score")
    score=split(score,",")
    i=ubound(userid)
    for j=0 to i
      sql="select * from exam_score where userid="& cint(userid(j))
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2
      myscore=rs("score")
      if cint(score(j))< 0 then
        rs("score")=0
        rs("edittime")=date()&" "&time()
        rs.update
        response.write "&nbsp;用户:"&userid(j)&" 被修改，修改前分数： "&myscore&"，修改后分数  0 ， 编辑时间："&date()&" "&time()&"<br>"
        rs.close
      else
        if cint(score(j))>=totalper then
          rs("score")=totalper
          rs("edittime")=date()&" "&time()
          rs.update
          response.write "&nbsp;用户:"&userid(j)&" 被修改，修改前分数： "&myscore&"，修改后分数  "&totalper&" ， 编辑时间："&date()&" "&time()&"<br>"
        else
          rs("score")=score(j)
          rs("edittime")=date()&" "&time()
          rs.update
          response.write "&nbsp;用户:"&userid(j)&" 被修改，修改前分数： "&myscore&"，修改后分数  "&score(j)&" ， 编辑时间："&date()&" "&time()&"<br>"
       end if
      end if
    next %></td>
  </tr>
</table>

</body>

</html>
⌨️ 快捷键说明

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