File 与 Log #2----[图片版]访客计数器（用.txt档案来记录）

http://www.dotblogs.com.tw/mis2000lab/archive/2008/05/19/4035.aspx

以下是发表的新书内容：

网站的访客计数器，也可以用档案的方式来撰写。这支程序（Counter.aspx）很简单也很短，就算您看不懂程序代码，直接 Copy过去用也可以执行。

而且执行的结果是以图片的方式来呈现数字

本文范例已经收录在书本的「第十七章 资料流 与 I/O」！

ASP.NET案例精编（清华大学出版社 / 作者MIS2000Lab）

http://www.china-pub.com/46063

2009/5/15上市

市场价：￥59.80 RMB（人民幣）

ASP.NET案例精编--适用于VS2005/2008

数字图片，放在本章范例的 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 = "<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专题实务（文魁出版）