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 + -
显示快捷键?