📄 adminonline.asp
字号:
<!--#include file="conn.asp"-->
<%
Dim total
Dim online
Dim i
Dim OnlineHours
Dim OnlineTotalTime
%>
<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">
<meta http-equiv="refresh" content="60">
<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">
<%
sql="select * from tongji"
rs.open sql,conn,3,2
total=rs.recordcount
rs.close
sql="select * from tongji where online=1 order by starttime desc"
rs.open sql,conn,3,2
online=rs.recordcount
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber4">
<tr>
<td width="100%">当前位置：在线人员管理 > <font color="#FF0000">允许/禁止用户</font></td>
</tr>
</table>
<form method="POST" action="adminonlineaction.asp">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber2" bgcolor="#F1F1F1">
<tr>
<td colspan="6" class="border_blue">
<p align="center">《在线考试系统》访问统计系统 (截至：<%=date()%> <%=time()%>)</td>
</tr>
<tr>
<td colspan="6">
<p style="line-height: 200%"> 总计访问：<%=total%> 人<br>
当前在线：<%=online%> 人</td>
</tr>
<tr>
<td colspan="6" bordercolor="#007CD0" class="border_blue">
<p align="center">《在线考试系统》在线人员列表</td>
</tr>
<tr>
<td align="center" class="border" width="20"> </td>
<td align="center" class="border">证件号码</td>
<td align="center" class="border">姓名</td>
<td align="center" class="border">IP地址</td>
<td align="center" class="border">登陆时间</td>
<td align="center" class="border">停留时间</td>
</tr>
<% do while not rs.eof
OnlineTotalTime = DateDiff("n",rs("starttime"),(date()&" "&time()))
If OnlineTotalTime > 60 then
OnlineHours = 0
do until OnlineTotalTime < 60
OnlineTotalTime = (OnlineTotalTime - 60)
OnlineHours = OnlineHours + 1
loop
OnlineTotalTime = OnlineHours & " 小时 " & OnlineTotalTime & " 分钟"
Else
OnlineTotalTime = OnlineTotalTime & " 分钟"
End If %>
<tr>
<td align="center" bgcolor="#C0C0C0">
<input type="checkbox" name="userid" value="<%=rs("userid")%>"></td>
<td align="center"><a href="userinfo.asp?userid=<%=rs("userid")%>">
<%=rs("userid")%></a> </td>
<td align="center" bgcolor="#F9F9F9">
<a href="userinfo.asp?userid=<%=rs("userid")%>"><%=rs("username")%></a> </td>
<td align="center"><%=rs("ip")%> </td>
<td align="center" bgcolor="#F9F9F9"><%=rs("starttime")%> </td>
<td align="center"><%=OnlineTotalTime%> </td>
</tr>
<% rs.movenext
loop %>
</table>
<% rs.close %><hr noshade color="#FFFFFF" size="1">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber3" bgcolor="#F1F1F1" height="30">
<tr>
<td width="100%">
<p align="right">
<input type="checkbox" id="chkall" name="chkall" value="ON" onclick="checkall(this.form);"><label for="chkall">全部选择/取消选择</label>
<input type="submit" value="允许/禁止用户登陆" name="btn" class="s02">
<input type="submit" value="恢复用户" name="btn" class="s02"> </td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -