2



　 　 大 家 好，今 天 我 又 要 和 大 家 一 起 来 学 习 ASP 了，最 近 很 多 朋 友 来 信 问 我，为 什 么 前 两 期 的 范 例 程 序 运 行 时 有 这 样 那 样 的 错。首 先，我 要 向 大 家 声 明，这 些 程 序 都 是 我 自 己 写 的，在 出“厂”前 都 经 过 合 格 检 验，绝 无“假 冒 伪 劣 产 品”。:) 由 于 程 序 中 使 用 了 cookie 记 录 客 户 信 息，所 以 如 果 你 在 浏 览 器 中 没 有 设 置 接 受 cookie 则 程 序 将 不 能 正 常 运 行。另 外，程 序 将 客 户 信 息 记 录 在 客 户 端 的 cookie 所 使 用 的 方 法 是 Response.Cookie，此 语 句 必 须 写 在 ASP 文 件 中 的 第 一 个 < HTML> 标 记 前，这 是 因 为 Cookie 是 作 为 HTTP 传 输 的 头 信 息 的 一 部 分 发 送 给 客 户 的，如 果 当 HTTP 报 头 信 息 已 经 传 输 给 客 户 后 再 使 用 Response.Cookie，将 出 现 以 下 错 误 :“HTTP 标 题 已 经 写 入 到 客 户 浏 览 器。任 何 HTTP 标 题 的 修 改 必 须 在 写 入 页 内 容 之 前。”，可 能 一 些 朋 友 在 剪 贴 程 序 的 时 候 没 有 注 意，打 乱 了 程 序 的 前 后 次 序 , 或 者 是 错 误 的 将 HTML 代 码 添 加 在 ASP 范 例 程 序 之 前，因 而 导 致 程 序 运 行 出 错。因 此，我 建 议 大 家 一 方 面 在 首 次 运 行 例 程 的 时 候 不 要 对 程 序 进 行 任 何 改 动，尽 量 在 看 懂 程 序 的 基 础 上 逐 步 改 进，另 一 方 面 在 运 行 ASP 程 序 时 至 少 要 在 浏 览 器 中 选 择 可 接 受 Cookie，否 则 一 旦 ASP 程 序 中 使 用 了 Cookie 或 Session，它 们 都 将 无 法 正 常 运 行。 



　　 下 面 我 来 向 大 家 介 绍 Global.asa 文 件 的 使 用 方 法。 



　　 什 么 是 Global.asa 文 件？它 其 实 是 一 个 可 选 文 件，程 序 编 写 者 可 以 在 该 文 件 中 指 定 事 件 脚 本，并 声 明 具 有 会 话 和 应 用 程 序 作 用 域 的 对 象。该 文 件 的 内 容 不 是 用 来 给 用 户 显 示 的，而 是 用 来 存 储 事 件 信 息 和 由 应 用 程 序 全 局 使 用 的 对 象。该 文 件 的 名 称 必 须 是 Global.asa 且 必 须 存 放 在 应 用 程 序 的 根 目 录 中。每 个 应 用 程 序 只 能 有 一 个 Global.asa 文 件。 



　　 在 Global.asa 文 件 中，如 果 包 含 的 脚 本 没 有 用 < SCRIPT> 标 记 封 装，或 定 义 的 对 象 没 有 会 话 或 应 用 程 序 作 用 域，则 服 务 器 将 返 回 错 误。我 们 可 以 用 任 何 支 持 脚 本 的 语 言 编 写 Global.asa 文 件 中 包 含 的 脚 本。如 果 多 个 事 件 使 用 同 一 种 脚 本 语 言，就 可 以 将 它 们 组 织 在 一 组 < SCRIPT> 标 记 中。 



