HitCounter.Txt

Global.asax

Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' åäÇ äßÊÈ ÇáßæÏ
End Sub

'ÌáÈ ÑÞã ÚÏÇÏ ÇáÒæÇÑ ÇáãæÌæÏ Ýí ãáÝ ÚÏÇÏ ÇáÒæÇÑ HitCounter
        'æãä Ëã ÒíÇÏÉ ÇáÑÞã ÇáãæÌæÏ Ýí ÇáãáÝ ÑÞã æÇÍÏ æÇÚÇÏÉ ÊÎÒíä ÇáÑÞã ÇáÌÏíÏ

        'ÌáÈ ÚÏÏ ÇáÒæÇÑ ÇáãæÌæÏ ÍÇáíÇ Ýí ÇáãáÝ æÊÎÒíå Ýí ãÊÛíÑ ãä äæÚ ÑÞã Øæíá

        Dim HitCounterR As New IO.StreamReader("C:\HitCounter.txt")
        Dim HitCounter As Long = CLng(HitCounterR.ReadToEnd())
        HitCounterR.Close()

        'ÒíÇÏÉ ÑÞã æÇÍÏ Úáì ÇáãÊÛíÑ ÇáãæÌæÏ ÈÚÏÏ ÇáÒæÇÄ
        HitCounter = HitCounter + 1

        'ÇÚÇÏÉ ÊÎÒíä ÇáÑÞã ÇáÌÏíÏ áÚÏÏ ÇáÒæÇÑ Ýí ÇáãáÝ ÇáäÕí
        Dim HitCounterW As New IO.StreamWriter("C:\HitCounter.txt")
        HitCounterW.Write(HitCounter)
        HitCounterW.Close()

Dim HitCounter As Long = CLng(HitCounterR.ReadToEnd())

Dim HitCounterR As New IO.StreamReader("C:\HitCounter.txt")

Dim HitCounterW As New IO.StreamWriter("C:\HitCounter.txt")

hitcounter.aspx

Private Sub Page_Load

'ÌáÈ ÚÏÏ ÇáÒæÇÑ ÇáãæÌæÏ ÍÇáíÇ Ýí ÇáãáÝ æÊÎÒíå Ýí ãÊÛíÑ
        Dim HitCounterR As New IO.StreamReader(SitePath & "\HitCounter.txt")
        Dim HitCounter As String = HitCounterR.ReadToEnd()
        HitCounterR.Close()

HitCounter

'ÚÑÖ ÚÏÇÏ ÇáÒæÇÑ ÈÇÓáæÈ ÕæÑÉ ãÑÓæãå ÈÔßá ããíÒ
        Dim imgNew As System.Drawing.Image = New Bitmap(1, 1)
        Dim gc As Graphics = Graphics.FromImage(imgNew)
        Dim font As Font = New Font("Verdana", 12, FontStyle.Underline)
        Dim size As SizeF = gc.MeasureString(HitCounter, font)
        Dim width As Integer = CType(size.Width, Integer) + 1
        Dim height As Integer = CType(size.Height, Integer) + 1
        imgNew = New Bitmap(width, height)
        gc = Graphics.FromImage(imgNew)
        gc.FillRectangle(Brushes.White, 0, 0, width, height)
        gc.DrawString(HitCounter, font, Brushes.Black, 0, 0)
        imgNew.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Gif)

 HitCounter

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here

        'ÌáÈ ÚÏÏ ÇáÒæÇÑ ÇáãæÌæÏ ÍÇáíÇ Ýí ÇáãáÝ æÊÎÒíå Ýí ãÊÛíÑ
        Dim HitCounterR As New IO.StreamReader(SitePath & "\HitCounter.txt")
        Dim HitCounter As String = HitCounterR.ReadToEnd()
        HitCounterR.Close()

        'ÚÑÖ ÚÏÇÏ ÇáÒæÇÑ ÈÇÓáæÈ ÕæÑÉ ãÑÓæãå ÈÔßá ããíÒ
        Dim imgNew As System.Drawing.Image = New Bitmap(1, 1)
        Dim gc As Graphics = Graphics.FromImage(imgNew)
        Dim font As Font = New Font("Verdana", 12, FontStyle.Underline)
        Dim size As SizeF = gc.MeasureString(HitCounter, font)
        Dim width As Integer = CType(size.Width, Integer) + 1
        Dim height As Integer = CType(size.Height, Integer) + 1
        imgNew = New Bitmap(width, height)
        gc = Graphics.FromImage(imgNew)
        gc.FillRectangle(Brushes.White, 0, 0, width, height)
        gc.DrawString(HitCounter, font, Brushes.Black, 0, 0)
        imgNew.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Gif)


    End Sub