📄 chatpage.asp.txt

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

💻 TXT

字号:

<%
  name = Request("UserName") 
  Application.Lock
  a = Application("user")
  If isarray(a) Then					' 如果Application("user")已经是数组
    For Each i in a
      If i = name Then
        Response.Write "已有用户以此名称登录<P>"
        Response.Write "单击按钮返回"
        Response.Write "<INPUT type=button onclick='History.Back 1' "
        Response.Write "value=返回 language=vbscript>"
        Response.End
      End If
    Next
    If Ubound(a) > 3 Then
      Response.Write "聊天室已满员，请稍后再来<P>"
      Response.Write "单击按钮返回"
      Response.Write "<INPUT type=button onclick='History.Back 1' "
      Response.Write "value=返回 language=vbscript>"
      Response.End
    Else
      k = ubound(a) + 1
      Redim Preserve a(k)
      a(k) = name
    End If
  Else
    Redim a(0)
    a(0) = name
  End If
  Application("user") = a					' 数组Application("user")中存放在线人员名
  Session("UserName") = Name
  b = Application("Talk")
  If isarray(b) Then
    n = ubound(b)
    For I = n To 1 Step -1
      b(i) = b(i-1)
    Next
  Else
    Redim b(10)
  End If
  p = "大家好！我是" & Session("UserName")
  b(0) = "<FONT size=1>(" & time & ")</FONT> " & p 	' 刚进入聊天室时的聊天内容
  Application("Talk") = b					' 数组Application("Talk")中存放聊天内容
  Application.Unlock
%>
<HTML>
  <HEAD><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 + -