• 大小: 6KB
    文件类型: .rar
    金币: 1
    下载: 0 次
    发布日期: 2021-06-17
  • 语言: 其他
  • 标签: vs  

资源简介

这是一个基于 visual studio开发的在线聊天室,通过登录进入聊天室,可显示当前在线人数,发言人的姓名及内容

资源截图

代码片段和文件信息

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;

public partial class _Default : System.Web.UI.Page
{
    
    protected void Page_Load(object sender EventArgs e)
    {
        Label1.Text = “服务器IP地址:“ + Request.ServerVariables[“Local_ADDR“];
        Label2.Text = “客服端IP地址:“ + Request.ServerVariables[“Remote_ADDR“];
        if(Session[“user“] != null)

        { Response.Redirect(“ChatRoom.htm“);}
    }
    protected void Button1_Click(object sender EventArgs e)
    {
        Session[“user“] = TextBox1.Text;
        Application.Lock();
        Application[“visitor“] = (int)Application[“visitor“] + 1;
        Application[“message“] = “欢迎“ + TextBox1.Text + “进入聊天室“;
        Response.Redirect(“ChatRoom.htm“);
        Application.UnLock();
     /* string  name;
   Response.Redirect(“ChatRoom“);
     Session[“name“]=this.TextBox1.Text;
      Application.Lock();
      int num;
     string zs_name;
     string[] user;
    num = int.Parse(Application[“userNum“].ToString());
    if (TextBox1.Text == ““)
    {
        Response.Write(“ript> alert(“用户名不能为“) ript>“);


    }
        else
    {
        name = TextBox1.Text.Trim();
        zs_name =Application[“user“].ToString();
        user = zs_name.Split(‘‘);
        for(int i=0;i <= num - 1;i++)
        {
            if(name == user[i].Trim())
            {
                int judge = 1;
                Response.Redirect(“Default.aspx?value=“ +judge);

            }
        }
        if(num == 0)
            Application[“user“] = name.ToString();
    }*/

           
    }
}

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        405  2009-01-01 03:22  web\ChatRoom.htm

     文件       4320  2009-01-01 03:33  web\Default.aspx

     文件       1754  2009-01-01 03:23  web\Default.aspx.cs

     文件       1717  2009-01-01 03:31  web\Display.aspx

     文件        410  2009-01-01 03:29  web\Display.aspx.cs

     文件       2035  2009-01-01 03:29  web\Global.asax

     文件       2021  2009-01-01 03:30  web\Message.aspx

     文件       1290  2009-01-01 03:29  web\Message.aspx.cs

     文件        145  2014-12-24 09:54  web\Web.config

     目录          0  2014-12-16 11:30  web

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

                14097                    10


评论

共有 条评论