ASP.NET Counter

Jeg ved godt det er VB.NET, men det er hurtigt at skrive om:
------------------------------
    Public Class WebStat
        Function HitCount(ByVal path As String) As String
            Dim objReader As StreamReader
            Dim objWriter As StreamWriter
            Dim sFile As String
            Dim sCount As String
            Dim iCount As Integer

            Try
                sFile = path & "counter.txt"

                If Not File.Exists(sFile) Then
                    objWriter = File.CreateText(sFile)
                    objWriter.Write("0")
                    objWriter.Close()
                End If

                objReader = File.OpenText(sFile)
                sCount = objReader.ReadToEnd()
                objReader.Close()
                iCount = CInt(sCount)
                iCount = iCount + 1
                sCount = iCount.ToString

                objWriter = File.CreateText(sFile)
                objWriter.Write(sCount)
                objWriter.Close()

            Catch Ex As Exception

                sCount = "[Count could not be obtained due to the following error]: " & Ex.Message

            Finally

            End Try
            HitCount = sCount
        End Function
    End Class
-----------
Funktionen kaldes fx. fra dit Session_OnStart event i Global.Asax:
Dim count As New WebStat
Session("VisitorNo") = count.HitCount(Server.Mappath(".").toString() & "\")
count = Nothing

Browser-typen kan du finde i Request.ServerVariables collectionen.

Tack så mycket.