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 '一个用户访问进行记数加1 Application.Lock Application("OnLine") = Application("OnLine") + 1 Application.Unlock End Sub Sub Session_OnEnd '一个用户进程的结束,记数减1 (P.S.如果没有该事件程序,则执行的就是页面访问程序了。) 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%> |
上一篇:ASP编码优化技巧8则