ASP.NET实现简单的聊天室

向右看齐 2021-09-16 23:20 349阅读 0赞

**目录**

Default.aspx

Default.aspx.cs

main.aspx

SendMessage.aspx

SendMessage.aspx.cs

ShowMessage.aspx

ShowMessage.aspx.cs

Users.aspx

Users.aspx .cs

运行结果

--------------------

![20181110233054298.png][]

# Default.aspx #

### Default.aspx.cs ###

protected void btnLogin_Click(object sender, EventArgs e)
        {
            bool IsChonfu = false;
            if (this.txtUsername.Text.Trim().Length < 1)
            {
                lblTs.Visible = true;
            }
            else
            {
                string UserIp = Request.UserHostAddress.ToString();
                Session["User"] = this.txtUsername.Text.Trim();
                string UserInfo = this.txtUsername.Text.Trim() + "--" + UserIp;
                ArrayList UserList;
               
                if (Application["UserList"] == null)
                {
                    UserList = new ArrayList();
                    UserList.Add(UserInfo);
                    Application["UserList"] = UserList;
                    Response.Redirect("main.aspx");
                }
                else
                {
                    
                    UserList = (ArrayList)Application["UserList"];
                    
                    for (int i = 0; i <UserList.Count; i++)
                    {
                        if (UserInfo==UserList[i].ToString())
                        {
                            IsChonfu = true;
                        }
                        else
                        {
                            IsChonfu = false;
                        }
                    }
                    if (IsChonfu==false)
                    {
                        UserList.Add(UserInfo);
                    }
                    Application["UserList"] = UserList;
                    Response.Redirect("main.aspx");
                }
            }
        }

# main.aspx #

<html xmlns="http://www.w3.org/1999/xhtml">
    <head runat="server">
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
        <title>聊天室主页</title>
        <style type="text/css">
    #iframe1{left:0px;width:1000px;height:400px;}
    #iframe2{right:0px;height:400px}
    #iframe3{bottom:0px;width:1200px;}
        </style>
    </head>
    
    <body>
        <form id="form1" runat="server">
            <div id="div1">
                <iframe id="iframe1" src="ShowMessage.aspx"></iframe> 
                <iframe id="iframe2" src="Users.aspx"></iframe>
                <iframe id="iframe3" src="SendMessage.aspx"></iframe>
            </div>
            
        </form>
    </body>
    </html>

### main.aspx ###

protected void Page_Load(object sender, EventArgs e)
        {
            if (Session["User"] == null)
            {
                Response.Redirect("Default.aspx");
            }
        }

# SendMessage.aspx #

### SendMessage.aspx.cs  ###

protected void Page_Load(object sender, EventArgs e)
        {
            if (Session["User"] == null)
            {
                Response.Redirect("Default.aspx");
            }
    
        }
        protected void btnSend_Click1(object sender, EventArgs e)
        {
            ArrayList MessageList = new ArrayList();
            string SendUser = Session["User"].ToString();
            string SendMessage = this.txtMessage.Text;
            string SendTime = DateTime.Now.ToString();
            string Message = SendUser + "于" + SendTime + "说：" + SendMessage + "<br><br>";
            if (Application["MessageList"] == null)
            {
                MessageList.Add(Message);
                Application["MessageList"] = MessageList;
            }
            else
            {
                MessageList = (ArrayList)Application["MessageList"];
                MessageList.Add(Message);
                Application["MessageList"] = MessageList;
            }
            this.txtMessage.Text = "";
            this.txtMessage.Focus();
        }
        protected void btnDeleteMessage_Click(object sender, EventArgs e)
        {
            Application.Remove("MessageList");
        }
        protected void btnDeleteUsers_Click1(object sender, EventArgs e)
        {
            Application.Remove("UserList");
            Response.Redirect("Default.aspx");
    
        }

# ShowMessage.aspx #

<head runat="server">
    <meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
        <title>聊天室</title>
         <style type="text/css">
            body,td,th {
                font-size: 16px;
                color:#FF0000;
                font-weight:bold;
                padding:inherit;
            }
        </style>
    </head>
    <body>
        <script>setTimeout("location.href='ShowMessage.aspx'",900)</script>
        <form id="form1" runat="server">
            <div>
                        <%
                    ArrayList MessageList = new ArrayList();
                    if(Application["MessageList"]==null)
                    {
                        Response.Write("暂无聊天信息");
                    }
                    else
                    {
                        MessageList = (ArrayList)Application["MessageList"];
                        for(int i=0;i<MessageList.Count; i++)
                        {
                            Response.Write(MessageList[i]);
                        }
                    }
                        %>
            </div>
         </form>
    </body>

### ShowMessage.aspx.cs ###

protected void Page_Load(object sender, EventArgs e)
        {
            if (Session["User"] == null)
            {
                Response.Redirect("Default.aspx");
            }
        }

# Users.aspx  #

### Users.aspx .cs ###

protected void Page_Load(object sender, EventArgs e)
        {
            if (Session["User"] == null)
            {
                Response.Redirect("Default.aspx");
            }
        }

# 运行结果 #

![20181110234324876.png][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzQwMzIzMjU2_size_16_color_FFFFFF_t_70][]

[20181110233054298.png]: /images/20210725/ee92fc034ae1454fbc6886df759972fa.png
[20181110234324876.png]: /images/20210725/35a53742a422481f9cb3f7191c1dca5e.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3FxXzQwMzIzMjU2_size_16_color_FFFFFF_t_70]: /images/20210725/8d4b7250895848eea80dad0e66afe8a3.png