　　 在 Global.asa 文 件 中 声 明 的 过 程 只 能 从 一 个 或 多 个 与 Application_OnStart、Application_OnEnd、Session_OnStart 和 Session_OnEnd 事 件 相 关 的 脚 本 中 调 用。在 基 于 ASP 的 应 用 程 序 的 ASP 页 中，它 们 是 不 可 用 的。如 果 要 在 应 用 程 序 之 间 共 享 过 程，可 在 单 独 的 文 件 中 声 明 这 些 过 程，然 后 使 用 服 务 器 端 包 容 (SSI) 语 句 将 该 文 件 包 含 在 调 用 该 过 程 的 ASP 程 序 中。通 常，包 含 文 件 的 扩 展 名 应 为 .inc。 



　　 下 面 是 一 个 很 标 准 的 Global.asa 文 件 : 

< SCRIPT LANGUAGE="VBScript" RUNAT="Server">

'Session_OnStart 当 客 户 首 次 运 行 ASP 应 用 程 序 中 的 任 何 一 个 页 面 时 运 行

'Session_OnEnd 当 一 个 客 户 的 会 话 超 时 或 退 出 应 用 程 序 时 运 行

'Application_OnStart 当 任 何 客 户 首 次 访 问 该 应 用 程 序 的 首 页 时 运 行

'Application_OnEnd 当 该 站 点 的 WEB 服 务 器 关 闭 时 运 行

< /SCRIPT>



< SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart

VisitorCountFilename = Server.MapPath ("/ex2") + "\VisitCount.txt"

Set FileObject = Server.CreateObject("Scripting.FileSystemObject")

Set Out= FileObject.OpenTextFile (VisitorCountFilename, 1, FALSE, FALSE)

Application("visitors") = Out.ReadLine

Application("VisitorCountFilename") = VisitorCountFilename

End Sub

'=========================================================

SUB Application_OnEnd

Set FileOutObject = Server.CreateObject("Scripting.FileSystemObject")

Set Out= FileOutObject.CreateTextFile (Application("VisitorCountFilename"), TRUE,FALSE)

Out.WriteLine(application("visitors"))

End Sub

'=========================================================Sub Session_OnStart

Session.Timeout = 5

Application("visitors") = Application("visitors") + 1

Session("ID")=Session.SessionID

End Sub

< /SCRIPT>







　　 在 这 个 Global.asa 程 序 中，涉 及 到 了 ASP 的 File Access 组 件，它 可 以 提 供 用 于 访 问 文 件 系 统 的 方 法、属 性 和 集 合。这 将 在 以 后 ASP 的 组 件 中 进 行 展 开 讨 论。在 这 里，它 起 到 了 在 服 务 器 上 创 建 新 文 件 并 对 文 件 进 行 写 操 作 的 作 用。这 其 实 是 一 个 ASP 页 面 访 问 记 数 器 应 用 程 序 的 Global 文 件，首 先 当 客 户 首 次 访 问 该 应 用 程 序 的 首 页 时 , 过 程 Application_OnStart 定 义 了 在 服 务 器 上 指 定 的 虚 拟 目 录 下 新 建 一 个 VisitCount.txt 的 文 本 文 件，并 将 文 件 的 路 径 和 内 容 保 存 在 应 用 程 序 级 的 变 量 中。而 当 任 何 一 个 客 户 访 问 ASP 应 用 程 序 中 的 任 何 一 个 页 面 时，过 程 Session_OnStart 定 义 将 应 用 程 序 级 的 变 量 visitors 的 值 自 动 加 一。这 样，每 当 有 客 户 访 问 页 面 时，变 量 visitors 都 将 自 动 加 一，以 起 到 统 计 点 击 率 的 作 用。由 于 变 量 visitors 的 值 是 存 储 在 系 统 内 存 之 中，所 以 如 果 服 务 器 关 闭 或 重 新 启 动，存 储 在 变 量 中 的 数 据 将 自 动 丢 失，所 以 通 过 定 义 过 程 Application_OnEnd，在 服 务 器 关 闭 或 重 启 之 前 将 数 据 写 入 事 先 建 立 的 文 本 文 件 之 中，这 样 就 能 确 保 当 服 务 器 再 次 启 动 时，Application_OnStart 过 程 可 以 从 VisitCount.txt 文 件 中 读 取 以 前 的 统 计 数。 



