網路聊天室，介紹 Application與Session的最佳案例

2008-04-25

很多人一聽到聊天室這個範例，就嗤之以鼻。

沒錯，這個範例很簡單，網路上也很多公開的程式碼寫的很棒！

但是，對於學生或是初學者來說，該怎麼介紹、解釋Application與 Session給他們瞭解？

網路聊天室，是一個最適合用來解說 Application與 Session的範例了。作法並不難，但卻可以讓讀者立刻瞭解Application與 Session兩者的差異。

很多人一聽到聊天室這個範例，就嗤之以鼻。

沒錯，這個範例很簡單，網路上也很多公開的程式碼寫的很棒！

但是，對於學生或是初學者來說，該怎麼介紹、解釋Application與 Session給他們瞭解？

網路聊天室，是一個最適合用來解說 Application與 Session的範例了。作法並不難，但卻可以讓讀者立刻瞭解Application與 Session兩者的差異。

下面文章，是我即將推出的新書內容，分享一些給大家參考：

Application----全網站的人都可以看見，所以發表在聊天室的訊息，將透過 Application給大家瀏覽。
Session----鎖定單一使用者的瀏覽器環境，所以適合用存放自己的個人資訊，例如：暱稱、喜歡的文字顏色等等。

以下是廣告----

題名:	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.06
版次:	初版	裝訂:	平裝附光碟片
分類號:	312.1695	標題:	網頁設計 , 全球資訊網

這個聊天室的範例，只有少少的兩支程式，外加一個 Global.asax檔案。

1 Case_1_Login.aspx----讓使用者登入、記錄他的暱稱、文字顏色這兩種資訊。
2 Case_2.aspx----聊天室的主程式。
3 Global.asax----事先設定好 Application的狀態。

======================================================
因為聊天室裡面人多嘴雜，大家發言可能很踴躍。所以Global.asax檔案裡面，

我們預先設定了 Application(“A1”) ~ Application(“A15”) 共十五個Application來存放這些留言。如果讀者覺得不夠用，可以修改成 20或25都可以。

Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
' 應用程式啟動時執行的程式碼
       For i = 1 To 15
            Application("A" & i) = ""
       Next
End Sub

….以下省略….

======================================================
接下來，設計 Case_1_Login.aspx。

這個畫面很簡單，只是給使用者輸入帳號與個人偏好而已。這些個人偏好，因人而異，所以我們必須用Session()來存放這些資料。

為了避免無名氏登入鬧場，我們也使用了驗證控制項，避免有人不填寫名稱，就進入聊天室。

而且，每個人可以選自己喜歡的字體顏色，在聊天室裡面發言。

Case_1_Login.aspx的後置程式碼，只有短短三行而已。
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
       Session("my_color") = DropDownList1.Items(i).Value
      Session("my_name") = TextBox1.Text
    ‘—註解：使用者輸入帳號與文字顏色而已。這些個人偏好，因人而異，所以我們必須用Session()來存放這些資料。

       Response.Redirect("Case_2.aspx")
End Sub

======================================================
聊天室的主程式（Case_2.aspx），功能也很簡單。

裡面只有一個 Label控制項（用來展現大家的留言），另外還有一個輸入留言的 TextBox控制項而已。

後置程式碼分成幾個部份，我們逐一解說會比較清楚。不過大部分的程式都是雷同的。首先是 Page_Load()事件，在此我們作三件事：

第一，透過Session的判別，來防堵有人直接用URL網址連上這網頁。
第二，第一次登入聊天室的人，會看見目前的所有討論留言。 List_All()這段副程式是我們自己寫的，因為這一段很常用到，為了程式的可讀性，我們就把這一段獨立寫成副程式。
第三，為這個新加入的人，寫一段「歡迎詞」。提醒大家，有一位新人加入聊天室。

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Session("my_name") = "" Then
   '====1. 防止有人沒註冊就闖入===========
   Response.Write("抱歉，請用正當程序，進行登入！...... )
   Response.Write(請您回到--Case_1_Login.aspx登入畫面")
   Response.End()
End If

If Not Page.IsPostBack Then
   List_All() '====2. 第一次進到聊天室，會立刻出現目前所有人的談話內容====

   '====3. 歡迎新夥伴加入====
   Application.Lock()
   '--註解：如果要更動Application裡面的資料，務必事先進行鎖定！

   Dim my_Label As New StringBuilder
   For i = 15 To 2 Step -1
      Application("A" & i) = Application("A" & (i - 1))
      my_Label.Append(Application("A" & i).ToString)
   Next

'==== 上面這段FOR迴圈，是聊天室程式裡面的重點！ ====
' 每當有人發表一則留言，原本畫面上的留言，就會向上推擠。
' 最新的留言，總會出現在畫面下方的最後一筆。
' 為了良好的效率，這裡我們改用 StringBuilder來處理字串。

    Application("A1") = Session("my_name") & " " & FormatDateTime(Now, DateFormat.LongTime) & " 說： ====Hello~Everybody~歡迎新夥伴加入！！===="
    my_Label.Append(Application("A1"))
    Label1.Text = my_Label.ToString

    Application.UnLock()
End If

End Sub

‘-- 把常用的程式片段，獨立寫成一個副程式。以便常常呼叫，可讓程式”可讀性”提升。
Sub List_All() '====列出「目前」聊天室的所有談話內容====
     Dim chatroom As New StringBuilder
     For i = 15 To 1 Step -1
            chatroom.Append(Application("A" & i).ToString)
      Next

       Label1.Text = chatroom.ToString
End Sub

關於 application / Session，可以參考其他文章 ---- http://www.dotblogs.com.tw/jero/archive/2008/04/11/2870.aspx

[學員感言] 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.主講事先錄好的影片，並非上課側錄！觀看時，有如「一對一」面對面講課。

回首頁

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

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