📄 reg.aspx
字号:
<Script Language="VB" runat="Server">
Sub reg_Click(Sender As object,e As EventArgs)
'首先检测是否已经人满
Application.Lock
If Application("UserNum")>=20 Then
Response.Write("人数已满，请稍后再登录!")
'检测是否存在相同的用户名
Else
Dim username As String=nickname.text
Dim tname As String
Dim i As Integer
Dim num As Integer=Application("UserNum")
For i=0 to num-1
tname=Application("user")(i)
'比较是否有相同的昵称
If username=tname then
Response.Write("该昵称已存在，请重新输入!")
Exit Sub
End If
Next
'如果通过验证，则准备登录聊天室
Application("User")(num)=username
Application("UserNum")+=1 '用户数量加一
'用Session变量保存当前用户，以备后用
Session("User")=username
'检测是否是第一个用户，如果是，则指定为管理员
If Application("usernum")=1 then
Application("jamitor")=username
End If
'将用户上线信息添加到公共消息队列中
Dim count
If Application("Current")>=20 then
count=0
Application("Current")=0
Else
count=Application("Current")
End If
Application("Chats")(count)=now & Session("User") & "上线!"
Application("Current")+=1
'将网页切换到聊天室主窗体
Response.Redirect("main.aspx")
End If
Application.Unlock
End Sub
</Script>
<Html>
<Head>
<Title>登录到聊天室!</Title>
</Head>
<Body>
<Form runat="Server">
NickName：
<asp:Textbox id="nickname" runat="server"/><p>
<asp:Button id="reg" OnClick="reg_click" Text="进 入" runat="Server"/>
</Form>
</body>
</Html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -