📄 admincadreinfo.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">

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber2" bgcolor="#F1F1F1">
  <tr>
    <td class="border_blue">允许/禁止用户成功，下列用户被允许/禁止登陆</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>


</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -