send.aspx

来自「一个关于asp.net的源码」· ASPX 代码 · 共 91 行

ASPX
91 行
字号 
<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
         Application("Current")=0
      End If  
         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: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>

send.aspx - 源码说明

本页面展示了「一个关于asp.net的源码」中的 send.aspx 源码文件，采用 ASPX 编程语言编写，共 91 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与asp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?