ASP.NET專題實務 WebForm + MVC線上教學影片 -- MIS2000Lab.

MIS2000 Lab.已推出20餘本電腦書，曾任資策會專任講師與微軟MVP。自.NET 1.x起，已出版15本ASP.NET (Web Form)書籍，也有遠距教學 線上教程 教學影片

2008-05-19

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

訪客計數器，用 .txt檔案來做紀錄。
順便學習ASP.NET的 File與I/O Stream的用法。





以下是發表的新書內容：

網站的訪客計數器，也可以用檔案的方式來撰寫。這支程式（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
                sr.Close()
                sr.Dispose() 
24
25   
26
27         '--把訪客人數（數字） 轉換成 [圖片]展示在畫面上
28
29         Dim Length As Integer = Len(visitors)  '--計算訪客人數的[字串長度]，可用 visitors.Length取代 
30
31         Dim strURL As String = ""
32
33   
34
35         While Length >= 1
36
37            '--訪客人數的每一位數字，都用圖片來呈現。 底下的 Mid()函數可用 .SubString()取代
38
39 strURL = "<img src='image/" & Mid(visitors, Length, 1) & "lcdb0.gif'>" & strURL
40
41 Length = Length - 1
42
43         End While
44
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」！ 

 

 

本範例下一篇文章：

File 與 Log #3--動態加入控制項，[圖片版]訪客計數器（用.txt檔案來記錄）

 

 

 

 

 

 

我將思想傳授他人， 他人之所得，亦無損於我之所有；

猶如一人以我的燭火點燭，光亮與他同在，我卻不因此身處黑暗。----Thomas Jefferson

線上課程教學，遠距教學 (Web Form 約 51hr)  https://dotblogs.com.tw/mis2000lab/2016/02/01/aspnet_online_learning_distance_education_VS2015

線上課程教學，遠距教學 (ASP.NET MVC 約 140hr)  https://dotblogs.com.tw/mis2000lab/2018/08/14/ASPnet_MVC_Online_Learning_MIS2000Lab

 

寫信給我，不要私訊 --  mis2000lab (at) yahoo.com.tw  或  school (at) mis2000lab.net

 (1) 第一天 ASP.NET MVC5 完整影片（5.5小時 / .NET 4.x版）免費試聽。影片 https://youtu.be/9spaHik87-A 

 (2) 第一天 ASP.NET Core MVC 完整影片（3小時 / .NET Core 6.0~8.0）免費試聽。影片 https://youtu.be/TSmwpT-Bx4I 

[學員感言] mis2000lab課程評價 - ASP.NET MVC , WebForm  。 https://mis2000lab.medium.com/%E5%AD%B8%E5%93%A1%E6%84%9F%E8%A8%80-mis2000lab%E8%AA%B2%E7%A8%8B%E8%A9%95%E5%83%B9-asp-net-mvc-webform-77903ce9680b  


ASP.NET遠距教學、線上課程（Web Form + MVC）。 第一天課程， "完整" 試聽。 

.........   facebook社團   https://www.facebook.com/mis2000lab   ......................

.........  YouTube (ASP.NET) 線上教學影片  https://www.youtube.com/channel/UC6IPPf6tvsNG8zX3u1LddvA/

 

Blog文章 "附的範例" 無法下載，請看 https://dotblogs.com.tw/mis2000lab/2016/03/14/2008_2015_mis2000lab_sample_download

請看我們的「售後服務」範圍（嚴格認定）。

...................................................................................................................................................... 

ASP.NET MVC  => .NET Core MVC 線上教學  ...... 第一天課程 完整內容 "免費"讓您評估 / 試聽

[遠距教學、教學影片] ASP.NET (Web Form) 課程 上線了！MIS2000Lab.主講   事先錄好的影片，並非上課側錄！   觀看時，有如「一對一」面對面講課。

 

 

 

贊助商連結

BloggerAds