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 + -
显示快捷键?