用ASP建造自己的聊天室

聊天室想必你一定去過吧，但想不想建立自己的聊天室呢？其實這一點都不難，Active Server Script提供了Application對象和Session對象，Application對象代表了一個Active Server應用程式，也就是一個Web網頁，Session對象則表示一個使用者，代表一個使用者對這個頁面的一次訪問，通過Application對象可以讓訪問它的所有使用者共用資訊，並可以在Web伺服器運行期間持久地儲存資料，而Session對象也可以在使用者的一次訪問期間持久地保持資料，利用這兩個對象，就可以十分方便地建造自己的Chat應用程式。
---- 一、Application對象：
---- 1．屬性：Application對象沒有內建的屬性，但使用者可以定義自己的屬性：
---- Application(“屬性名稱”)=值，一旦分配了屬性，它就會一直存在，直到Web伺服器關閉服務，而且它能被所有使用者讀取，所以可以用它在使用者之間發送談話內容。
---- 2．方法：當兩個使用者同時對Application屬性的值進行寫入操作時，會出現一方的修改被另一方的操作直接覆蓋掉的情況，為了避免這種現象，使用者可以調用Lock方法進行鎖定，這樣只有目前使用者才能夠對Application的屬性進行操作，使用者完成操作後調用Unlock方法解鎖，使得其他使用者也可以修改Application的屬性。
---- 3．事件：建立Active Server應用程式需要在Web伺服器上存放應用程式的虛擬主目錄下建立Global.asa檔案，它含有Application對象和Session對象的事件處理常式，通常，Application_Onstart事件用來定義應用級的屬性。
---- 二、建立一個Chat應用程式：程式運行時如下圖所示(略)
---- 1．設定應用程式的變數：這裡需建立兩個應用程式級的變數，gchars數組用來存放使用者的談話內容，gcounter用做計數器，控制頁面的顯示行數，在這裡我們讓頁面最多顯示最近的10行談話內容。當應用程式啟動時這些變數必須進行初始化，所以它們的建立都要在Global.asa檔案中的Application_onstart事件中：
< script language="vbscript" runat="server" >
sub application_onstart()
dim lchars(10)
application("gchars")=lchars
application("gcounter")=0
end sub
< /script >
---- 2．確定處理ASP的方式：當使用者第一次請求這個ASP檔案時，用的是GET方法，然後，當使用者輸入完談話內容後提交時用的是POST方法，在這裡表單是向自身提交的，所以這個ASP檔案會被再次請求，我們通過測試Request . ServerVariales(“Request_Method”)變數來確定檔案被請求的方式：IF Request . ServerVariales(“Request_Method”)=“POST” then