以下是發表的新書內容：

網站的訪客計數器，也可以用檔案的方式來撰寫。這支程式（Counter.aspx）很簡單也很短，就算您看不懂程式碼，直接 Copy過去用也可以執行。

而且執行的結果是以圖片的方式來呈現數字

本文範例已經收錄在書本的「第十七章  資料流 與 I/O」！ 

題名:　  ASP.NET專題實務　

[廣告&團購] 新書上市-- ASP.NET專題實務（文魁出版）

本書目錄：http://www.kingsinfo.com.tw/item_detail.asp?pro_id=7085 

ISBN:　978-986-204-238-0　

著者:　周棟祥博士, 吳進魯

MIS2000 Lab. 編著　

 

審稿教授：南台科大 吳盛博士

出版者:　文魁資訊 http://www.kingsinfo.com.tw出版時間:　2008.07　
版次:　初版　裝訂:　平裝附光碟片　
分類號:　312.1695　標題:　網頁設計 , 全球資訊網　

 

數字圖片，放在本章範例的 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(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) & "lcdb0.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

 

 上面的程式中，比較困難的是 While迴圈的部份。假設訪客人數（visitors）為 999998，我們必須先確定這字串的長度為6（Len(visitors)）。然後一個一個地把數字，用圖片的HTML碼（<img src=”…”>）來取代。

我們用一個文字檔來進行記錄，把訪客的參觀數字，記錄在這個檔案（counter.txt）裡面。重點是：務必把這個檔案的權限，設定為「可寫入」。這樣才能每次累計加一，記錄訪客人數。
 

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

 

 本文內容與範例，在我出版的新書中，有更詳盡的描述。請參考：[廣告&團購] 新書上市-- ASP.NET專題實務（文魁出版）

本文範例已經收錄在書本的「第十七章  資料流 與 I/O」！ 


 

 

......  寄信給我    mis2000lab (at) 雅虎.com.台灣 ................................................................................................................
ASP.NET專題實務  （文魁出版，VB版 P8187 / C#版P09027）

              下集已經出版囉～～～ASP.NET專題實務II：範例應用與4.0新功能

.............................................................................................................. 寄信給我    mis2000lab (at) 雅虎.com.台灣 ........