　　 经 过 这 段 时 间 的 学 习，相 信 大 家 已 经 能 够 比 较 熟 练 的 运 用 我 们 所 学 过 的 这 些 ASP 内 建 对 象 来 编 写 一 些 较 简 单 的 ASP 应 用 程 序，可 别 小 看 你 现 在 所 掌 握 的 这 些 ASP 基 本 知 识 哦 ! 其 实 你 已 经 能 够 开 发 一 些 简 单 但 实 用 的 ASP 应 用 程 序 了。下 面 我 就 举 一 个 非 常 简 单 的 ASP WEB 聊 天 室 程 序，你 会 发 觉 写 聊 天 室 原 来 是 一 件 这 么 容 易、轻 松 的 事。可 能 朋 友 们 已 经 在 一 些 杂 志 上 看 到 过 ASP 聊 天 程 序 的 编 写 方 法，但 作 者 在 这 里 自 己 写 了 一 个 更 简 单 的 程 序，仅 仅 使 用 了 一 个 .asp 文 件。请 将 以 下 代 码 剪 贴 到 记 事 簿 并 保 存 为 chat.asp。 

< %@ Language=VBScript %>

< %

Response.Buffer=true ' 设 置 输 出 缓 存，用 于 显 示 不 同 页 面。

On error resume next ' 忽 略 程 序 出 错 部 分

If Request.ServerVariables("Request_Method")="GET" then

' 判 断 客 户 是 以 什 么 方 式 请 求 WEB 页 面

'------------------------

' 客 户 登 陆 界 面 

'------------------------

%>



< form method="POST" action="chat.asp">< p>

< input type="text" name="nick" size="20" value="nick" style="background-color: rgb(192,192,192)">< br>

< input type="submit" value=" 进 入 聊 天 室 " name="B1" style="color: rgb(255,255,0); font-size: 9pt; background-color: rgb(0,128,128)">

< p>< input type="hidden" name="log" size="20" value="1">< br>< /p>

< /form>



< %

Response.End ' 结 束 程 序 的 处 理

Else

Response.clear ' 清 空 缓 存 中 的 内 容

dim talk

If Request.Form("nick")<>"" then

' 判 断 客 户 是 是 否 在 聊 天 界 面 中 

Session("nick")=Request.Form("nick")

End If

'------------------------'

客 户 聊 天 界 面 

'------------------------

%>



< form method="POST" action="chat.asp" name=form1> < p>< %=Session("nick")%> 说 话：< input type="text" name="talk" size="50">< br>

< input type="submit" value=" 提 交 " name="B1">

< input type="reset" value=" 取 消 " name="B2">< /p>

< /form>

< A HREF="/asptest/shusheng/chat.asp"> 离 开 < /a>< br>< br>



< %

If Request.Form("log")<>1 then

If trim(Request.Form("talk"))="" then

' 判 断 用 户 是 否 没 有 输 入 任 何 内 容 

talk=Session("nick")&" 沉 默 是 金。"

Else

talk=trim(Request.Form("talk"))

' 去 掉 字 符 后 的 空 格 

End If



Application.lock

Application("show")="< table border='0' cellpadding='0' cellspacing='0' width='85%' >< tr>< td width='100%' bgcolor='#C0C0C0'>< /td>< /tr>< tr>< td width='100%'>< font color='#0000FF'> 来 自 "&Request.ServerVariables("remote_addr")&" 的 "&Session("nick")&time&" 说：< /font>"&talk&"< /td>< /tr>< tr>< td width='100%' bgcolor='#C0C0C0'>< /td>< /tr>< /table>< br>"&Application("show")

Application.UnLock



Response.Write Applica





2