?? glright.asp
字號:
<%response.expires=0%>
<script language="javascript" runat="server">
function dm(inputstr)
{
return unescape(inputstr);
}
</script>
<%
if session("0382")="" then
response.end
end if
%>
<head>
<title>快狗管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css" type="text/css">
</head>
<body>
<%
'on error resume next
application.lock
onlineuser=application("onlineuser"&request("id"))
onlineinfo=split(application("info"),"|")
sitesums=ubound(onlineuser)
if sitesums<0 then
response.write("<center><font color=#ff0000>現(xiàn)在還沒有用戶！</font>")
else
%>
<p align="center"><font color=#ff0000 size=+2>在線用戶</font></p>
<table border="1" cellpadding="0" cellspacing="0" width="615" bordercolorlight="#000000" bordercolordark="#fdf0f0">
<tr>
<td height="25" width="71" align="center" valign="center" bgcolor="#eeeeee">編號</td>
<td height="25" width="83" align="center" valign="center" bgcolor="#eeeeee">昵稱</td>
<td height="25" width="67" align="center" valign="center" bgcolor="#eeeeee">是否站長</td>
<td height="25" width="162" align="center" valign="center" bgcolor="#eeeeee">上站日期</td>
<td height="25" width="162" align="center" valign="center" bgcolor="#eeeeee">前次發(fā)信息日期</td>
<td height="25" width="25" align="center" valign="center" bgcolor="#eeeeee">工具</td></tr>
<%
for i=0 to sitesums
if onlineuser(i)<>"" then
msg=split(onlineuser(i),"$")
if i mod 2=0 then
color="#eeeeee"
else
color="#ffffff"
end if
%>
<tr>
<td height="25" width="71" align="center" valign="center" bgcolor="<%=color%>"><%=msg(0)%></td>
<td height="25" width="83" align="center" valign="center" bgcolor="<%=color%>"><%=msg(1)%></td>
<td height="25" width="67" align="center" valign="center" bgcolor="<%=color%>"><%=msg(2)%></td>
<td height="25" width="162" align="center" valign="center" bgcolor="<%=color%>"><%=msg(3)%></td>
<td height="25" width="162" align="center" valign="center" bgcolor="<%=color%>"><%=msg(4)%></td>
<td height="25" width="25" align="center" valign="center" bgcolor="<%=color%>">
<p align="center"><a href="javascript:if (confirm('真的要刪除該用戶嗎？')){location.href='deleonlineuser.asp?id=<%=msg(0)%>&flag=<%=request("id")%>'}"><img border="0" src="../qqpic/menu.gif" width="16" height="16" alt="刪除該用戶"></a>
</td></tr>
<%
end if
next
end if
response.write("</table><br><center><a href=deleonlineuser.asp?id=all&flag="&request("id")&"><font color=#0000ff>清空所有在線用戶</font></a></center>")
response.write("<hr>")
sitesums=ubound(onlineinfo)
response.write(sitesums)
for i=0 to sitesums
response.write(dm(onlineinfo(i))&"<br>")
next
response.write("<br><center><a href=deleonlineuser.asp?id=info&flag="&request("id")&"><font color=#0000ff>清空在線信息隊(duì)列</font></a></center>")
response.write("<br><center><a href=deleonlineuser.asp?id=old&flag="&request("id")&"><font color=#0000ff>清除過期用戶</font></a></center>")
response.write(application("reftime"))
application.unlock
%>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -