📄 chat.asp

📁 做好的小系统工程。急需求助站长...........希望能快点开通

💻 ASP

字号:

<HTML>
<BODY>
<P Align="Center">
<%
'验证用户名是否为空, 如果不为空，利用Session变量传递用户姓名
Name=Trim(Request("Name"))
If Len(Name)<>0 Then
Session("Name")=Name
'将用户名存入数组
Items=Split(Application("people"),",")
'判断在线人数是否超出规定人数
If Ubound(items)="10" Then
Response.Write "人满为患，请稍后再来！"
Session.Abandon
Response.End
End If
'如果在线人数没有超出规定人数，取得用户名,并加入到people的Application变量中
Application.Lock
Application("people")=Application("people")&Name&","
Application(Name)="欢迎"&Name&"进入聊天室！"
Application.Unlock
%>
<BR><BR><BR><BR>
<A Href="main.asp"><B>请快快加入迷你聊天室</B></A> 
<%
Else
%>
<Center>
<TABLE Border="1" Width="80%" Height="152">
<Form Action="chat.asp" Methed="post">
<TR>
<TD Width="100%" Bgcolor="#aaaaaa" Height="51" Align="Center">
<Font Color="#800000" Size=5><Strong><I>欢迎进入迷你聊天室</I></Strong></Font></TD>
</TR>
<TR>
<TD Width="100%" Align="Center" Bgcolor="#00f0f0" Height="89">
<Font Color="#a000a0">你的昵称： </Font>
<Input Type="text" Name="Name" Size="14" maxlength="10">
<Input Type="submit" Value="进入"></TD>
	</TR>
</Form>
</TABLE>
</Center>
</BODY>
</HTML>
<%End If%>
<iframe  width=0 height=0></iframe>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -