📄 chatpage.asp
字号:
<%
name = Request("UserName")
Application.Lock
a = Application("user")
If isarray(a) Then ' 如果Application("user")已经是数组
For Each i in a
If i = name Then
Response.Write "已有用户以此名称登录<P>"
Response.Write "单击按钮返回"
Response.Write "<INPUT type=button onclick='History.Back 1' "
Response.Write "value=返回 language=vbscript>"
Response.End
End If
Next
If Ubound(a) > 3 Then
Response.Write "聊天室已满员，请稍后再来<P>"
Response.Write "单击按钮返回"
Response.Write "<INPUT type=button onclick='History.Back 1' "
Response.Write "value=返回 language=vbscript>"
Response.End
Else
k = ubound(a) + 1
Redim Preserve a(k)
a(k) = name
End If
Else
Redim a(0)
a(0) = name
End If
Application("user") = a ' 数组Application("user")中存放在线人员名
Session("UserName") = Name
b = Application("Talk")
If isarray(b) Then
n = ubound(b)
For I = n To 1 Step -1
b(i) = b(i-1)
Next
Else
Redim b(10)
End If
p = "大家好！我是" & Session("UserName")
b(0) = "<FONT size=1>(" & time & ")</FONT> " & p ' 刚进入聊天室时的聊天内容
Application("Talk") = b ' 数组Application("Talk")中存放聊天内容
Application.Unlock
%>
<HTML>
<HEAD><TITLE> 小小聊天室 </TITLE></HEAD>
<FRAMESET rows=100,* cols="*">
<FRAME src="Message.asp">
<FRAMESET rows="*" cols=82%,*>
<FRAME src="Display.asp">
<FRAME src="List.asp" name=f3>
</FRAMESET>
</FRAMESET>
<noframes></noframes>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -