📄 chatpage.asp.txt

📁 ASP 网页数据库短训教程源码

💻 TXT

字号:

<%
  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 + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -