📄 talker.asp

📁 做好的小系统工程。急需求助站长...........希望能快点开通

💻 ASP

字号:

<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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -