This article describes how to create a chat application. In this application, a total of six pages are used.
This page has three frames. The first frame will show the user information and the typed messages (left side). The right side frame will show how many users are online now and their names. The bottom side of the frame will show a textbox with a logout button.
There are three types of objects to store the user information and data:
Session object is used for storing a particular user's information in the server side. The
Cookies object is used for storing a particular user's information in a particular client side. And, the
Application object can be used across the network.
In this application, I have used the
Session object for the login method.
This will create a
Session object in the server side. We can check the user's credentials by using this
After checking the user's credentials, the application object is created like this:
Application("Chat")=Application("Chat") & name & "$"
If the user types something in the textbox, the form gets refreshed and the
Application("chat") value is changed with the new value, and the list of
Application("chat") arrays are shown in the main display page.
Th user's input will displayed by using the auto-refresh method in the meta HTTP object.
<meta http-equiv="refresh" content="4">
This will make the page refresh.
List of Users
Application("Users") is used to count the number of users online. The count is taken by splitting the special characters in
This logout page is used to clear the session of the user and remove the user name from
application("users"). So, the user can close his session from the chat. For private chat,
application(user & session("user")) is used to differentiate the other users from the current user.
The left side of the main page shows all the users; when we click on a user, the private page will show a new page with the requested user.
if Con.State = ConnectionState.Open Then Con.Close()
name = rdname(0)
Con.State = ConnectionState.Open Then Con.Close()Dim cmd_name As New SqlCommand(
"Select Emp_Name From UserAccounts_Master Where UserId = '" & Session("UserId") & "'",
Con)Dim rdname As SqlDataReader = cmd_name.ExecuteReaderWhile rdname.ReadEnd While
If name <> "" Then If Application("invite") = name Then
Application("invite") = " "
focusString) 'Session.Timeout = 20000 End If End If
Try this. Thanks!