File 與 Log #2----訪客計數器（用.txt檔案來記錄）

File 與 Log #2----訪客計數器（用.txt檔案來記錄）


以下是即將發表的新書內容：
網站的訪客計數器，也可以用檔案的方式來撰寫。這支程式（Counter.aspx）很簡單也很短，就算您看不懂程式碼，直接 Copy過去用也可以執行。而且執行的結果是以圖片的方式來呈現數字


數字圖片，放在本章範例的 image目錄底下。例如：1的圖片，就名為1lcdb0,gif。2的圖片，就名為2lcdb0,gif……以此類推。

01 Imports ...System.IO
02
03
04
05 Partial Class _Book_My_Files_Counter
06
07 Inherits System.Web.UI.Page
08
09
10
11 Protected Sub Page_Load() Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
12
13 '====讀取檔案 (務必修改這個檔案的權限，需要「寫入」的權限)====
14
15 Dim sr As New StreamReader(Server.MapPath("counter.txt"))
16
17
18
19 '--把檔案內, 原本的訪客人數[加一]
20
21 Dim visitors As String = sr.ReadLine()
22
23 visitors = CInt(visitors) + 1
24
25
26
27 '--把訪客人數（數字） 轉換成 [圖片]展示在畫面上
28
29 Dim Length As Integer = Len(visitors) '--計算訪客人數的[字串長度]
30
31 Dim strURL As String = ""
32
33
34
35 While Length >= 1
36
37 '--訪客人數的每一位數字，都用圖片來呈現。
38
39 strURL = "" & strURL
40
41 Length = Length - 1
42
43 End While
44
45 sr.Close()
46 sr.Dispose()
47
48
49
50 '====寫入檔案，紀錄最新的訪客人數==================
51
52 Dim sw As New StreamWriter(Server.MapPath("counter.txt"))
53
54 sw.WriteLine(visitors) '--找不到檔案也不會出現錯誤訊息，而且會自動新增一個檔案。
55
56 sw.Close()
57 sw.Dispose()
58
59
60 Label1.Text = strURL
61
62 End Sub
63
64 End Class

上面的程式中，比較困難的是 While迴圈的部份。假設訪客人數（visitors）為 999998，我們必須先確定這字串的長度為6（Len(visitors)）。然後一個一個地把數字，用圖片的HTML碼（）來取代。
我們用一個文字檔來進行記錄，把訪客的參觀數字，記錄在這個檔案（counter.txt）裡面。重點是：務必把這個檔案的權限，設定為「可寫入」。這樣才能每次累計加一，記錄訪客人數。

HTML用來展示圖片的標籤，寫法是：
本範例counter.aspx的後置程式碼很簡單，裡面只作了兩件事而已。第一是讀取counter.txt檔案，取出原本的訪客人數。第二，是把人數加一，然後以圖片方式展現在畫面上，再把更新後的數字寫入檔案。