(global.asa)可以幫我註解這個程式嗎？

Question

可以補問一個問題嗎??
那我若是要在其他頁,看到目前上線的客戶名單,
可以寫<%= application("OnlineUser_LogOut")%>嗎？？

Answer 1

Sub Application_OnStart  當 application 建立時，會觸發下列動作Session.Timeout = 10     Application 的存留時間Application.Lock         把 application 鎖住Application("OnlineUser_LogOut") = ""   把 onlineUser_logout 的值變成空白Application.UnLock   解除 application 鎖定狀態End SubSub Application_OnEnd   當 application 結束時觸發下列程式End SubSub Session_OnStart  當 session 建立時，觸發下列程式Set conn = Server.CreateObject("ADODB.Connection") 建立ADODB連線元件DBPath = Server.MapPath("member.mdb")  設定資料庫路徑與檔名conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath  開啟連線Set rs = Server.CreateObject("ADODB.Recordset")  建立資料叢集元件rs.Open "select * from member", conn,1,3  依照條件開啟資料庫rs.AddNew   新增一筆資料rs("sessionid")= Session.SessionID  值填入對應欄位rs("onoff") = "on"  值填入對應欄位rs.update  更新資料rs.close   關閉資料叢集set rs = NOTHING  釋放資料叢集set conn = NOTHING  釋放連結End SubSub Session_OnEnd  當 session結束時觸發Application.LockApplication("OnlineUser_LogOut") = Session.SessionID  寫入session 資料Application.UnLockEnd Sub