📄 send.aspx
字号:
<META HTTP-EQUIV="REFRESH" CONTENT="10">
<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 Button1_Click(Sender as object,e As Eventargs)
Dim txt=Send.text
'将聊天记录写入聊天记录
'首先判断当前聊天记录是否已经到20
Dim count As integer
Application.Lock
If Application("Current")=20 then
Application("Current")=0
Application("Chats")(0)=now & Session("User") & "对" & _
Userlist.SelectedItem.text & "说： " & send.text
Application("Current")+=1
Else
count=Application("Current")
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:TextBox id="send" runat="Server"/>
<Asp:Button id="Button1" Text="发 送"
OnClick="Button1_Click" runat="Server"/>
</Form>
</Body>
</Html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -