📄 message.asp.txt
字号:
<HTML>
<HEAD><TITLE> Message Page </TITLE></HEAD>
<%
If Not Request.Form("message") = "" Then
Application.Lock ' Lock方法用来暂时阻止其他用户改变应用程序变量
For i = 5 To 1 Step -1
Application("Talk"& i) = Application("Talk"& (i-1))
Next
p = Session("UserName") & "说：" & Request.Form("message")
Application("Talk"& 0) ="(" & time & ") " & p
Application.Unlock ' 解锁
End If
%>
<BODY bgcolor=LightBlue>
<FORM method=post action="Message.asp">
<% =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 + -