📄 main.asp
字号:
<%Response.buffer=true%>
<HTML>
<HEAD><TITLE>聊天室</TITLE>
</HEAD>
<% '将用户名存入数组
Items=split(application("people"),",")
'判断在线人数是否超出规定人数
If ubound(items)="10" Then
Response.write "人满为患，请稍后再来！"
Session.abandon
Response.end
End if
'如果在线人数没有超出规定人数，取得用户名
name=session("name")
Application.lock
'将用户名加入到people的Application变量中
Application("people")=application("people")&name&","
Application(name)="欢迎进入聊天室！"
Application.unlock
Session("begin")=Time
%>
<%'显示框架和聊天室内容%>
<Frameset rows="70%,*">
<Frameset cols="69%,*">
<Frame name="ltop" target="ltop" scrolling="auto" noresize src="content.asp">
<Frame name="rtop" target="rtop" scrolling="auto" noresize src="talker.asp">
</Frameset>
<Frameset cols="100%">
<Frame scrolling="auto" noresize src="talking.asp">
</Frameset>
<Noframes>
<BODY>
<P>浏览器不支持
</BODY>
</Noframes>
</Frameset>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -