📄 home.asp
字号:
<html>
<head>
<title>Natterchat Admin</title>
<link href="../styles.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function delmessages() {
var dodelete = confirm('This will delete all the messages from the database.\n\nThat ok')
if (dodelete) {
return true ;
} else {
return false ;
}
}
function idle() {
var idle = prompt('What would you like to set the idle time to?', 'Number of minutes')
document.frmedit.idletime.value = idle
return true
}
function kickout() {
var kickout = prompt('What would you like to set the kickout time to?', 'Number of minutes')
document.frmedit2.kickouttime.value = kickout
return true
}
//-->
</script>
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="51%"><font size="3">开心聊天室管理界面</font></td>
<td width="49%" align="right"> <strong>e</strong> </td>
</tr>
</table>
<!--#include file="config.asp" -->
<%
'run all ASP at the start
'get the rooms from the database
call openDB
varSQL = "SELECT * FROM ROOMS"
rs.Open varSQL, conn,1,3
rs.movelast
rs.movefirst
response.write rs.recordcount
if rs.BOF and rs.eof then
varRooms = "<option value='0'>There are no rooms</option>"
else
rs.movefirst
do
varRoomID = rs("RoomID")
arrayR = "yes"
redim Preserve arrRooms(i)
arrRooms(i) = varRoomID
i = i + 1
rs.movenext
loop until rs.EOF
end if
call closeDB
if arrayR = "yes" then
For F = LBound(arrRooms) To UBound(arrRooms)
call openDB
varSQL = "SELECT Count(UserID) AS NoUsers FROM USERS WHERE RoomID = " & arrRooms(F) & ";"
rs.Open varSQL, conn
varNoUsers = rs("NoUsers")
call closeDB
call openDB
varSQL = "SELECT * FROM ROOMS WHERE RoomID = " & arrRooms(F) & ";"
rs.Open varSQL, conn
varName = rs("Name")
call closeDB
varRooms = varRooms & "<tr><td>" & varName & "</td><td align='center'>" & varNoUsers & "</td><td align='center'><a href='rooms.asp?delete=" & arrRooms(F) & "'>Yes</a></td><td align='center'><a href='rooms.asp?edit=" & arrRooms(F) & "'>Yes</a></td></tr>"
Next
end if'STATS
'active users
call openDB
varSQL = "SELECT Count(UserID) AS RegUsers FROM USERS;"
rs.open varSQL, conn
if rs.EOF then
varUsers = "0"
else
varUsers = rs("RegUsers")
end if
call closeDB
'online users
call openDB
varSQL = "SELECT Count(UserID) AS OnlineUsers FROM USERS WHERE Active=1;"
rs.open varSQL, conn
if rs.EOF then
varOnlineUsers = "0"
else
varOnlineUsers = rs("OnlineUsers")
end if
call closeDB
'messages
call openDB
varSQL = "SELECT Count(MessageID) AS NoMessages FROM MESSAGES;"
rs.open varSQL, conn
if rs.EOF then
varNoMessages = "0"
else
varNoMessages = rs("NoMessages")
end if
call closeDB
'pms
call openDB
varSQL = "SELECT Count(PMID) AS NoPM FROM PM;"
rs.open varSQL, conn
if rs.EOF then
varNoPM = "0"
else
varNoPM = rs("NoPM")
end if
call closeDB
'get the setup info
call openDB
varSQL = "SELECT * FROM SETUP;"
rs.open varSQL, conn
if rs.EOF then
'error
else
varIdleTime = rs("IdleTime")
varKickoutTime = rs("KickoutTime")
end if
call closeDB
'get the query input
varAction = request.QueryString("Action")
if varAction = "MESSAGESDelete" then
varAction = "Messages Deleted"
elseif varAction = "PMDelete" then
varAction = "Private Messages Deleted"
elseif varAction = "Roomdeleted" then
varAction = "Room Deleted"
elseif varAction = "Roomedited" then
varAction = "Room Edited"
elseif varAction = "idle" then
varAction = "Idle Time Altered"
elseif varAction = "kickout" then
varAction = "Kickout Time Altered"
end if
%><br><br>
<table width="100%" border="1" cellpadding="3" cellspacing="0" bordercolor="0066CC">
<tr>
<td width="25%" align="center" bgcolor="#91D2FF"><strong>
<font color="#000000">状态</font></strong></td>
<td width="50%" align="center" bgcolor="#91D2FF"><strong>
<font color="#000000">有效聊天室</font></strong></td>
<td width="25%" align="center" bgcolor="#91D2FF"><strong>
<font color="#000000">设置</font></strong></td>
</tr>
<tr>
<td width="25%" valign="top"><table width="95%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolor="#95E4FF">
<tr>
<td width="60%" bgcolor="#C4F0FF">注册用户: </td>
<td align="center"><%=varUsers%></td>
<td align="center"><a href="viewusers.asp?who=registered">查看</a></td>
</tr>
<tr>
<td width="60%" bgcolor="#C4F0FF">在线用户: </td>
<td align="center"><%=varOnlineUsers%></td>
<td align="center"><a href="viewusers.asp?who=online">查看</a></td>
</tr>
<tr>
<td width="60%" bgcolor="#C4F0FF">公共信息: </td>
<td align="center"><%=varNoMessages%></td>
<td align="center">
<a href="delmessages.asp?Item=MESSAGES" onClick="return delmessages()">
删除</a></td>
</tr>
<tr>
<td width="60%" bgcolor="#C4F0FF">私聊信息 </td>
<td align="center"><%=varNoPM%></td>
<td align="center">
<a href="delmessages.asp?Item=PM" onClick="return delmessages()">删除</a></td>
</tr>
</table>
</td>
<td width="50%" align="center" valign="top">
<table width="95%" border="1" cellpadding="3" cellspacing="0" bordercolor="#95E4FF">
<tr align="center">
<td bgcolor="#C4F0FF">名称</td>
<td bgcolor="#C4F0FF">用户</td>
<td bgcolor="#C4F0FF">删除</td>
<td bgcolor="#C4F0FF">编辑</td>
</tr>
<%=varRooms%>
</table>
</td>
<td width="25%" valign="top"> <table width="95%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolor="#95E4FF">
<tr>
<form name="frmedit" method="post" action="setup.asp?function=idle" onSubmit="return idle()">
<td width="60%" bgcolor="#C4F0FF">Idle Time:</td>
<td align="center"><%=varIdleTime%></td>
<td align="center">
<input name="submit" type="submit" class="inputbtn" value="更改"></td>
<input type="hidden" value="<%=varIdleTime%>" name="idletime">
</form>
</tr>
<tr>
<form name="frmedit2" method="post" action="setup.asp?function=kickout" onSubmit="return kickout()">
<td width="60%" bgcolor="#C4F0FF">Kickout Time:</td>
<td align="center"><%=varKickoutTime%></td>
<td align="center">
<input name="submit" type="submit" class="inputbtn" value="更改"></td>
<input type="hidden" value="<%=varKickoutTime%>" name="kickouttime">
</form>
</tr>
</table>
<p></p>
</td>
</tr>
</table>
<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 + -