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 = "<IMG SRC='image/" & Mid(visitors, Length, 1) & "yf.gif'>" & 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