message.asp

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

ASP
28 行
字号 
<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>

message.asp - 源码说明

本页面展示了「ASP 网页数据库短训教程源码」中的 message.asp 源码文件，采用 ASP 编程语言编写，共 28 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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