📄 chatters.asp
字号:
<%
Option Explicit
Dim ChatID
ChatID = Request("ChatID")
If ( (ChatID = "") OR (NOT Application.StaticObjects.Item("ASPChat").Exists(ChatID)) ) Then
Response.Redirect "Expired.asp"
Response.End
End If
%>
<!-- #include file="constants.inc" -->
<html>
<head>
<!--meta HTTP-EQUIV="Refresh" CONTENT="15; URL=Chatters.asp?ChatID=<%=ChatID%>"-->
<title>bm8 - Users</title>
<link rel="stylesheet" type="text/css" href="Chat.css">
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#FF8040" vlink="#FF8040" alink="#354FC6" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0">
<table border="0" width="100%" cellspacing="0" cellpadding="2">
<tr>
<td bgcolor="#D0D0D0" width="32" height="32">
<img src="images/Chatters.gif" border="0" WIDTH="32" HEIGHT="32">
</td>
<td bgcolor="#D0D0D0" width="100%">
<b>Current</b>
<br>
<b>Users</b>
</td>
</tr>
<%
Dim arUserNames, arUserIDs, i, chatName
arUserIDs = Application.StaticObjects.Item("ASPChat").Keys
arUserNames = Application.StaticObjects.Item("ASPChat").Items
For i = 0 To Application.StaticObjects.Item("ASPChat").Count-1
If (ChatID = arUserIDs(i)) Then
chatName = "<b>" & arUserNames(i) & "</b>"
Else
chatName = arUserNames(i)
End If
If ( i MOD 2 ) Then
Response.Write "<tr bgcolor='#F8F8F8'>"
Else
Response.Write "<tr>"
End If
Response.Write " <td class='infoText' colspan='2'>"
Response.Write "<img src='images/Chatter.gif' width=16 height=16>"
Response.Write chatName & " </td>"
Response.Write "</tr>"
Next
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -