📄 viewusers.asp
字号:
<html>
<head>
<title>SBHS chat Admin</title>
<link href="../styles.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="49%"><font size="3">开心聊天室管理 -用户管理</font></td>
<td width="51%" align="right"> </td>
</tr>
</table>
<!--#include file="config.asp" -->
<%
'run all ASP at the start
%>
<table width="100%" border="1" cellpadding="3" cellspacing="0" bordercolor="0066CC">
<tr>
<td align="center" bgcolor="#91D2FF"><font color="#000000"><strong>用户ID
</strong></font></td>
<td align="center" bgcolor="#91D2FF"><font color="#000000"><strong>用户名
</strong></font></td>
<td align="center" bgcolor="#91D2FF"><strong><font color="#000000">聊天室编号</font></strong></td>
<td align="center" bgcolor="#91D2FF"><strong><font color="#000000">登录/退出时间</font></strong></td>
<td align="center" bgcolor="#91D2FF"><strong><font color="#000000">最后发言时间</font></strong></td>
</tr>
<%
'get the input
varwho = request.QueryString("who")
if varwho = "registered" then varSQL = "SELECT * FROM USERS;"
if varwho = "online" then varSQL = "SELECT * FROM USERS WHERE Active = 1;"
call openDB
rs.Open varSQL, conn
if rs.EOF then
varNoUsers = "There are no online users at the moment"
else
rs.movefirst
do
varUserID = rs("UserID")
varUsername = rs("Username")
varRoomID = rs("RoomID")
if varRoomID = 0 then varRoomID = "offline"
varTime = rs("Time")
if isNull(varTime) then varTime = "Never Logged On"
varLastPost = rs("LastPost")
if isNull(varLastPost) then varLastPost = " "
response.write "<tr>"
response.write "<td align='center'>" & varUserID & "</td>"
response.write "<td align='center'>" & varUsername & "</td>"
response.write "<td align='center'>" & varRoomID & "</td>"
response.write "<td align='center'>" & varTime & "</td>"
response.write "<td align='center'>" & varLastPost & "</td>"
response.write "</tr>"
rs.movenext
loop until rs.EOF
end if
call closeDB
%>
</table>
<%
response.write varNoUsers
%>
<script type="text/javascript" language="JavaScript">
// Define the location of count.asp
// Using a path, you may use this code in any subfolder
var file='../../stats/count.asp';
var d=new Date();
var s=d.getSeconds();
var m=d.getMinutes();
var x=s*m;
f='' + escape(document.referrer);
if (navigator.appName=='Netscape'){b='NS';}
if (navigator.appName=='Microsoft Internet Explorer'){b='MSIE';}
if (navigator.appVersion.indexOf('MSIE 3')>0) {b='MSIE';}
u='' + escape(document.URL); w=screen.width; h=screen.height;
v=navigator.appName;
fs = window.screen.fontSmoothingEnabled;
if (v != 'Netscape') {c=screen.colorDepth;}
else {c=screen.pixelDepth;}
j=navigator.javaEnabled();
info='w=' + w + '&h=' + h + '&c=' + c + '&r=' + f + '&u='+ u + '&fs=' + fs + '&b=' + b + '&x=' + x;
document.write('<img src="' + file + '?'+info+ '" width=0 height=0 border=0>');
</script>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -