📄 adminonlineaction.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 oncontextmenu="self.event.returnValue=false" onselectstart="selectstart();" bgcolor="#FFFFFF">

<%
if request("btn")="允许/禁止用户登陆" 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;允许/禁止用户成功，下列用户被允许/禁止登陆</td>
  </tr>
  <tr>
    <td>
    <p style="line-height: 200%">
    <% Dim i
    Dim j
    Dim userid
    userid=request("userid")
    userid=split(userid,",")
    i=ubound(userid)
    for j=0 to i
      sql="select * from cadre_info where userid="& userid(j)
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2
      if rs("reject")=0 then
        rs("reject")=1
        rs("rejecttime")=date()&" "&time()
        rs.update
        response.write rs("username")&" 被禁止登陆，被禁时间："&date()&" "&time()&"，禁止将在"&rs("username")&"下次登陆时生效<br>"
        rs.close
      else
        rs("reject")=0
        rs("rejecttime")=date()&" "&time()
        rs.update
        response.write rs("username")&" 禁止已经被解除，解禁时间："&date()&" "&time()&"<br>"
      end if
    next %> 　</td>
  </tr>
</table>
<%
else
%>
<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%">
    <% 
    userid=request("userid")
    userid=split(userid,",")
    i=ubound(userid)
    for j=0 to i
      sql="select * from tongji where userid="& userid(j)
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2
      do while not rs.eof
      if rs("online")=1 then
        rs("online")=0
        rs("endtime")="1970-1-1"
        rs.update
        response.write rs("username")&" 登陆状态已经恢复，恢复时间："&date()&" "&time()&"，恢复将在"&rs("username")&"下次登陆时生效<br>"
      end if
      rs.movenext
      loop
      rs.close
    next %> 　</td>
  </tr>
</table>
<%
end if
%>

</body>

</html>
⌨️ 快捷键说明

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