最新的Web开发教程

×

ASP 教程

ASP 主页 ASP 介绍 ASP 安装 ASP 语法 ASP 变量 ASP 程序 ASP 表单 ASP Cookies ASP 会议 ASP 应用 ASP #包括 ASP Global.asa ASP 发电子邮件

VBScript 教程

VB 主页 VB 变量 VB 程序 VB 条件 VB 循环 VB 例子 VB 功能 VB 关键词

ASP 对象

ASP 响应 ASP 请求 ASP 应用 ASP 会议 ASP 服务器 ASP 错误 ASP 文件系统 ASP 文本流 ASP 驾驶 ASP 文件 ASP 文件 ASP 字典 ASP AdRotator ASP BrowserCap ASP 内容链接 ASP 内容肩 ASP 快速参考

ADO 教程

ADO 简介 ADO 连接 ADO 记录 ADO 显示 ADO 询问 ADO 分类 ADO 加 ADO 更新 ADO 删除 ADO 演示 ADO 加快

ADO 对象

ADO 命令 ADO 连接 ADO 错误 ADO 领域 ADO 参数 ADO 属性 ADO 记录 ADO 记录 ADO 流 ADO 数据类型

ASP and AJAX

AJAX 简介 AJAX ASP AJAX 数据库

ASP 例子

ASP 例子 ASP 测验

ASP的Session_OnStart和的Session_OnEnd事件

<完整的会话对象参考

Session_OnStart事件

当服务器创建一个会话发生Session_OnStart事件。

此事件放置在Global.asa文件。

Session_OnEnd事件

在会话结束时发生Session_OnEnd事件(abandoned or times out) 。

此事件放置在Global.asa文件。

Note: MapPath方法不能在的Session_OnEnd代码中使用。

句法

<script language="vbscript" runat="server">

Sub Session_OnStart
. . .
End Sub

Sub Session_OnEnd
. . .
End Sub

</script>

例子

Global.asa中：

<script language="vbscript" runat="server">

Sub Application_OnEnd()
Application("totvisitors")=Application("visitors")
End Sub

Sub Application_OnStart
Application("visitors")=0
End Sub

Sub Session_OnStart
Application.Lock
Application("visitors")=Application("visitors")+1
Application.UnLock
End Sub

Sub Session_OnEnd
Application.Lock
Application("visitors")=Application("visitors")-1
Application.UnLock
End Sub

</script>

要显示在ASP文件目前参观人数：

<html>
<head>
</head>
<body>
<p>
There are <%response.write(Application("visitors"))%>
online now!
</p>
</body>
</html>

<完整的会话对象参考