<HTML>
<HEAD>
<META http-equiv="refresh" content="5; url=talker.asp">
<TITLE>聊天成员</TITLE>
<BASE target="rtop">
</HEAD>
<BODY bgcolor="rgb(224,241,227)">
<FONT color="#ff00ff">当前在线人员名单:</FONT><BR>
<%
If session("curruser")<>"" Then
   '如果用户存在,显示在线人员
    users=split(application("people"),",")
    For i=0 To ubound(users)-1
        Response.write "<FONT color=green>"&"-"&users(i)&"-"&"</FONT><BR>"
    Next
Else
%>
   <FONT face="隶书" color="#ff0000"> 
   <BIG><STRONG>请您离开</STRONG></BIG></FONT>
<%End If%> 
</BODY></HTML>
