asp.net中的vb7中如何使用socket作一个传送时间的server

利用Socket 可以编写一个 向 客户端传送 时间的 一个程序，现在他还只能向
源代码网推荐固定的客户端 传送时间，我打算过几天 写一个 可以向 浏览器传送 时间的一个程序
源代码网推荐请大家随时注意我的站点的更新情况。。。
源代码网推荐Imports System
源代码网推荐Imports System.Net
源代码网推荐Imports System.Net.Sockets
源代码网推荐Imports System.Text

Public Class DateTimeServer
源代码网推荐Public Shared Sub temp()
源代码网推荐System.Console.WriteLine("hello")
源代码网推荐Console.Writeline("Hello ")
源代码网推荐End Sub

Public Shared Sub Main()
源代码网推荐Dim now As Date
源代码网推荐Dim strDateLine As String
源代码网推荐Dim ASCII As Encoding = Encoding.ASCII

Dim tcpl As New TCPListener(13) "listen on port 13

tcpl.Start()

Console.WriteLine("Waiting for clients to connect")
源代码网推荐Console.WriteLine("Press Ctrl+c to Quit...")

While (True)
源代码网推荐" Accept will block until someone connects
源代码网推荐Dim s As Socket = tcpl.Accept()

" Get the current date and time then concatenate it
源代码网推荐" into a string
源代码网推荐now = DateTime.Now
源代码网推荐strDateLine = now.ToShortDateString() + " " + now.ToLongTimeString()

" Convert the string to a Byte Array and send it
源代码网推荐Dim byteDateLine() As Byte = ASCII.GetBytes(strDateLine.ToCharArray())
源代码网推荐s.Send(byteDateLine, byteDateLine.Length, 0)
源代码网推荐Console.WriteLine("Sent " + strDateLine)
源代码网推荐End While
源代码网推荐End Sub
源代码网推荐End Class