📄 chatpage.asp.txt

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

💻 TXT

字号:

<%
  name = Request("UserName")						' 取得用户名称
  If instr (1, Application("user"), name & "<BR>") = 0 Then 
    Application("user") = Application("user") & name & "<BR>"		' 增加在线用户列表
  End If
    ' 以上内容是增加的
  Session("UserName") = Request("UserName")
  Application.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
%>
<HTML>
  <HEAD name=win0><TITLE> 小小聊天室 </TITLE></HEAD>
  <FRAMESET rows=100,*>
    <FRAME src="Message.asp">
    <FRAMESET cols=75%,*>				' 增加框架
      <FRAME src="Display.asp">
      <FRAME src="List.asp" name=f3>		' 增加框架列表项
    </FRAMESET>
  </FRAMESET>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -