chatpage.asp.txt

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

TXT
18
字号
<%
  Session("UserName") = Request("UserName")
  Application.Lock			' Lock方法用来暂时阻止其他用户改变应用程序变量
  For i = 5 To 1 Step -1
    Application("Talk"& i) = Application("Talk"& (i-1))
  Next
  p = "大家好!我是:" & Session("UserName")
  Application("Talk"& 0) = "(" & time & ") " & p
  Application.Unlock			' Unlock方法用来解锁
%>
<HTML>
  <HEAD><TITLE> 小小聊天室 </TITLE></HEAD>
  <FRAMESET rows=100,*>
    <FRAME src="Message.asp">
    <FRAME src="Display.asp">
  </FRAMESET>
</HTML>

⌨️ 快捷键说明

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