چت بااستفاده ASP.Net

سلام دوستان
كد يه چت روم ساده رو با استفاده از ASP.Net ميخواهم اگه كسي لطف كنه بزاره ممنون ميشم.
فقط زود!!!!:19:

azizam ye khordeh inkar gheyreh momkeneh midoni chera kheili darde sar dare bor ba java in kararo bokon

ba ASP.NET ke nemishe.
bayad ba JavaScript in karo bekoni.
ya ba componenthaye AJAX marboot be ASP.NET

با asp.net میشه چت روم ساخت .شما به چند textbox و button که می تونی همه را داخل table قرار بدهی و کدهای مربوطه را در کلاس بنویسی

کد های برنامه چت

Partial Class _Default

Inherits System.Web.UI.Page



Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Session("UserName") = Me.TextBox1.Text

Me.TextBox1.Enabled = False

Me.Button1.Enabled = False

Me.Button2.Enabled = True

End Sub



Public Property Messages() As ArrayList

Get

Return Application("Messages")

End Get

Set(ByVal value As ArrayList)

Application("Messages") = value

End Set

End Property



Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click



Dim mymessage As New Message(Session("UserName"), Me.TextBox2.Text, DateTime.Now)

Me.Messages.Add(mymessage)

Me.ShowMessages()



End Sub



Public Sub ShowMessages()

Me.Label1.Text = ""



If Me.Messages Is Nothing Or Me.Messages.Count = 0 Then

Else

For Each myMessage As Message In Me.Messages



Me.Label1.Text += "<br><font color=Red>[" + myMessage.Sender + "]:</font>" + myMessage.body + " @<Font size=1>" + myMessage.SendDate.TimeOfDay.ToString + "</font>"



Next

End If

End Sub



Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load



End Sub

End Class

کد های کلاس Message.vb

Imports Microsoft.VisualBasic



Public Class Message

Public Sender As String

Public body As String

Public SendDate As DateTime

Public Sub New(ByVal t As String, ByVal b As String, ByVal d As DateTime)

Me.Sender = t

Me.body = b

Me.SendDate = d

End Sub

Public Sub New()

End Sub

End Class

این شد چت looooooooooooool