📄 message.asp

📁 asfd asf

💻 ASP

字号:

<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="#CCCCFF">

    <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 + -