message.asp.txt

来自「ASP 网页数据库短训教程源码」· 文本 代码 · 共 22 行

TXT
22
字号
<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") %>, 请输入谈话内容:<BR>
      <INPUT type=text name=message size=40>
      <INPUT type=submit value=发送>
    </FORM>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?