|
Public Class list
Inherits System.Web.UI.Page
#Region " Web Form Designer Generated Code "
'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
'NOTE: The following placeholder declaration is required by the Web Form Designer.
'Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Dim chat, link As String
Dim count, lastcount As Integer
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Session("name") = "" Then
Response.Redirect("logoff.aspx")
End If
chat = Application("chat")
count = chat.Length
chat = "<b>" & chat & "</b>"
chat = Replace(chat, "�", "<br>")
Response.Write("<HTML>")
Response.Write("<HEAD>")
Response.Write("<TITLE>Chatters online</TITLE>")
Response.Write("<META HTTP-EQUIV='REFRESH' CONTENT='2;list.aspx'>")
Response.Write("</HEAD>")
Response.Write("<BODY BGCOLOR='#6699CC' TEXT='#FFFFFF'>")
Response.Write("<CENTER>")
Response.Write("<FONT FACE='ARIAL' SIZE='2'>")
Response.Write("<B>Chatters")
Response.Write("<BR>online:</B>")
Response.Write("<BR><BR><td>")
'link = "<a href='private.aspx?client="
'link &= chat & "'>" & chat & "</a><br>"
Response.Write(chat)
Response.Write("</td></FONT>")
Response.Write("</CENTER>")
Response.Write("</BODY>")
Response.Write("</HTML>")
Response.End()
show:
Response.Write("<script language='javascript'>{window.alert('" & Application("chat") & " is online now') } </script>")
End Sub
End Class
|
By viewing downloads associated with this article you agree to the Terms of Service and the article's licence.
If a file you wish to view isn't highlighted, and is a text file (not binary), please
let us know and we'll add colourisation support for it.