按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
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 Application（〃show〃）
End If
End If
％》
第一次运行 chat。asp 程序，你首先将看到如下页面 ：
选择你的 nick 进入聊天室后，将看到如下页面 ：
输入你想要说的话，对话将出现在输入框的下方，如下图 ：
下面我们来对这个聊天室程序进行逐步的分析。
首先，由于聊天室的所有客户都要能够共享信息，所以不可避免的要用到具有应用程序级变量的对象 Application，这是建立 Chat 程序的关键所在，所有的谈话数据都存放在一个应用程序级变量中，以便让所有的客户读取。我们可以用所学过的 request 对象获取客户所输入的谈话，并保存在变量 talk 中 ； 然后将 talk 的值存入应用程序级变量 show 中，如下 ：
《 ％ Application（〃show〃）=talk&Application（〃show〃） ％》
接下来要考虑的是当不同的客户同时向 Chat 应用程序进行操作的时候如何处理。这个问题其实与在数据库中的两个用户同时写入同一个记录一样，如果两个用户同时对同一个应用程序级变量进行写操作，则一个用户所作的修改会被另一个用户的操作所覆盖，所以，如果对 Application 对象数据的并发访问不采取一定措施，则会导致当两个用户试图同时对 Asp 聊天室应用程序提交时，一个用户的提交内容会被另一个用户的提交内容所覆盖，在被参加到会话中的任何人看到之前就消失了。为了避免这类问题的出现，我们需要使用 Application 对象的 Lock 属性来约束只允许当前的用户编辑或增加 Application 对象的属性，这样当用户开始修改应用程序级变量开始，到 Application 对象被显式地 Unlocked 为止，Application 对象的属性只能被该用户编辑，如果此时有其他用户请求编辑 Application 对象，则这些用户要排队等待，知道应用程序被 Unlock 为止。如下所示 ：
Application。lock
Application（〃show〃）=talk&Application（〃show〃）
Application。UnLock
现在整个程序的核心部分你已经了解了，下面考虑如何保存客户信息，这里我们要用到一个会话级变量，即将客户的 nick 保存在 Session 中。如：
Session（〃nick〃）=Request。Form（〃nick〃）
最后，我们要考虑的是如何仅在一个 。asp 文件中处理各种事件 ； 如 ： 客户登陆界面、客户聊天界面。由于客户第一次请求 。asp 文件时，采用的是简单的 HTTP GET 方式，但是当客户向页面上的表单字段中增加的数据并向自身提交表单后，。asp 文件会再次被请求，不过这次数据是经过 HTTP POST 方式进行传递的。文件被请求的方式可以用两种方法来确定。一是测试 Request。Form 集合是否包含成员，若没有，则表明没有发送给表单处理的数据。二是使用 Request。ServerVariables（〃Request_Method〃） 变量。如果表单是通过 HTTP GET 方式被请求的，则这个变量会返回〃GET〃，如果表单被提交处理则返回〃POST〃。由于后一种方法对于确定文件的请求方式更直接，所以我们使用如下代码进行判断 ：
if Request。ServerVariables（〃Request_Method〃）=〃GET〃 then
由于我们设置了 ASP 缓存，所以当程序判断页面请求方式为 GET 时，程序运行 Response。End，来结束后面的所有操作，否则则运行 Response。clear； 清空缓存中已有的内容，并继续程序的运行。这样我们就得以用同一个 。asp 文件根据不同情况给客户显示不同的界面。
好了，我已经将这个 ASP Chat 程序的核心部分告诉大家了，剩下的一些细节性问题请各位自己读程序吧，其实这个程序还存在很多不足之处，最大的毛病是我没有写自动刷新的功能，因此如果你在 Chat 中不说话，那也就看不到其他客户所说的话了。Chat 在 Internet 中的魅力大家是知道的，其实 ； 用 ASP 也完全能做到同 irc 类似的强大功能，当然这就需要写更多的代码，如果大家有兴趣请写信给我，我将在今后的文章中逐步提升这个 chat 程序的等级，让大家也过过〃Oper〃的隐。注：有了这个 chat 程序，你就可以用来在自己的 PWS 上建一个 chat 应用程序，只要将你的 IP 地址告诉朋友，如 http：//202。96。210。33/asp/chat。asp，你们就可以通过你的电脑在网上聊天了，很爽的，不信你试试 ！
ASP基础教程：ASP内建对象Server
通过前九篇的理论和实践，相信大家已经对 ASP 有了系统的了解，虽然至今为止，我们只学了 ASP 的 4 个内建对象，但已经完全能够写出一些实用的小程序了。今天，作者将继续给大家讲解最后一个 ASP 内建对象……Server。
在开始本次课程之前，我仍要在这里回答一些朋友们提出的比较普遍的问题。最近仍有不少朋友来信问我，如何构建服务器端的 Active Server Page 环境。我想可能是我在前几篇中没有讲清楚，因此，在本篇的开头有必要把这个问题详细阐述一遍。
ASP 的应用完全是基于 Microsoft Internet Infomation Server（简称 IIS）之上的，IIS 有分别用于 Windows NT Server 和 WorkStation 的两个版本中（当然 IIS4。0 也有 Windows98 版，这里暂且不提），其功能几乎完全相同，所不同的只是安装过程。一般来说，我们使用的都是基于 NT 服务器上的 IIS 版本。在 NT Server 的环境中，发布信息、管理站点的工作一般都是通过 IIS 来完成的。通常我们在 NT4。0 版本中运行的是 IIS2。0 版，但它不具有支持 ASP 的功能。ASP 必须在安装完 IIS 后单独安装，安装文件是一个微软发布的 ASP 安装包，大约有 9 兆多，应该可以在微软的网站上下载。当 IIS2。0 中增添了支持 ASP 的功能后，其也就自动升级为 3。0 版本。2。0 和 3。0 对于 WEB 服务器来说，并没有什么大的改动，只是单纯地增加了运行 ASP 的能力。当安装完成后，运行 Internet 服务管理器，你将看到如下画面：
可以到在 IIS3。0 中提供了三种服务：WWW、Gopher、FTP，WWW 服务为客户浏览器提交 WEB 页，并允许客户访问 。asp 文件。当然，你可以直接安装最新的 IIS4。0 版本，作者也建议各位安装此版本，因为它具有更强更高的 WEB 管理机能和安全性。在 IIS4。0 中 IIS 的管理界面发生了根本性的改变，熟悉的 Internet 服务管理器