chatpage.asp

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

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

chatpage.asp - 源码说明

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

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

⌨️ 快捷键说明

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