📄 send.aspx
字号:
<Script Language="VB" runat="Server">
Sub Page_load(Sender as object,e as eventargs)
If not Page.IsPostBack then
Dim i As Integer
Dim lItem As ListItem
Dim txt As String
'加载用户列表
Application.Lock
For i=0 to Application("UserNum")-1
txt=Application("User")(i)
lItem=New ListItem(txt,txt)
Userlist.Items.Add(lItem)
Next
Application.Unlock
'去除当前用户
lItem=New ListItem(Session("User"),session("User"))
UserList.Items.Remove(lItem)
End If
End Sub
Sub refresh_Click(sender As object,e As Eventargs)
Dim i As Integer
Dim lItem As ListItem
Dim txt As String
'首先清空用列表
UserList.Items.Clear()
'添加所有人昵称
lItem=New ListItem("所有人","所有人")
UserList.Items.Add(lItem)
'加载用户列表
Application.Lock
For i=0 to Application("UserNum")-1
txt=Application("User")(i)
lItem=New ListItem(txt,txt)
Userlist.Items.Add(lItem)
Next
Application.Unlock
'去除当前用户
lItem=New ListItem(Session("User"),session("User"))
UserList.Items.Remove(lItem)
End Sub
Sub Button1_Click(Sender as object,e As Eventargs)
Dim txt=Send.text
'将聊天记录写入聊天记录
'首先判断当前聊天记录是否已经到20
Dim count As integer
Application.Lock
'判断是否为私聊内容
If check1.checked Then
'处理私聊内容
If Application("chatnum")>=40 then
count=0
Application("chatnum")=0
Else
count=Application("chatnum")
End If
Application("chat")(count)=send.text
Application("Owner")(count)=Session("user")
Application("chattime")(count)=now
Application("Sendto")(count)=Userlist.SelectedItem.text
Application("chatnum")+=1
Else
'处理公共聊天内容
If Application("Current")>=20 then
count=0
Application("Current")=0
Else
count=Application("Current")
End If
Application("Chats")(count)=now & Session("User") & "对" & _
Userlist.SelectedItem.text & "说： " & send.text
Application("Current")+=1
End If
Application.Unlock
'清空输入栏
send.text=""
End Sub
</Script>
<Html>
<Body>
<Form Runat="Server">
<Asp:DropDownList id="Userlist" runat="Server" width="10%">
<asp:ListItem>所有人</asp:ListItem>
</Asp:DropDownList>
<Asp:Button id="refresh" text="刷新"
OnClick="Refresh_Click" runat="Server" />
<Asp:CheckBox id="check1" Text="悄悄话" runat="Server" />
<Asp:TextBox id="send" runat="Server" width="50%" />
<Asp:Button id="Button1" Text="发 送"
OnClick="Button1_Click" runat="Server"/>
</Form>
</Body>
</Html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -