📄 message.asp.txt
字号:
<HTML>
<HEAD><TITLE> Message Page </TITLE></HEAD>
<%
If Not Request.Form("message")="" Then
Application.Lock
a = Application("Talk")
n = ubound(a)
For I = n To 1 Step -1
a(i) = a(i-1)
Next
p = Session("UserName") & "说：" & Request.Form("message")
a(0) = "<FONT size=1>(" & time & ")</FONT> " & p
Application("Talk") = a
a = Application("user")
Application.Unlock
End If
%>
<BODY bgcolor=LightBlue>
<FORM method=post action="message.asp" name=form1>
<% =Session("UserName") & "," %>
请输入谈话内容 或
<A href="Exit.asp" target=f3>退出聊天室</A><BR>
<INPUT type=text name=message size=40>
<INPUT type=submit value=发送>
</FORM>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -