talker.asp

来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 55 行

ASP
55
字号
<HTML>
<HEAD>
<%'设置定时刷新%>
<MTEA http-equiv="refresh" content="30;url=talker.asp">
<TITLE>聊天成员</TITLE>
<BASE target="rtop">
</HEAD>
<BODY>
<%'如果用户存在
If session("name")<>"" Then
%>
   <P>
   <STRONG>
   <FONT>聊天者:</FONT>
   </STRONG><BR>
   </P>
   <P>
<%
   '显示用户列表
   Items=split(application("people"),",")
   For i=0 To ubound(items)
       Response.write "<FONT>" & "-" & Items(i) & "-" & "</FONT><BR>"
   Next
   '如果用户已经退出
Else
%>
   <FONT face="隶书"> 
   <BIG><BIG>
   <STRONG>请您离开</STRONG>
   </BIG></BIG> 
   </FONT>
<%End If%>
<p>当前在线人数:<%=application("onlines")%></p>
<p>网站被访问次数:<%=session("visitors") %></p> 

</P> 
</BODY>
</HTML>
















⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?