SCRIPT LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart 'Application_OnStart 當任何客戶首次訪問該應用程序的首頁時運行 End Sub Sub Session_OnStart 'Session_OnStart 當客戶首次運行 ASP 應用程序中的任何一個頁面時運行 End Sub Sub Session_OnEnd 'Session_OnEnd 當一個客戶的會話超時或退出應用程序時運行 End Sub Sub Application_OnEnd 'Application_OnEnd 當該站點的 WEB 服務器關閉時運行 End Sub /SCRIPT> |
SCRIPT LANGUAGE="VBScript" RUNAT="Server"> Sub Session_OnStart '只要是用戶第一次登錄本站,則會跳轉到首頁 response.redirect("htp://www.cnbruce.com/") End Sub /SCRIPT> |
SCRIPT LANGUAGE=VBScript RUNAT=Server> Sub Application_onStart '初始值為0 Application("OnLine") = 0 End Sub Sub Session_onStart '一個用戶訪問進行記數(shù)加1 Application.Lock Application("OnLine") = Application("OnLine") + 1 Application.Unlock End Sub Sub Session_OnEnd '一個用戶進程的結束,記數(shù)減1 (P.S.如果沒有該事件程序,則執(zhí)行的就是頁面訪問程序了。) Application.Lock Application("OnLine") = Application("OnLine") - 1 Application.Unlock End Sub /SCRIPT> |
% if request.querystring("logout")="true" then session.Abandon() response.end end if %> 當前共有%=Application("OnLine")%>在線 a href="online.asp?logout=true">退出/a> |
% if request.querystring("logout")="true" then session.Abandon() response.end end if %> body onunload=javascript:window.open("exit.asp")> 當前共有%=Application("OnLine")%>在線 a href="online.asp?logout=true">退出/a> |
%session.Abandon()%> script> self.close() /script> |
SCRIPT LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart application("online")=0 End Sub Sub Session_OnStart End Sub Sub Session_OnEnd if session.contents("pass") then '判斷是否為登錄用戶的Session_OnEnd application.lock application("online")=application("online")-1 application.unlock end if End Sub Sub Application_OnEnd End Sub /SCRIPT> |
% if request.querystring("logout")="true" then session.Abandon() end if submitname=request.form("submit") if submitname="submit" then name=request.form("name") pwd=request.form("pwd") if name="cnbruce" and pwd="cnrose" then session("name")=name session("pass")=true else response.write "Error Name Or Pwd.a href='login.asp'>Back/a>" response.end end if application.lock application("online")=application("online")+1 application.unlock %> 當前注冊會員%=application("online")%>人。 a href="login.asp?logout=true">退出/a> %else%> form action="login.asp" method="post"> input type="text" name="name">br> input type="password" name="pwd">br> input type="submit" name="submit" value="submit"> %end if%> |