动态网页制作asp学习

qcqwppp · 发表于 2009-11-6 18:03

立即注册，加入爱黑武论坛的大家庭！爱黑武，爱上搞机生活！

您需要登录才可以下载或查看，没有账号？注册

x

第一章 asp基础入门篇

1.1 ASP---IIS的安装与配置

1、运行环境与软件要求
Windows 2000 以上（不包括Windows XP Home版）
IIS 4.0 以上
Microsoft Access 2000
Dreamweaver MX
2、IIS的安装与配置
a.安装IIS
若操作系统中还未安装IIS服务器，可打开“控制面板”，然后单击启动 “添加/删除程序”，在弹出的对话框中选择 “添加/删除Windows组件”，在Windows组件向导对话框中选中“Internet信息服务（IIS）”，然后单击“下一步”，按向导指示，完成对IIS的安装。（图例如下图1、图2 由于白茶123使用的是Windows Server 2003操作系统所以和大家的安装界面有所出入，但大体相同）

此主题相关图片如下：

图1—windows组件向导1

此主题相关图片如下：

图2—windows组件向导2

b.启动Internet信息服务（IIS）
Internet信息服务简称为IIS，单击Windows开始菜单---所有程序---管理工具---Internet信息服务（IIS）管理器，即可启动“Internet信息服务”管理工具（如图3）

此主题相关图片如下：

图3—Internet信息服务（IIS）管理器

c.配置IIS
IIS安装后，系统自动创建了一个默认的Web站点，该站点的主目录默认为C:\\\\Inetpub\\\\www.root。
用鼠标右键单击“默认Web站点”，在弹出的快捷菜单中选择“属性”，此时就可以打开站点属性设置对话框，（如图4）在该对话框中，可完成对站点的全部配置。

此主题相关图片如下：

图4—默认Web站点属性

主目录与启用父路径
单击“主目录”标签，切换到主目录设置页面，（如图5）该页面可实现对主目录的更改或设置。注意检查启用父路径选项是否勾选，如未勾选将对以后的程序运行有部分影响。（如图6），主目录—配置---选项。

此主题相关图片如下：

图5—默认Web站点主目录设置

此主题相关图片如下：

图6—默认Web站点启用父路径设置

设置主页文档
单击“文档”标签，可切换到对主页文档的设置页面，（如图7）主页文档是在浏览器中键入网站域名，而未制定所要访问的网页文件时，系统默认访问的页面文件。常见的主页文件名有index.htm、index.html、index.asp、index.php、index.jap、default.htm、default.html、default.asp等
IIS默认的主页文档只有default.htm和default.asp，根据需要，利用“添加”和“删除”按钮，可为站点设置所能解析的主页文档。
启动与停止IIS服务
在Internet信息服务的工具栏中提供有启动与停止服务的功能。单击可启动IIS服务器；单击则停止IIS服务器。

1.2 Are you ready?

如何令你的网站“动感十足”
您的网站是否仍一如既往地保持“静态”？目前呈几何增长的互联网网站中，有相当一部分仍固守“静态”，无形中已大大落后于时代的步伐。所谓“静态”指的就是网站的网页内容“固定不变”，当用户浏览器通过互联网的HTTP（Hypertext Transport Pr otocol）协议向WEB服务器请求提供网页内容时，服务器仅仅是将原已设计好的静态HTML文档传送给用户浏览器。其页面的内容使用的仅仅是标准的 HTML代码，最多再加上流行的GIF89A格式的动态图片，比如产生几只小狗小猫跑来跑去的动画效果。若网站维护者要更新网页的内容，就必须手动地来更新其所有的HTML文档。
“静态”网站的致命弱点就是不易维护，为了不断更新网页内容，你必须不断地重复制作HTML文档，随着网站内容和信息量的日益扩增，你就会感到工作量大得出乎想象。
你不禁要问：那么什么是动态网站呢？这就是本文将重点讲述的核心，所谓“动态”，并不是指那几个放在网页上的GIF动态图片，在这里笔者为动态页面的概念制定了以下几条规则：
1、“交互性”即网页会根据用户的要求和选择而动态改变和响应，将浏览器作为客户端界面，这将是今后WEB发展的大事所趋。
2、“自动更新”即无须手动地更新HTML文档，便会自动生成新的页面，可以大大节省工作量。
3、“因时因人而变”，即当不同的时间、不同的人访问同一网址时会产生不同的页面，是不是很酷？
现在你已经对“动态”网站有了一个基本的概念，接下来应挑选称手的“兵刃”了。将网站“动态”化的方法很多，这要看你是出于何种需求。如果你是个人网站的维护者，使用的是免费主页空间，那么绝大多数情况下你只能使用Java、Java Script和最新的DHTML技术，如果你的主页空间提供者能给予你CGI权限或ASP支持，那么你将能非常幸运地发挥真正的动态技术。关于CGI和ASP技术将在后面的着重讨论，这里针对个人网站仅就最新的DHTML技术进行重点介绍。
究竟什么是DHTML？它与传统的HTML有什么不同？DHTML就是当网页从WEB服务器下载后无须再经过服务器的处理，而在浏览器中直接动态地更新网页的内容、排版样式、动画。比如，当鼠标移至文章段落中，段落能够变成蓝色，或者当你点击一个超链后会自动生成一个下拉式的子超链目录。这就是 Dynamic HTML（动态HTML），它是近年来网络飞速发展进程中最振奋人心也是最具实用性的创新之一。它是一种通过各种技术的综合发展而得以实现的概念，这些技术包括Java Script , VB0Script, Document Object Model (文件目标模块)，Layers和Cascading Style Sheets ( CSS样式表)等。非常遗憾的是在网景Netscape和微软IE浏览器几番大战后，我们仍没有得到一个对DHTML支持的统一标准。因此本文在介绍 DHTML时不得不分别讲述。让我们先来看看Microsoft IE 4对DHTML的支持：
1 .动态内容（Dynamic Content）：动态地更新网页的内容，可\"动态\"地随时插入、修改、或删除网页的元件，譬如文字、标记等。
2 .动态排版样式（Dynamic Styles Sheets）：通过W3C的“Cascading Style Sheets”（串联式排版样式，简称CSS1或CSS），提供了设定HTML标记的字体大小、字型、粗细、字型样式、行高度、文字颜色、加底线或加中间横线、与边缘距离、靠左右或置中、缩排、背景图片或颜色等排版功能。而“动态排版样式”，可以“动态”地随时地改变排版样式。
3 .动态定位（Dynamic Positioning）：通过W 3 C的“Working Draft on Positioning HTML with Cascading Style Sheets”，提供HTML元件在X、Y、Z轴的定位功能，让设计者可以放置影像、控件、文字等在网页上的任何位置上。而放置在不同的Z轴上，设计者就可以产生重叠的效果。
4 .内建资料处理（Data Awareness）：无须复杂的程序，无须花费服务器太多资源，即可让网页设计者即时处理文档。
5 .内建多媒体支援：IE 4.0结合CSS与内建的ActiveX Controls，提供多媒体支持的功能，包括转换特效、滤镜特效、路径控制、顺序控制、动画、制图、播放声音和影像等多媒体功能。
让我们再来看看Netscape Communicator 4.0对DHTML所提供的支持：
1 .动态排版样式（Dynamic Styles Sheets）：支援W 3 C的“Cascading Style Sheets”（串联式排版样式，简称CSS1或CSS）、和自创的“Java Script Style Sheets”。
2 .Dynamic Layers：提供图文定位、改变图文重叠顺序、控制隐藏或显示图文、移动图文的功能，让您设计出“动画”的效果！
3 .Dynamic Fonts：提供由服务器下载字型的功能。可见虽然IE 4.0和Netscape Communicator 4.0都提供了“Dynamic HTML”的支持，但是事实上两者除了对“Cascading Style Sheets”的规格相近外，其余都相差甚远。因此当你设计DHTML页面时必须充分考虑到兼容性的问题，选择称手的“兵刃”和方法对于设计者来说始终是最重要的。有关DHTML的使用方法和设计技巧作者将在第二章《动态网页设计十八般武艺》中仔细讲解，请密切关注。
或许对于一个个人网站来说充分运用DHTML技术足以令网页栩栩如生，动感十足。然而对于建立商业网站的企业而言，仅仅拥有DHTML是远远不够的。因为仅仅发生在客户浏览器端的动态效果是无法满足商业网站大量信息查询，客户咨询，资源交互等“动态”需求的。因此作为商业网站的设计者，必须要设计出更具实用性和交互性的“动态”网站。由于绝大多数商业网站都具有大量的数据和信息，而建网的初衷也就是在于方便客户查询企业资料，方便同客户的交流，及时获得信息反馈。那么，就必然会面临如何让使用者在浏览器界面中，通过互联网或内联网（Intranet）查询WEB数据库的资料，甚至输入、更新和删除WEB 服务器上的资料。下面笔者就简单介绍几种常用的“动态”网站设计方法：
1、CGI（Common Gateway Interface）通用网关接口的传统方式，当用户在浏览器端填好表单（form）要求输入的资料，提出HTTP请求后，WEB服务器端将执行一个表单所设定的可执行的CGI应用程序，CGI程序分析表单（form）中所输入的资料，存取WEB数据库，将查询执行的结果以HTML的格式返回给浏览器。使用CGI方式存取WEB数据库，有很多的缺点，譬如不易开发、变更修改成本高、功能有限、不易侦错、执行速度慢等，而且由于并非整合于HTML文档之中，因此必须使用与HTML完全不同的设计过程来设计一个可执行的应用程序。
2、IDC（Internet Database Connector）互联网数据库连接头是Windows NT Server内含Internet Information Server（简称IIS）2.0的特征之一，它提供了一种使你的互联网数据库内容得以发布并可与用户交互的方法，它实际上是一个包含于IIS中的I S A P I应用程序。你只需掌握HTML和SQL的基本知识并写为数不多的代码就能编出具有交互能力的数据库应用程序，让使用者在浏览器界面中得以查询、输入、更新、和删除WEB服务器上的数据资料。正如VB程序员所喜欢的那样，构成IDC应用程序的文件是解释性的，由于设计简易，只要准备两个档案，即可在用户端的浏览器中存取WEB服务器的数据资料，且无须编译，因此具有快速的开发循环和反馈。但这种简单性的代价是牺牲了许多灵活性，使你不得不放弃许多对用户接口的控制，并几乎放弃了所有验证数据的能力。因而I D C仅适用于简单的WEB应用程序。
3、ActiveX Data Object（ADO）是WEB数据库应用的最佳选择。
ActiveX Data Object（简称ADO）究竟是什么呢？ActiveX Data Object的技术，让您可以与Active Server Pages（简称ASP）结合以建立提供数据资讯的网页内容，只需在网页面中执行Structured Query Language（结构化查询语言，简称SQL）指令，让用户在浏览器界面中输入、更新、和删除WEB服务器上的数据资料。当用户端的浏览器填好表单所要求输入的资料并按下“Submit”按钮后，经过互联网、内联网传送HTTP请求到WEB服务器，该请求在WEB服务器执行一个表单所指定的Active Server Pages程序（后缀名为. ASP的文档）。一个. ASP文档是一个纯文字档，包括：HTML标记（tags）、VBScript或JScript语言的程序代码、ASP语法、和结构化查询语言SQL指令。IIS3.0 / 4.0 WEB服务器执行. ASP文档，通过ODBC驱动程式，连接到支持ODBC的数据库上，执行ASP文档所指定的SQL指令，最后将执行的结果以HTML的格式传送给用户浏览器。ADO具有容易使用、开发执行快速、消耗系统资源较少，和占用磁盘空间小等优点。
以上就是目前设计商业网站常用的“动态”技术，由于本人的工作和使用经验，笔者较倾向于ADO和ASP的结合，从长远来看这对搭档也势必成为今后一段时间内“动态”WEB的核心技术。因此在本文第二章《动态网页设计十八般武艺》中，笔者将就ADO和ASP的使用进行展开讲述，敬请期待

1.3 ASP简介

上一章给大家简要介绍了建立动态网站的一些方法和制作工具，本章将以如何建立基于 IIS 的 ASP 动态网站为中心向大家一步一步地揭示动态商业网站设计的真正奥秘。为了使各位能够全面、细致地掌握 ASP 的开发技巧，本文今后将采取连载的形式，手把手地教你如何建立属于自己 ASP 动态网站。由于本文是作者根据自己的学习和实践经验并结合了一些外文资料而写成的，因此不免会有一些偏颇，希望各位见谅。如发现本文有何不当之处，请及时通知作者，谢谢。
Microsoft Active Server Pages 即我们所称的 ASP ，其实是一套微软开发的服务器端脚本环境， ASP 内含于 IIS 3.0 和 4.0 之中 , 通过 ASP 我们可以结合 HTML 网页、 ASP 指令和 ActiveX 元件建立动态、交互且高效的 WEB 服务器应用程序。有了 ASP 你就不必担心客户的浏览器是否能运行你所编写的代码，因为所有的程序都将在服务器端执行，包括所有嵌在普通 HTML 中的脚本程序。当程序执行完毕后，服务器仅将执行的结果返回给客户浏览器，这样也就减轻了客户端浏览器的负担，大大提高了交互的速度。以下罗列了 Active Server Pages 所独具的一些特点：
1. 使用 VBScript 、 JScript 等简单易懂的脚本语言，结合 HTML 代码，即可快速地完成网站的应用程序。
2. 无须 compile 编译，容易编写，可在服务器端直接执行。
3. 使用普通的文本编辑器，如 Windows 的记事本，即可进行编辑设计。
4. 与浏览器无关 (Browser Independence), 用户端只要使用可执行 HTML 码的浏览器，即可浏览 Active Server Pages 所设计的网页内容。 Active Server Pages 所使用的脚本语言 (VBScript 、 Jscript) 均在 WEB 服务器端执行，用户端的浏览器不需要能够执行这些脚本语言。
5.Active Server Pages 能与任何 ActiveX scripting 语言相容。除了可使用 VBScript 或 JScript 语言来设计外，还通过 plug-in 的方式，使用由第三方所提供的其他脚本语言，譬如 REXX 、 Perl 、 Tcl 等。脚本引擎是处理脚本程序的 COM(Component Object Model) 物件。
6.Active Server Pages 的源程序，不会被传到客户浏览器，因而可以避免所写的源程序被他人剽窃，也提高了程序的安全性。
7. 可使用服务器端的脚本来产生客户端的脚本。
8. 物件导向（ Object-oriented ）。
9.ActiveX Server Components(ActiveX 服务器元件 ) 具有无限可扩充性。可以使用 Visual Basic 、 Java 、 Visual C++ 、 COBOL 等编程语言来编写你所需要的 ActiveX Server Component 。
ASP 的奇妙之处真是不胜枚举，下面就请各位系好安全带，我将带领大家进入 ASP 的梦幻世界。
首先，让我们来看看运行 ASP 所需的环境：
* Microsoft Internet Information Server version 3.0/4.0 on Windows NT Server
* Microsoft Peer Web Services Version 3.0 on Windows NT Workstation
* Microsoft Personal Web Server on Windows 95/98
正如前文所述，与一般的程序不同， .asp 程序无须编译， ASP 程序的控制部份，是使用 VBScript 、 JScript 等脚本语言来设计的，当执行 ASP 程序时，脚本程序将一整套命令发送给脚本解释器 ( 即脚本引擎 ) ，由脚本解释器进行翻译并将其转换成服务器所能执行的命令。当然，同其他编程语言一样， ASP 程序的编写也遵循一定的规则，如果你想使用你所喜爱的脚本语言编写 ASP 程序，那么你的服务器上必须要有能解释这种脚本语言的脚本解释器。当你安装 ASP 时，系统提供了两种脚本语言： VBsrcipt 和 JScript ，而 VBscript 则被作为系统默认的脚本语言。你也可以根据自己的喜好改变系统默认的脚本语言，关于如何改变系统默认的脚本语言请看《在 ASP 中使用脚本语言》一文。
ASP 本身并不是一种脚本语言，它只是提供了一种使镶嵌在 HTML 页面中的脚本程序得以运行的环境。但是，要学好 ASP 又必须掌握它的语法和规则。现在就让我们开始一步一步地认识并学习 Active Server Pages 。
ASP 程序其实是以扩展名为 .asp 的纯文本形式存在于 WEB 服务器上的，你可以用任何文本编辑器打开它， ASP 程序中可以包含纯文本、 HTML 标记以及脚本命令。你只需将 .asp 程序放在 WEB 服务器的虚拟目录下（该目录必须要有可执行权限），就可以通过 WWW 的方式访问 ASP 程序了。要学好 ASP 程序的设计，必须掌握脚本的编写，那么究竟什么是脚本呢？其实脚本是由一系列的脚本命令所组成的，如同一般的程序，脚本可以将一个值赋给一个变量，可以命令 WEB 服务器发送一个值到客户浏览器，还可以将一系列命令定义成一个过程。要编写脚本，你必须要熟悉至少一门脚本语言，如 VBScript 。脚本语言是一种介乎于 HTML 和诸如 JAVA 、 Visual Basic 、 C++ 等编程语言之间的一种特殊的语言，尽管它更接近后者，但它却不具有编程语言复杂、严谨的语法和规则。如前所述 ASP 所提供的脚本运行环境可支持多种脚本语言，譬如： JScript 、 REXX 、 PERL 等等，这无疑给 ASP 程序设计者提供了广泛的发挥余地。 ASP 的出现使得广大 WEB 设计者不必在为客户浏览器是否支持而担心，实际上就算你在同一个 .asp 文件中使用不同的脚本语言，你都无须为此担忧，因为所有的一切都将在服务器端进行，客户浏览器得到的只是一个程序执行的结果，而你也只需在 .asp 中声明使用不同的脚本语言即可。下面是一个典型的在同一 .asp 文件中使用两种脚本语言的例子：

< HTML>
< BODY>
< TABLE>
< % Call Callme %>
< /TABLE>
< % Call ViewDate %>
< /BODY>
< /HTML>
< SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Callme
Response.Write \"< TR>< TD>Call< /TD>< TD>Me< /TD>< /TR>\"
End Sub
< /SCRIPT>
< SCRIPT LANGUAGE=JScript RUNAT=Server>
function ViewDate()
{
var x
x = new Date()
Response.Write(x.toString())
}
< /SCRIPT>

这是各位在本文中接触的第一个真正的 ASP 程序，千万不要被“ < % %>”符号搞糊涂，这其实是标准的 ASP 定界符，而“ < SCRIPT>< /SCRIPT>”之间的就是脚本语言。 ASP 不同于脚本语言，它有自己特定的语法，所有的 ASP 命令都必须包含在 < % 和 %>之内，如： < % test=\"English\" %>， ASP 通过包含在 < % 和 %>中的表达式将执行结果输出到客户浏览器 , 如： < % =test %>就是将前面赋给变量 test 的值 English 发送到客户浏览器中，而当变量 test 的值为 Mathematics 时 , 以下程序：
This weekend we will test < % =test %>.
在客户浏览器中则显示为：
This weekend we will test Mathematics.
学习 ASP 最好的方法莫过于亲自动手编写，为了在最短的时间内使各位掌握 ASP 的程序设计技巧，本文将采取实例分析法，通过一系列的实例让各位在实践中学习 ASP 。建立一个 ASP 页面，你所需的只是打开一个文本编辑器，如： Notepad ，然后跟我开始动手编写第一个 ASP 程序。下面我们将建立一个自动监测浏览时间并根据不同时段动态显示不同页面内容的 ASP 程序，请将以下代码剪贴到你的文本编辑器中 , 并存为 test1.asp ：

< html>
< body>
< FONT COLOR=\"Green\">
< % If Time < #12:00:00# And Time >= #00:00:00# Then %>
早上好，今天天气不赖啊 !
< % ElseIf Time < #19:00:00# And Time >= #12:00:00# Then %>
下午好 !
< % Else %>
哈喽 ! 今晚你有没有去 IRC 聊天 !
< % End If %>
< /body>
< /html>

将 test1.asp 保存在 WEB 服务器的虚拟目录 ( 如： aspsamp/) 下，并在浏览器中用 HTTP 的方式进行浏览，如： http://yourcomputername/aspsamp/test1.asp ，你将会新奇地发现，你的页面真的活起来了。虽然，这只是一个非常简单的实例，而且这一功能完全可以通过 JavaScript 完成，但是不难发现使用 ASP 要比 JavaScript 简洁、迅速得多，而且运用此法，你完全可以轻而易举地令你的网页在不同的时段展示不同的风格。此例中的“ Time ”实际上是一个 VBScript 内置的显示系统当前时间的函数，由于系统默认的脚本语言是 VBScript ，因此当你在 ASP 命令中调用该函数时，脚本引擎会自动将其转换成当前的系统时间。接下来我们将给 test1.asp 添加一点色彩，在 < body>标识中添加“ bgcolor=\"< % =bgc %>”即变为 < body bgcolor=\"< % =bgc %>\">，并在 < body>标记前添加如下语句：

< % If Time < #12:00:00# And Time >= #00:00:00# Then
bgc=\"silver\"
ElseIf Time < #19:00:00# And Time >= #12:00:00# Then
bgc=\"navy\"
Else
bgc=\"red\"
End If
%>

如此一来，当用户在不同的时段访问你的页面时，他们将会看到不同的页面背景色。我们可以做的事情还有很多，譬如你想知道在凌晨至十二点之间浏览你页面的客户的姓名，并向他或她问好，那么下面的这段程序将能助你达成心愿。首先你需要在页面中设置表单，将以下 HTML 代码剪贴到“ < % If Time < #12:00:00# And Time >= #00:00:00# Then %>”之后：

欢迎光临我的主页，请填写以下信息 :

< FORM METHOD=\"POST\" ACTION=\"test1.asp\">
< P>
First Name: < INPUT NAME=\"fname\" SIZE=\"48\">
< P>
Last Name: < INPUT NAME=\"lname\" SIZE=\"48\">
< P>
Title: < INPUT NAME=\"title\" TYPE=RADIO VALUE=\"mr\">Mr.
< INPUT NAME=\"title\" TYPE=RADIO VALUE=\"ms\">Ms.
< P>
< INPUT TYPE=SUBMIT>
< INPUT TYPE=RESET>
< /FORM>
然后在以上 HTML 代码后面添加如下 ASP 命令：
< %
title=request.form(\"title\")
if title=\"mr\" then
%>
欢迎您 Mr.
。
< % elseif title=\"ms\" then %>
欢迎您 Ms.< % =request.form(\"fname\") %>。
< % else %>
< B>< font color=blue>欢迎您 < % =request.form(\"fname\")&\" \"&request.form(\"lname\") %>。 < /font>< /B>
< % end if %>
保存文件 test1.asp ，并在浏览器中以 HTTP 方式进行浏览，如果此时的系统时间在凌晨 0:00:00 和中午 12:00:00 之间的话，浏览器将显示如下画面：

这其实是一个在 Internet 和 Intranet 上常见的功能，即当用户在浏览器端填写完表单后，通过调用一个通用网关程序将用户数据传送到服务器，由服务器进行处理后再将结果返还给客户浏览器。过去为了实现这样的功能必须编写一个独立于 HTML 之外的 CGI 程序，并通过 HTML 进行调用，撇开 CGI 编写复杂等缺点不谈， CGI 的执行效率也是一个大问题，每一个表单 (form) 均须执行一个可执行文档，当多人同时上线使用时，多个文档同时执行，将大大降低 WEB 服务器的执行速度，如今 ASP 提供了与 HTML 完全相融的编程环境，显然要比使用 CGI 便捷得多。
在本期的最后让我们再来看看 ASP 的循环功能，譬如你希望当客户在晚间 7:00 至凌晨 0:00:00 浏览你的页面时，在页面中央显示 6 个笑脸

表示问候，那么你只需要将以下命令剪贴到“ Good Evening! ”后面即可： < % for i=1 to 6 %>
< p>< center>< img src=\"smile.gif\" width=\"32\" height=\"32\" alt=\" 晚上好 \">< /p>< % next %>
这是一个最最基本的循环语句，它将一个笑脸图片重复调用六次并显示在页面上。当然此例的效果完全可以用 HTML 做到，但是不难发现使用 ASP 大大缩短了代码的重复编写，使得程序具有良好的可阅读性。另外，当你制作一个诸如根据用户投票来给所评测的对象评定星级的评测站点时，使用此法，你就完全不需要为每一个星级制作一幅图片。如果一个对象被评为 4 星级，那只需将一颗星的图片循环显示 4 次，以此类推即可。当然，当工作量较小的时候你不会感觉到 ASP 的好处，然而一旦数据量巨增，你将会深刻的体会到 ASP 动态网站给你带来的前所未有的轻、爽感受 !

1.4 ASP脚本基础

通过前两篇的学习，相信各位已经对 ASP 的动态网站设计有了一个基本的概念和整体的印象。从本篇开始作者将从脚本语言的使用着手，由浅入深地带领大家探索 ASP 动态网站设计的真正奥秘。
本文第二篇刊登后，很多朋友给我发了“妹儿”，希望能尽快看到本文的第三、第四、乃至第……篇，甚至有位朋友焦急地要我将 ASP 篇的全文发给他。看到有如此之多志同道合的朋友，令我精神大振。虽然 ASP 早在两年前就已经推出了，但直到今年它才以其灵活便捷的开发过程、良好的 WEB 数据库连接功能受到了国人的重视，然而由于目前国内尚缺乏关于 ASP 开发 WEB 应用程序的详尽教材，因此使得国内广大 WEB 开发者们仍处在闭门啃 E 文的阶段，也包括作者本人。也正因为如此，作者才蒙发了写文章的念头，在得到 Chinabyte 网络学院翁斌先生的大力支持后，各位才得以见到此文。
作者殷切希望能通过此文为广大 WEB 开发者和爱好者提供便利，使大家共同来参加 ASP 的学习和交流，为了顾全不同层次读者的需求作者还是决定从最基本的脚本语言的编制着手，随后再一步一步地讲解 ASP 内建对象、ActiveX 组件以及用 ASP 开发 WEB 应用程序的实例，相信通过一段时间持续的学习，不出几个月各位都能够得心应手地开发自己的动态网站。下面就先请大家跟我来学习一些 ASP 中应用脚本语言（以 VBScript 为主）的基础知识。
在开始学习脚本语言之前，你应该理解一些简单的概念 -- 变量、进程。所谓变量是计算机内存中已命名的存储位置，其中包含了数字或字符串等数据，它使用户便于理解脚本操作的名称，为用户提供了一种存储、检索和操作数据的途径。程序是由一个或多个进程组成的，在 VBScript 中，进程就是“指令块”，通常意义上的进程，如 Sub，只是为了简单的数据处理。
在 VBScript 中，严格的来讲变量是不用声明的，
如：< % Mystring=\"This is my string\" % >
然而，即使在使用变量前不需要去声明变量，也应养成在编程时声明变量的良好习惯，因为这样有助于防止错误发生。声明一个变量意味着告诉脚本引擎，有一个特定名称的变量，这样就可以在脚本中引用该变量。在 VBScript 中声明一个变量可以使用“Dim”语句，如下：
< script language=\"VBScript\" >
< !--
Option Explicit \\' 要求在脚本中声明所有的变量
Dim Mystring
Mystring=\"This is my string\"
-- >
< /script>
变量的作用域即生命期，决定哪些脚本命令可访问变量。在过程内部声明的变量具有局部作用域。每执行一次过程，变量就被创建然后消亡。而过程外部的任何命令都不能访问它。在过程外部声明的变量具有全局作用域，其值能被 ASP 页上的任何脚本命令访问和修改。声明变量时，局部变量和全局变量可以有相同的名称。而改变其中一个的值并不会改变另一个的值。如果没有声明变量，则可能不小心会改变一个全局变量的值。例如，以下脚本命令返回值 1，虽然有两个名为 Y 变量：

< %
Dim YY = 1Call SetLocalVariableResponse.Write Y
Sub SetLocalVariable
Dim Y
Y = 2End Sub % >
由于变量没有显式声明，以下的脚本命令将返回 2。当过程调用将 Y 设置为 2 时，脚本引擎认为该过程是要修改全局变量：

1.5 ASP脚本变量、函数、过程和条件语句

在上一期中作者向诸位简要介绍了 ASP 脚本语言之一 VBScript 的一些基本常识，本期将继续给大家讲解 VBScript 的脚本编写方法，并通过展示 VBScript 在 ASP 程序编写过程中的一系列实例使大家对 VBScript 有更进一层的理解。
大家在学习了脚本语言 VBScript 的变量、常量和过程的基本概念后，本期将继续向各位介绍 VBScript 的函数和语法。
函数和过程一样都是命名了的代码块，但它们却有很大的区别，过程完成程序任务，函数则返回值。我们可以这样理解，过程象一个完整的句子，而函数则象一个单词。举个例子，当你想获取某个数的平方根，你只要将该数传给 VBScript 的 Sqr() 函数，此函数会立即返回该数的平方根。如：
A=sqr(9)
则 A=3。熟练掌握脚本语言的函数将给你编写 ASP 程序带来极大的方便，就以上一期结尾处作者布置给大家的课后练习来说，如果你对脚本语言的函数掌握不够全面，那么解决如此之小的一个问题将很有可能花费你相当大的精力。现在让我们来回顾一下这道课后练习。
“作者正在用 ASP 制作一套基于 WEB 的 BBS 系统，希望能在其中添加一项特殊功能，即当任何用户登陆该 BBS 后都能够查阅近七天来所有新发布的信息。”
如果你不熟悉 VBScrip，就不会知道 VBScrip 本身提供了一个用来取得日期之间的差或和的函数 DateSerial，它的语法如下：
DateSerial(year, month, day)
如果你要指定一个日期，例如：1998 年11月10日，那么 DateSerial 函数中每个参数的取值范围都应该是可接受的，即日的取值应在1和31之间，月的取值应在1和12之间。但是，也可以使用表示某日之前或之后的年、月、日数目的数值表达式为每个参数指定相对日期。以下样例中使用了数值表达式代替绝对日期。在这里，DateSerial 函数返回1998年11月10日之前二十年 (1990-20) 零两个月 (11-2) 又一天 (10-1) 的日期：即 1978 年9月9日。程序如下：
Datep=DateSerial(1998-20, 11-2,10-1)
对于 year 参数，若取值范围是从 0 到99，则被解释为 1900 到 1999 年。对于此范围之外的 year 参数，则使用四位数字表示年份（例如 1800 年）。当任何一个参数的取值超出可接受的范围时，则会适当地进位到下一个较大的时间单位。例如，如果指定了35 天，则这个天数将被解释成一个月加上多出来的日数，多出来的日数取决于其年份和月份。但是如果参数值超出 -32,768 到 32,767 的范围，或者由三个参数指定（无论是直接还是通过表达式指定）的日期超出了可以接受的日期范围，就会发生错误。
当我们了解并掌握了函数 DateSerial 的使用方法后，再来看看作者布置的这道题目，一切就迎刃而解了。下面我将程序中的此部分代码公布如下： itemp=DateSerial(Year(date), month(date), day(date)-7)
itemp=DateValue(itemp)
sql=\"Select * from message Where message.creatime Between #\"&date&\"# And #\"&itemp&\"# \"
在这里我们又接触到了一组函数 Year,month,day，它们是用来得到一个日期的年、月、日。date 是常数，表示今天日期，而函数 DateValue 则是将字符串变量转化为日期格式的变量。在本段程序的第三行，我们第一次接触到了标准的 SQL 查询语句，这句语句是什么意思呢？
“Select”是标准的 SQL 数据库查询命令，通过 SELECT 语句我们可以在数据库中检索数据，并将查询结果提供给用户，此处的“*”表示查询该名为“message”的数据库中的所有记录，而“where”的作用是设定一个查询条件，是为了将数据库中符合条件的记录取出来，“message.creatime”是一个储存了数据库中记录创建日期的变量。将整句语句连起来理解就是：查询名为 message 的数据库中的所有记录，并将其中创建日期在今天和今天以前七日以内的所有记录存储在变量 sql 中。可能由于大家第一次接触 SQL 语句，一时间无法完全理解它的作用，不过不用担心在今后的章节中作者将专门用一期给大家介绍 SQL 的使用方法。
通过上面的学习，大家应该已经能够理解函数在程序中的作用，当然我们不必去死背函数，但要做到熟练运用只有一条捷径 -- 多实践。接下来让我们来看看 VBScript 的基本语法。
了解编程语言的朋友一定知道在程序中控制程序流程的语句主要可以分为条件语句和循环语句，在 VBScript 中可使用以下条件语句： If...Then...Else 语句
Select Case 语句
If...Then...Else 语句用于计算条件是否为 True 或 False，并且根据计算结果指定要运行的语句。通常，条件是使用比较运算符对值或变量进行比较的表达式，If...Then...Else 语句可以按照需要进行嵌套。
让我们来创建两个范例文件：if1.asp 和 if2.asp
将以下语句剪贴到记事簿中，并保存为 if1.asp( 注意：请将程序中“<”后的空格去掉 ) < html>
< head>
< TITLE>if1.asp< /TITLE>
< /head>< body bgcolor=\"#FFFFFF\">
< form action=\"if2.asp\" method=get>
Your First Name< INPUT NAME=\"FirstName\" MaxLength=20>< p>
Your Last Name< INPUT NAME=\"LastName\" MaxLength=20>< p>
< INPUT TYPE=submit>< INPUT TYPE=reset>
< /form>
< /body>
< /html>
将以下语句剪贴到记事簿中，并保存为 if2.asp
< html>
< head>
< TITLE>ifrespond.asp< /TITLE>
< /head>
< % fname=request.querystring(\"Firstname\")
lname=request.querystring(\"Lastname\")
If fname=\"George\" and lname=\"Washington\" then %>
Hi.You must be the first president!
< % else %>
Hi!Nice to Meet You
< %end if %>
< /body>
< /html>
asp1.asp 产生一个文本输入框，要求用户输入姓、名，如下图：

asp2.asp 则是用 IF 语句判断用户输入的姓名是否为“George Washington”, 并做出相应的反馈。在此我们遇到了一个 ASP 的内建对象 request，通过使用 request 对象可以访问任何用 HTTP 请求传递的信息，包括从 HTML 表格中用 POST 方法或 GET 方法传递的参数、cookie 和用户认证。而 QueryString 集合检索 HTTP 查询字符串中变量的值，HTTP 查询字符串由问号 (?) 后的值指定。如：
http://localhost/if2.asp?Firstname=George&Lastname=Washington
生成值为 \"Firstname=George&Lastname=Washington\" 的变量名字符串。关于 ASP 对象作者将在今后的几篇里重点讲述。
If...Then...Else 语句的一种变形允许您从多个条件中选择，即添加 ElseIf 子句以扩充 If...Then...Else 语句的功能，使您可以控制基于多种可能的程序流程。
我们将 asp2.asp 的程序部分扩充如下：< %
fname=lcase(request.querystring(\"Firstname\"))
lname=lcase(request.querystring(\"Lastname\"))
If fname=\"george\" and lname=\"washington\" then %>
Hi.You must be the first president!< p>
< % elseIf fname=\"ronald\" and lname=\"reagan\" then %>
Hi.You must be the actor president!< p>
< % elseIf fname=\"jimmy\" and lname=\"carter\" then %>
Hi.You must be the peanut farmer president!< p>
< % elseIf fname=\"naoko\" or fname=\"charles\" then %>
Hi.Your name reminds me of someone,but I am not sure who!< p>
< % else %>
Hi!Nice to Meet You
< % end if %>
可以添加任意多个 ElseIf 子句以提供多种选择。但使用多个 ElseIf 子句经常会使程序变得很累赘。在多个条件中进行选择的更好方法是使用 Select Case 语句。

Select Case 结构提供了 If...Then...ElseIf 结构的一个变通形式，可以从多个语句块中选择执行其中的一个。Select Case 语句提供的功能与 If...Then...Else 语句类似，但是可以使代码更加简练易读。Select Case 结构在其开始处使用一个只计算一次的简单测试表达式。表达式的结果将与结构中每个 Case 的值比较。如果匹配，则执行与该 Case 关联的语句块，我们同样可以用 Select Case 语句来写 asp2.asp 文件：
< %
fname=lcase(request.querystring(\"Firstname\"))
lname=lcase(request.querystring(\"Lastname\"))
name=fname+lname
Select case name
case \"georgewashington\"
response.write \"Hi.You must be the first president!< p>\"
case \"ronaldreagan\"
response.write \"Hi.You must be the actor president!< p>\"
case \"jimmycarter\"
response.write \"Hi.You must be the peanut farmer president!< p>\"
case \"naokocharles\"
response.write \"Hi.Your name reminds me of someone,but I am not sure who!< p>\"
case else
response.write \"Hi!Nice to Meet You\"
End Select %>
请注意 Select Case 结构只计算开始处的一个表达式，并且只计算一次，而 If...Then...ElseIf 结构计算每个 ElseIf 语句的表达式，这些表达式可以各不相同。因此仅当每个 ElseIf 语句计算的表达式都相同时，才可以使用 Select Case 结构代替 If...Then...ElseIf 结构。Select Case 语句也是可以是嵌套的，每一层嵌套的 Select Case 语句必须有与之匹配的 End Select 语句。
以上给大家介绍的脚本语言 VBScript 的函数和条件语句的使用方法，由于篇幅的缘故不能详细展开，希望各位有志学习 ASP 的朋友，能在课后进行一定程度的自学和练习。在日常开发 ASP 应用程序的过程中作者本人日渐体会到了脚本语言的重要性，灵活运用脚本语言将非但可以大大提高 ASP 应用程序的开发过程，给广大网站制作人员节省大量的时间，而且还能够增强 ASP 应用程序的执行效率和功能。欲善其事必先利其器，因此作者在此强烈建议诸君，熟练掌握脚本语言，这将对你的 ASP 程序开发大有帮助。由于本文不是 VBScript 教程，因此只能用较小的篇幅给大家简要介绍一些 VBScript 基本常识，在下一期介绍完 VBScript 的循环语句后，我们将正式开始学习 ASP 的内建对象，要深入 VBScript，建议大家找些教材进行自学。

1.6 ASP脚本循环语句

在本文上两篇中，我们学习了脚本语言 VBScript 的变量、函数、过程和条件语句，本篇将继续给大家介绍 VBScipt 的循环语句，并对脚本语言在 ASP 中的应用加以总结。
如果有人告诉你学习 ASP 不需要任何编程知识，那么他错了；如果我告诉你学习 ASP 必须掌握一门编程语言，那么我错了。ASP 动态服务器页面环境的特点就在于它是通过一种或几种脚本语言而写成的，脚本语言可以看作是编程语言的简化版，它易于学习和掌握，这给广大动态网站的设计者们提供了相当大的便利。可以这么说 : 脚本语言运用的得当与否直接关系到 ASP 应用程序的优与劣。继上一篇我们学习了脚本语言 VBScript 的函数和条件语句后，今天我们继续来看看 VBScript 中的循环语句。
循环语句的作用就是重复执行程序代码，循环可分为三类：一类在条件变为“假”之前重复执行语句，一类在条件变为“真”之前重复执行语句，另一类按照指定的次数重复执行语句。在 VBScript 中可使用下列循环语句：
Do...Loop: 当（或直到）条件为“真”时循环。
While...Wend: 当条件为“真”时循环。
For...Next: 指定循环次数，使用计数器重复运行语句。
For Each...Next: 对于集合中的每项或数组中的每个元素，重复执行一组语句。
我们先来看看 Do...Loop，它是可以多次（次数不定）运行语句块。当条件为“真”时或条件变为“真”之前，重复执行语句块。请看下例： < html>< head>
< title>DoLoop.asp< /title>< body bgcolor=\"#FFFFFF\">< /head>< p>< /p>
< p>请将今年到本月为止的每个月份的销售结算记录填写在本页之上。< P>
< %
counter = 1
thismonth = month(now())
Do while counter < thismonth + 1
response.write \" \" & counter & \" 月份 : \"
response.write \"______________________________\" & \"< BR>< br>\"
If counter >13 then
exit do
end if
counter = counter+1
Loop
%>
< hr>< /body>< /html>
这段 ASP 程序运用循环语句制作了一张销售结算记录表，将以上代码剪贴至记事簿保存为 DoLoop.asp，并在浏览器中以 HTTP 方式进行浏览，根据当前的月份的不同，你将看到如下图的结果。

我们来分析一下此段程序，我们的目的是要根据当前的月份打印一张表格，首先我们建立一个计数器“count”并将其值设为 1，然后我们用函数 month() 和 now() 得到当前的月份，最后建立循环，当 count 的值小于当前月份的值加 1 的时候，即显示月份值及一条横线并将 count 的值加 1，循环语句重复执行直到以上条件为假时退出循环。其中如果 count 大于 13 则用 exit do 立即退出循环。
Do Loop 语句还可以使用以下语法：
Do
[statements][Exit Do]
[statements]Loop [{While | Until} condition]
While...Wend 语句是为那些熟悉其用法的用户提供的。但是由于 While...Wend 缺少灵活性，所以建议最好使用 Do...Loop 语句。下面我们来看看 For Next 语句。For...Next 语句用于将语句块运行指定的次数，在循环中使用计数器变量，该变量的值随每一次循环增加或减少。
下面的示例将过程 MyProc 重复执行 50 次。For 语句指定计数器变量 x 及其起始值与终止值。Next 语句使计数器变量每次加 1。 Sub DoMyProc50Times()
Dim x
For x = 1 To 50
MyProc
Next
End Sub
关键字 Step 用于指定计数器变量每次增加或减少的值。在下面的示例中，计数器变量 j 每次加 2。循环结束后，total 的值为 2、4、6、8 和 10 的总和。
Sub TwosTotal()
Dim j, total
For j = 2 To 10 Step 2
total = total + j
Next
MsgBox \" 总和为 \" & total & \"。\"
End Sub
要使计数器变量递减，可将 Step 设为负值。此时计数器变量的终止值必须小于起始值。在下面的示例中，计数器变量 myNum 每次减 2。循环结束后，total 的值为 16、14、12、10、8、6、4 和 2 的总和。 Sub NewTotal()
Dim myNum, total
For myNum = 16 To 2 Step -2
total = total + myNum
Next
MsgBox \" 总和为 \" & total & \"。\"
End Sub
Exit For 语句用于在计数器达到其终止值之前退出 For...Next 语句。因为通常只是在某些特殊情况下（例如在发生错误时）要退出循环，所以可以在 If...Then...Else 语句的 True 语句块中使用 Exit For 语句。如果条件为 False，循环将照常运行。
最后，让我们来看看 For Each...Next 语句 ,For Each...Next 循环与 For...Next 循环类似。For Each...Next 不是将语句运行指定的次数，而是对于数组中的每个元素或对象集合中的每一项重复一组语句。这在不知道集合中元素的数目时非常有用。它的语法如下： For Each element In group
[statements]
[Exit For]
[statements]Next [element]
如果 group 中有至少一个元素，就会进入 For Each 块执行。一旦进入循环，便首先对 group 中第一个元素执行循环中的所有语句。只要 group 中还有其他的元素，就会对每个元素执行循环中的语句。当 group 中没有其他元素时退出循环，然后从 Next 语句之后的语句继续执行。
至此，我们已经完成了对脚本语言 VBScript 所有的基本知识的学习，但是仅凭阅读现有的这几篇文章你是无法熟练运用 VBScript 的，你必须通过不断的实践来提高自己的等级。当然，如果你熟悉 C，你也可以选择JavaScript 来作为 ASP 应用程序的脚本语言。不知大家有没有发现 ASP 程序的调试比较困难，因为没有什么现成的工具，在这里我向大家简要介绍一下 Microsoft Script Debugger，我们可以运用它来进行一定量的程序调试工作。
IIS4.0 所包括的 Microsoft Script Debugger（Script 侦错工具），提供脚本程序的侦错功能。您可以使用 Microsoft Script 侦错工具来进行对使用 VBScript、JScript 编写的脚本程序，以及 Java applets、beans 和 ActiveX 组件的侦错工作。
有的脚本程序在用户端浏览器执行，有的脚本程序（< % … %>中的部份）在服务器端执行。Microsoft Script Debugger，可以侦错用户端执行的脚本程序以及服务器端执行脚本程序。在用户端浏览器执行的脚本程序是在用户端的浏览器当中执行，包括在标准 HTML 代码中的 VBScript、Jscript 部份。在浏览器载入此 HTML 代码或譬如按下按钮触发事件时，将执行此包括脚本程序的 HTML 代码。用户端浏览器执行的脚本程序，主要用于对 HTML 表单输入的基本检查等功能。
在服务器端执行的脚本程序是在 IIS 服务器端执行，包括在 .asp 程序中。先在 IIS 服务器上执行，执行结果产生标准的 HTML 代码，再传送到用户端浏览器。服务器端执行的脚本程序，主要用于多个网页之间的连结，HTML 表单输入的处理，以及存取服务器上数据库的资料等。
Microsoft Script Debugger 提供以下的除错功能：
1、设定中断点
2、逐步追踪脚本程序。
3、设定书签。
4、检视呼叫堆叠。
5、检视和更改变数值。
6、执行脚本指令。

qcqwppp · 发表于 2009-11-6 18:04

动态网页制作asp学习(1-2)
1.7 ASP内建对象Request

从本篇开始作者从 ASP 内建对象着手，为大家详细剖析 ASP 的六个内建对象和各种组件的特性和方法。
在正式开始学习 ASP 的内建对象和组件之前，先让我们来认识一些基本概念，这将对各位今后的学习大有帮助。请看下表 :
Active Server 随 Windows NT 交付的服务器方技术的集合。这些技术为组件应用程序管理、数据库访问、事务和消息提供一致的服务器方组件、脚本模型和一套集成的系统服务。　　
Active Server Pages (ASP) 在服务器上运行 ActiveX 脚本和 ActiveX 组件的服务器方脚本环境。开发人员可以将脚本和组件结合在一起创建基于 Web 的应用程序。
ActiveX 允许开发人员为 World Wide Web 创建交互式组件的内涵丰富的Microsoft 技术术语。允许用不同语言编写的软件组件在网络环境中一起工作的一组不依赖语言的互操作技术。ActiveX 的关键元素是组件对象模型 (COM) 和分布组件对象模型 (DCOM)。这些技术已得到开放组织的许可，已移植到许多平台上。
ADOActive 数据对象。为基于 Internet 以数据为中心的应用程序而优化的一组基于对象的数据访问接口。ADO 基于已发布的规范并且随带在Microsoft Internet Information Server 和 Microsoft Visual InterDev 中。
DSN数据源名称。开放式数据库接口 (ODBC)用于引用访问数据所需的驱动程序或其他信息的逻辑名称。Internet信息服务器用于连接到 ODBC 数据源（如 SQL Server 数据库）的名称。
event: 事件由用户或 ActiveX 控件产生的程序响应的任何操作。一般事件包括按键盘键、通过使用鼠标单击选择按钮和其他鼠标操作。编程人员编写响应这些操作的代码。　　
object: 对象在面向对象编程中，由当作完整实体的操作和数据组成的变量。对象是基于特定模型的，在对象中客户使用对象的服务通过由一组方法或相关函数的接口访问对象的数据。然后客户端可以调用这些方法执行某中操作。
ODBC 开放式数据库接口。允许应用程序从各种跨平台数据访问的已有数据源标准规格中访问数据的应用程序编程接口。　　
SQL 结构化查询语言 Structured Query Language。定义和访问关系型数据库的国际标准。　　
　　

什么是对象？它可不是指你恋爱的男伴或女伴。在面向对象编程中，对象就是指由当作完整实体的操作和数据组成的变量。对象是基于特定模型的，在对象中客户使用对象的服务通过由一组方法或相关函数的接口访问对象的数据，然后客户端可以调用这些方法执行某中操作。ActiveX 组件是建立 Web 应用程序的关键，组件提供了在脚本中执行任务的对象。ActiveX 组件是一个文件，该文件包含执行某项或一组任务的代码，由于组件可以执行公用任务，这样程序员们就不必自己去创建执行这些任务的代码。可以利用组件作为脚本和基于 Web 应用程序的基本构造块。只要知道如何访问组件提供的对象，即使是位编写脚本的新手，也可以在不了解组件运作方式的情况下编写脚本。总之，组件使您不用学习编程就能够编写强大的脚本。组件是包含在动态链接库 .dll 或可执行文件 .exe 中的可执行代码。组件可以提供一个或多个对象以及对象的方法和属性。要使用组件提供的对象，请创建对象的实例并将这个新的实例分配变量名。使用 ASP 的 Server.CreateObject 方法可以创建对象的实例，使用脚本语言的变量分配指令可以为对象实例命名。如下例：
Set db=Server.CreateObject("ADODB.Connection") 这里的变量 db 就是 ASP 程序创建的访问数据库的对象实例。
Active Server Pages 提供了可在脚本中使用的内建对象。这些对象使用户更容易收集通过浏览器请求发送的信息、响应浏览器以及存储用户信息 , 从而使对象开发者摆脱了很多烦琐的工作。目前的 ASP 版本总共提供了六个内建对象，下面让我们将通过实例分别来进行学习。
一、Request 对象
可以使用 Request 对象访问任何基于 HTTP 请求传递的所有信息，包括从 HTML 表格用 POST 方法或 GET 方法传递的参数、cookie 和用户认证。Request 对象使您能够访问客户端发送给服务器的二进制数据。
Request 的语法 :
Request[. 集合 | 属性 | 方法 ]( 变量 )
在这里作者将挑选一些常用的对象语法进行分析
1、Form
Form 集合通过使用 POST 方法的表格检索邮送到 HTTP 请求正文中的表格元素的值。
语法
Request.Form(element)[(index)|.Count] 参数
element 指定集合要检索的表格元素的名称。
index 可选参数，使用该参数可以访问某参数中多个值中的一个。它可以是 1 到 Request.Form(parameter).Count 之间的任意整数。
Count 集合中元素的个数
Form 集合按请求正文中参数的名称来索引。Request.Form(element) 的值是请求正文中所有 element 值的数组。通过调用 Request.Form(element).Count 来确定参数中值的个数。如果参数未关联多个值，则计数为 1。如果找不到参数，计数为 0。要引用有多个值的表格元素中的单个值，必须指定 index 值。index 参数可以是从 1 到 Request.Form(element).Count 中的任意数字。如果引用多个表格参数中的一个，而未指定 index 值，返回的数据将是以逗号分隔的字符串。
可以使用重述符来显示表格请求中的所有数据值。例如，用户通过指定几个值填写表格，见下图。

对于 hobby 参数，您可以使用下面的脚本检索这些值。　　＜ html＞　　
＜ head＞＜ title＞＜ /title＞＜ /head＞　　＜ body＞　　
＜ p＞请填写你的爱好＜ /p＞　　
＜ form method="POST" action="form.asp"＞　　
＜ p＞＜ input type="text" name="hobby" size="20"＞＜ br＞　　
＜ input type="checkbox" name="hobby" value=" 足球 "＞足球＜ input type="checkbox" 　　name="hobby" value=" 乒乓球 "＞乒乓球＜ /p＞　　
＜ p＞＜ input type="submit" value=" 发送 " name="B1"＞＜ input type="reset" value=" 重填 " 　　name="B2"＞＜ /p＞　　
＜ /form＞　　
＜ % 　　For Each i In Request.Form("hobby") 　　Response.Write i & "＜ BR＞" 　　Next 　　%＞　　
＜ /body＞＜ /html＞
将以上代码剪贴到记事簿中（注意将“＜ ”后面的空格去掉），保存为 form.asp 文件并运行，request 对象可以根据你在 form 中填入或选择元素内容的不同将元素逐个显示出来。

当然使用 For...Next 循环也可以生成同样的输出，如下所示 :

　＜ %
　　For i = 1 To Request.Form("hobby").Count<
　　Response.Write Request.Form("hobby")(i) & "＜ BR＞"Next<
　　%＞

2、QueryString
　　 QueryString 集合检索 HTTP 查询字符串中变量的值 ,HTTP 查询字符串由问号 (?) 后的值指定。如：
　　＜ A HREF= "example.asp?string=this is a sample"＞string sample＜ /A＞
生成值为 "this is a sample" 的变量名字符串。通过发送表格或由用户在其浏览器的地址框中键入查询也可以生成查询字符串。

语法

Request.QueryString(variable)[(index)|.Count]
QueryString 集合可以让您以名称检索 QUERY_STRING 变量。Request.QueryString( 参数 ) 的值是出现在 QUERY_STRING 中所有参数的值的数组。通过调用Request.QueryString(parameter).Count 可以确定参数有多少个值。

我们也可以使用 QueryString 来达到与前一个范例相同的功能。只需要将 request.form 部分替换如下：

　＜ %
　For Each i In Request.querystring("hobby")
　Response.Write i & "＜ BR＞"
　Next
　%＞
3、Cookies

什么是 Cookie?Cookie 其实是一个标签，当你访问一个需要唯一标识你的站址的 WEB 站点时，它会在你的硬盘上留下一个标记，下一次你访问同一个站点时，站点的页面会查找这个标记。每个 WEB 站点都有自己的标记，标记的内容可以随时读取，但只能由该站点的页面完成。每个站点的 Cookie 与其他所有站点的 Cookie 存在同一文件夹中的不同文件内（你可以在 Windows 的目录下的 Cookie 文件夹中找到它们）。一个 Cookie 就是一个唯一标识客户的标记，Cookie 可以包含在一个对话期或几个对话期之间某个 WEB 站点的所有页面共享的信息，使用 Cookie 还可以在页面之间交换信息。Request 提供的 Cookies 集合允许用户检索在 HTTP 请求中发送的 cookie 的值。这项功能经常被使用在要求认证客户密码以及电子公告板、WEB 聊天室等 ASP 程序中。

语法

Request.Cookies(cookie)[(key)|.attribute]
参数

cookie 指定要检索其值的 cookie。

key 可选参数，用于从 cookie 字典中检索子关键字的值。

attribe 指定 cookie 自身的有关信息。如：HasKeys 只读，指定 cookie 是否包含关键字。

可以通过包含一个 key 值来访问 cookie 字典的子关键字。如果访问 cookie 字典时未指定 key，则所有关键字都会作为单个查询字符串返回。例如，如果 MyCookie 有两个关键字 , First 和 Second，而在调用 Request.Cookies 时并未指定其中任何一个关键字，那么将返回下列字符串。

First=firstkeyvalue&Second=secondkeyvalue
如果客户端浏览器发送了两个同名的 cookie，那么 Request.Cookie 将返回其中路径结构较深的一个。例如，如果有两个同名的的 cookie，但其中一个的路径属性为 /www/ 而另一个为 /www/home/，客户端浏览器同时将两个 cookie 都发送到 /www/home/ 目录中，那么 Request.Cookie 将只返回第二个 cookie。

要确定某个 cookie 是不是 cookie 字典（cookie 有否有关键字），可使用下列脚本。

　　＜ %= Request.Cookies("myCookie").HasKeys %＞
如果 myCookie 是一个 cookie 字典，则前面的赋值为 TRUE。否则，为 FALSE。下面我们来看看一个 cookie 的应用实例：

　　＜ %
　　nickname=request.form("nick")response.cookies("nick")=nickname
\' 用 response 对象将用户名写入 Cookie 之中
response.write " 欢迎 "&request.cookies("nick")&" 光临小站！"
%＞
　　＜ html＞＜ head＞＜ meta http-equiv="Content-Type" content="text/html; charset=gb2312"＞
＜ title＞cookie＜ /title＞
　　＜ meta name="GENERATOR" content="Microsoft FrontPage 3.0"＞＜ /head＞
　　＜ body＞
　　＜ form method="POST" action="cookie.asp"＞
　　＜ p＞＜ input type="text" name="nick" size="20"＞
＜ input type="submit" value=" 发送 " name="B1"＞＜ input type="reset" value=" 重填 " name="B2"＞＜ /p＞＜ /form＞
　　＜ /body＞＜ /html＞
这其实是一个在基于 WEB 的 BBS 或 CHAT 的 ASP 程序中常用的手法，它将用户在起始页面上填入的姓名保存在 cookie 中，这样后面的程序就可以很容易地调用该用户的 nick 了。

　　 4、ServerVariables

　　大家都知道在浏览器中浏览网页的时候使用的传输协议是 HTTP，在 HTTP 的标题文件中会记录一些客户端的信息，如 : 客户的 IP 地址等等，有时服务器端需要根据不同的客户端信息做出不同的反映，这时候就需要用 ServerVariables 集合获取所需信息。

　　语法

　　 Request.ServerVariables ( 服务器环境变量 )

　　由于服务器环境变量较多，作者仅将一些常用的变量在下表中列出 :

ALL_HTTP 客户端发送的所有 HTTP 标题文件。
CONTENT_LENGTH 客户端发出内容的长度。
CONTENT_TYPE 内容的数据类型。如：“text/html”。同附加信息的查询一起使用，如 HTTP 查询 GET、POST 和 PUT。
LOCAL_ADDR 返回接受请求的服务器地址。如果在绑定多个 IP 地址的多宿主机器上查找请求所使用的地址时，这条变量非常重要。
LOGON_USER 用户登录 Windows NT 的帐号。
QUERY_STRING 查询 HTTP 请求中问号（?）后的信息。
REMOTE_ADDR 发出请求的远程主机 (client) 的 IP 地址。
REMOTE_HOST 发出请求的主机 (client) 名称。如果服务器无此信息，它将设置为空的　MOTE_ADDR 变量。
REQUEST_METHOD 该方法用于提出请求。相当于用于 HTTP 的 GET、HEAD、POST等等。
SERVER_NAME 出现在自引用 URL 中的服务器主机名、DNS 化名或 IP 地址。
SERVER_PORT 发送请求的端口号。
我们可以使用以下脚本打印出所有的服务器环境变量。
＜ TABLE＞
　＜ TR＞＜ TD＞＜ B＞Server Variable＜ /B＞＜ /TD＞＜ TD＞＜ B＞Value＜ /B＞＜ /TD＞＜ /TR＞＜ % For Each name In Request.ServerVariables %＞
　＜ TR＞＜ TD＞＜ %= name %＞＜ /TD＞＜ TD＞＜ %= Request.ServerVariables(name) %＞＜ /TD＞＜ /TR＞＜ /TABLE＞
　＜ % Next %＞　　今天我们详细学习了 ASP 内建对象中的 request 对象，这也是 ASP 程序中使用最频繁的对象，希望大家在课后多多实践。

1.8 ASP内建对象Response

在上一篇中作者给大家详细介绍了 ASP 内建对象之一 Request 的使用方法，相信各位通过一系列的实践已经能够熟练掌握，本篇将继续给大家介绍 ASP 的另一个内建对象 Response。
一个不错的 ASP 论坛，你可以在那里贴你的问题，读取别人的问题和解答。
下面，我们开始学习 ASP 的另一个内建对象 Response。
与 Request 是获取客户端 HTTP 信息相反 ,Response 对象是用来控制发送给用户的信息，包括直接发送信息给浏览器、重定向浏览器到另一个 URL 或设置 cookie 的值。
语法
Response.collection|property|method
一、属性
1、Buffer
Buffer 属性指示是否缓冲页输出。当缓冲页输出时，只有当前页的所有服务器脚本处理完毕或者调用了 Flush 或 End 方法后，服务器才将响应发送给客户端浏览器，服务器将输出发送给客户端浏览器后就不能再设置 Buffer 属性。因此应该在 .asp 文件的第一行调用 Response.Buffer。
2、Charset
Charset 属性将字符集名称附加到 Response 对象中 content-type 标题的后面。对于不包含 Response.Charset 属性的 ASP 页，content-type 标题将为 :content-type:text/html。
我们可以在 .asp 文件中指定 content-type 标题，如 :
　　 < % Response.Charset="gb2312") %>
将产生以下结果 :
　　 content-type:text/html; charset=gb2312
注意，无论字符串表示的字符集是否有效，该功能都会将其插入 content-type 标题中。且如果某个页包含多个含有 Response.Charset 的标记，则每个 Response.Charset 都将替代前一个 CharsetName。这样，字符集将被设置为该页中 Response.Charset 的最后一个实例所指定值。
3、ContentType
ContentType 属性指定服务器响应的 HTTP 内容类型。如果未指定 ContentType，默认为 text/HTML。
4、Expires
Expires 属性指定了在浏览器上缓冲存储的页距过期还有多少时间。如果用户在某个页过期之前又回到此页，就会显示缓冲区中的页面。如果设置 response.expires=0，则可使缓存的页面立即过期。这是一个较实用的属性，当客户通过 ASP 的登陆页面进入 WEB 站点后，应该利用该属性使登陆页面立即过期，以确保安全。
5、ExpiresAbsolute
与 Expires 属性不同 ExpiresAbsolute 属性指定缓存于浏览器中的页面的确切到期日期和时间。在未到期之前，若用户返回到该页，该缓存中的页面就显示。如果未指定时间，该主页在当天午夜到期。如果未指定日期，则该主页在脚本运行当天的指定时间到期。如下示例指定页面在 1998 年 12 月 10 日上午 9:00 分 30 秒到期。
　　 < % Response.ExpiresAbsolute=#Dec 12,1998 9:00:30# %>
二、方法
1、Clear
可以用 Clear 方法清除缓冲区中的所有 HTML 输出。但 Clear 方法只清除响应正文而不清除响应标题。可以用该方法处理错误情况。但是如果没有将 Response.Buffer 设置为 TRUE，则该方法将导致运行时错误。
2、End
End 方法使 Web 服务器停止处理脚本并返回当前结果。文件中剩余的内容将不被处理。如果 Response.Buffer 已设置为 TRUE，则调用 Response.End 将缓冲输出。
3、Flush
Flush 方法立即发送缓冲区中的输出。如果没有将 Response.Buffer 设置为 TRUE，则该方法将导致运行时错误。
4、Redirect
Redirect 方法使浏览器立即重定向到程序指定的 URL。这也是一个我们经常用到方法，这样程序员就可以根据客户的不同响应，为不同的客户指定不同的页面或根据不同的情况指定不同的页面。一旦使用了 Redirect 方法任何在页中显式设置的响应正文内容都将被忽略。然而，此方法不向客户端发送该页设置的其他 HTTP 标题，将产生一个将重定向 URL 作为链接包含的自动响应正文。Redirect 方法发送下列显式标题，其中 URL 是传递给该方法的值。如:
　　 < % Response.redirect("www.chinabyte.com") %>
5、Write
Write 方法是我们平时最常用的方法之一，它是将指定的字符串写到当前的 HTTP 输出。
三、集合
Response 对象只有一个集合 --Cookie
Cookies 集合设置 cookie 的值。若指定的 cookie 不存在，则创建它。若存在，则设置新的值并且将旧值删去。
语法
　　 Response.Cookies(cookie)[(key)|.attribute]=value
这里的 cookie 是指定 cookie 的名称。而如果指定了 key，则该 cookie 就是一个字典。attribute 指定 cookie 自身的有关信息。attribute 参数可以是下列之一 :
Domain 若被指定，则 cookie 将被发送到对该域的请求中去。
Expires 指定 cookie 的过期日期。为了在会话结束后将 cookie 存储在客户端磁盘上，必须设置该日期。若此项属性的设置未超过当前日期，则在任务结束后 cookie 将到期。
HasKeys 指定 cookie 是否包含关键字。
Path 若被指定，则 cookie 将只发送到对该路径的请求中。如果未设置该属性，则使用应用程序的路径。
至此，我们已经学习的 Response 对象的所有属性、方法和集合的理论知识，下面作者将给大家演示一段简单的程序，通过实践让大家加深理解。先将以下程序剪贴到记事簿中，并保存为 asp7.asp。( 注意将 < 和 % 之间的空格去掉 !!!)
　　< %
　　Dim user
Dim flag
Dim pwd
　　Dim say
Response.buffer=true \\\' 开启缓冲页面功能
Response.ContentType="text/HTML"
　　Response.Charset="gb2312"
　　user=Request.Form("username")
pwd=Request.Form("password")
say=Request.QueryString("say")
%>
　　< form method="POST" action="asp7.asp">
　　< p>用户名 :< input type="text" name="username" size="12">< br>
　　口令 :< input type="password" name="password" size="12">< br>
　　< input type="submit" value=" 提交 " name="B1">< input type="reset" value=" 取消 " name="B2">< /p>< /form>
　　< %
　　If say=1 then
　　Response.Write " 欢迎书生大驾光临 !"
End If
　　If say >1 then
　　Response.Write " 欢迎再次光临书生的 ASP 网站 !"
End If
　　If user="Adm" and pwd="shusheng" Then
　　Response.Expires=1 \\\' 设置该页面在浏览器的缓冲中存储 1 分钟后过期。
　　flag=1
　　ElseIf user="guest" and pwd="guest" Then
　　Response.Expires=0 \\\' 使缓存的页面立即过期。
　　Response.Clear \\\' 清空存储在缓存中的页面
　　flag=2
　　ElseIf user="vip" and pwd="vip" Then
　　Response.Write " 欢迎 VIP 光临书生的 ASP 网站 "
　　flag=3
　　Else
　　flag=0
　　Response.End \\\' 立即停止脚本处理，并将缓存中的页面输出
End If
　　Response.write "< p>< a href=\\\'asp7b.asp?flag="&flag&"\\\'>动态网站设计十八般武艺 --ASP 篇 (7) 实践练习 < /a>< /p>"
\\\' 将变量 flag 的值传送给 asp7b.asp
　　%>
　　< p>动态网站设计十八般武艺 --ASP 篇 (7) 实践练习 < /p>
　　再将以下程序保存为 asp7b.asp。
　　< %
　　Dim saysay=Request.QueryString("flag")
Select case say
　　case "1"
　　Response.Redirect "asp7.asp?say=1"
case "2"
　　Response.Redirect "asp7.asp?say=2"
case "3"
　　Response.Redirect "asp7.asp?say=3"
case "0"
　　Response.Redirect "asp7.asp?say=0"
End Select
　　%>
将这两个程序放在有执行权限的 WEB 虚拟目录下，并以 http 方式访问 asp7.asp。在这两个程序中我们充分运用了至今为止所学过的两个 ASP 内建对象 :Request 和 Response。当你第一次访问 asp7.asp 文件时，页面上出现一个 Form 并提示输入用户名和口令，如果你输入用户名 :Adm、口令 :shusheng, 则会出现如下页面 :

如果你输入用户名 :guest、口令 :guest, 则仅出现如下页面 :

这是为什么呢？因为我们设置了页面缓存，当使用 guest 登陆时，判断程序自动清空其之前所有存储在缓存中的页面，而仅将其后脚本程序执行的结果显示出来。
那为什么第一次登陆 asp7.asp 页面时仅仅只显示一个 Form 对话框呢？因为此时程序判断到用户既非 Adm, 也不是 guest 和 vip，所以执行 Response.End, 立即将存储在缓存中的 Form 显示出来，并停止其后的一切脚本处理，包括纯 HTML 代码的显示。
无论你是用 Adm 还是 guest 或 vip 登陆该页面你都可以看到一个超链，该超链指向文件 asp7b.asp，当我们点击该超链时，asp7.asp 将变量 flag 的值作为参数发送给 asp7b.asp, 而后者则根据该参数的值来做出判断，并依据不同情况使用 Response.Redirect 再强行返回 asp7.asp, 并也将一个变量 say 的值作为参数发送给 asp7.asp。如此一来，asp7.asp 又会根据此参数来做出不同的反应。
大家现在都看到了我们仅仅用了两个很简单的程序，就可以做到对同一个页面的多种不同显示结果，这正是 ASP 的魅力所在，各位可以以此示范程序为基础，来进行一些改动，以熟练掌握我们所学的这两个内建对象。

1.9 ASP内建对象Application 和 Session

在上一篇中作者给大家详细介绍了 ASP 内建对象 Response 的使用方法，在这一篇中作者将继续给大家介绍另两个非常实用且重要的 ASP 的内建对象 Application 和 Session。
在 ASP 的内建对象中除了用于发送、接收和处理数据的对象外，还有一些非常实用的代表 Active Server 应用程序和单个用户信息的对象。
让我们先来看看 Application 对象。在同一虚拟目录及其子目录下的所有 .asp 文件构成了 ASP 应用程序。我们非但可以使用 Application 对象，在给定的应用程序的所有用户之间共享信息，并在服务器运行期间持久的保存数据。而且，Application 对象还有控制访问应用层数据的方法和可用于在应用程序启动和停止时触发过程的事件。
下面就让我们一起来学习 Application 对象。
一、属性
虽然 Application 对象没有内置的属性，但我们可以使用以下句法设置用户定义的属性也可称为集合。
Application(" 属性 / 集合名称 ")= 值
我们可以使用如下脚本声明并建立 Application 对象的属性。
< %
Application("MyVar") = "Hello"
Set Application("MyObj") = Server.CreateObject("MyComponent")
%>
一旦我们分配了 Application 对象的属性，它就会持久地存在，直到关闭 WEB 服务器服务使得 Application 停止。由于存储在 Application 对象中的数值可以被应用程序的所有用户读取，所以 Application 对象的属性特别适合在应用程序的用户之间传递信息。
二、方法
Application 对象有两个方法，它们都是用于处理多个用户对存储在 Application 中的数据进行写入的问题
1、Lock 方法禁止其他客户修改 Application 对象的属性。
Lock 方法阻止其他客户修改存储在 Application 对象中的变量，以确保在同一时刻仅有一个客户可修改和存取 Application 变量。如果用户没有明确调用 Unlock 方法，则服务器将在 .asp 文件结束或超时后即解除对 Application 对象的锁定。
让我们来看看下面这段用 Application 来记录页面访问次数的程序 :
< %
Dim NumVisitsNumVisits=0
Application.LockApplication("NumVisits") = Application("NumVisits") + 1
Application.Unlock
%>
欢迎光临本网页，你是本页的第 < %= Application("NumVisits") %>位访客 !
将以上脚本保存在你的 .asp 文件中，就轻而易举地给你的页面添加了一个计数器。
2、和 Lock 方法相反，Unlock 方法允许其他客户修改 Application 对象的属性。
在上面的例子中，上述例子中，Unlock 方法解除对象的锁定，使得下一个客户端能够增加 NumVisits 的值。
三、事件
1、Application_OnStart
Application_OnStart 事件在首次创建新的会话 ( 即 Session_OnStart 事件 ) 之前发生。当 WEB 服务器启动并允许对应用程序所包含的文件进行请求时就触发 Application_OnStart 事件。Application_OnStart 事件的处理过程必须写在 Global.asa 文件之中。
Application_OnStart 事件的语法如下 :
< SCRIPT LANGUAGE=ScriptLanguage RUNAT=Server>
Sub Application_OnStart. . .
End Sub
< /SCRIPT>
2、Application_OnEnd
Application_OnEnd 事件在应用程序退出时于 Session_OnEnd 事件之后发生，Application_OnEnd 事件的处理过程也必须写在 Global.asa 文件之中。
下面让我们来看看在使用 Application 对象时必须注意的一些事项。
不能在 Application 对象中存储 ASP 内建对象。例如，下面的每一行都返回一个错误。
< %
Set Application("var1")=Session
Set Application("var2")=Request
Set Application("var3")=Response
Set Application("var4")=Server
Set Application("var5")=Application
Set Application("var6")=ObjectContext
%>
若您将一个数组存储在 Application 对象中，请不要直接更改存储在数组中的元素。例如，下列的脚本无法运行。

< % Application("StoredArray")(3) = "new value" %>
这是因为 Application 对象是作为集合被实现的。数组元素 StoredArray(3) 未获得新的赋值。而此值将包含在 Application 对象集合中，并将覆盖此位置以前存储的任何信息。建议您在将数组存储在 Application 对象中时，在检索或改变数组中的对象前获取数组的一个副本。在对数组操作时，您应再将数组全部存储在 Application 对象中，这样您所做的任何改动将被存储下来。下列的脚本对此进行演示。
---asp8a.asp---
< %
dim MyArray()
Redim MyArray(5)
MyArray(0)="hello"
MyArray(1)="some other string"
Application.Lock
Application("StoredArray")=MyArray
Application.Unlock
Response.Redirect "asp8b.asp"
%>
---asp8b.asp---

< %
LocalArray=Application("StoredArray")
LocalArray(1)=" there"
Response.Write LocalArray(0)&LocalArray(1)
Application.Lock
Application("StoredArray")=LocalArray
Application.Unlock
%>
与 Application 对象具有相近作用的另一个非常实用的 ASP 内建对象就是 Session。我们可以使用 Session 对象存储特定的用户会话所需的信息。当用户在应用程序的页之间跳转时，存储在 Session 对象中的变量不会清除，而用户在应用程序中访问页面时，这些变量始终存在。当用户请求来自应用程序的 Web 页时，如果该用户还没有会话，则 Web 服务器将自动创建一个 Session 对象。当会话过期或被放弃后，服务器将终止该会话。

通过向客户程序发送唯一的 Cookie 可以管理服务器上的 Session 对象。当用户第一次请求 ASP 应用程序中的某个页面时，ASP 要检查 HTTP 头信息，查看是否有在报文中有名为 ASPSESSIONID 的 Cookie 发送过来，如果有，则服务器会启动新的会话，并为该会话生成一个全局唯一的值，在把这个值作为新 ASPSESSIONID Cookie 的值发送给客户端，正是使用这种 Cookie，可以访问存储在服务器上的属于客户程序的信息。Session 对象最常见的作用就是存储用户的首选项。例如，如果用户指明不喜欢查看图形，就可以将该信息存储在 Session 对象中。另外其还经常被用在鉴别客户身份的程序中。要注意的是，会话状态仅在支持 cookie 的浏览器中保留，如果客户关闭了 Cookie 选项，Session 也就不能发挥作用了。
一、属性
1、SessionID
SessionID 属性返回用户的会话标识。在创建会话时，服务器会为每一个会话生成一个单独的标识。会话标识以长整形数据类型返回。在很多情况下 SessionID 可以用于 WEB 页面注册统计。
2、TimeOut
Timeout 属性以分钟为单位为该应用程序的 Session 对象指定超时时限。如果用户在该超时时限之内不刷新或请求网页，则该会话将终止。
二、方法
Session 对象仅有一个方法，就是 Abandon，Abandon 方法删除所有存储在 Session 对象中的对象并释放这些对象的源。如果您未明确地调用 Abandon 方法，一旦会话超时，服务器将删除这些对象。当服务器处理完当前页时，下面示例将释放会话状态。
< % Session.Abandon %>
三、事件
Session 对象有两个事件可用于在 Session 对象启动和释放是运行过程。
1、Session_OnStart 事件在服务器创建新会话时发生。服务器在执行请求的页之前先处理该脚本。Session_OnStart 事件是设置会话期变量的最佳时机，因为在访问任何页之前都会先设置它们。
尽管在 Session_OnStart 事件包含 Redirect 或 End 方法调用的情况下 Session 对象仍会保持，然而服务器将停止处理 Global.asa 文件并触发 Session_OnStart 事件的文件中的脚本。
为了确保用户在打开某个特定的 Web 页时始终启动一个会话，就可以在 Session_OnStart 事件中调用 Redirect 方法。当用户进入应用程序时，服务器将为用户创建一个会话并处理 Session_OnStart 事件脚本。您可以将脚本包含在该事件中以便检查用户打开的页是不是启动页，如果不是，就指示用户调用 Response.Redirect 方法启动网页。程序如下 :
< SCRIPT RUNAT=Server Language=VBScript>
Sub Session_OnStart
startPage = "/MyApp/StartHere.asp"
currentPage = Request.ServerVariables("SCRIPT_NAME")
if strcomp(currentPage,startPage,1) then
Response.Redirect(startPage)
end if
End Sub
< /SCRIPT>
上述程序只能在支持 cookie 的浏览器中运行。因为不支持 cookie 的浏览器不能返回 SessionID cookie，所以，每当用户请求 Web 页时，服务器都会创建一个新会话。这样，对于每个请求服务器都将处理 Session_OnStart 脚本并将用户重定向到启动页中。
2、Session_OnEnd 事件在会话被放弃或超时发生。
关于使用 Session 对象需要注意的事项 Application 对象相近，请参照前文。
会话可以通过以下三种方式启动 :
1、一个新用户请求访问一个 URL，该 URL 标识了某个应用程序中的 .asp 文件，并且该应用程序的 Global.asa 文件包含 Session_OnStart 过程。
2、用户在 Session 对象中存储了一个值。
3、用户请求了一个应用程序的 .asp 文件，并且该应用程序的Global.asa 文件使用 < OBJECT>标签创建带有会话作用域的对象的实例。
如果用户在指定时间内没有请求或刷新应用程序中的任何页，会话将自动结束。这段时间的默认值是 20 分钟。可以通过在 Internet 服务管理器中设置“应用程序选项”属性页中的“会话超时”属性改变应用程序的默认超时限制设置。应依据您的 Web 应用程序的要求和服务器的内存空间来设置此值。例如，如果您希望浏览您的 Web 应用程序的用户在每一页仅停留几分钟，就应该缩短会话的默认超时值。过长的会话超时值将导致打开的会话过多而耗尽您的服务器的内存资源。对于一个特定的会话，如果您想设置一个小于默认超时值的超时值，可以设置 Session 对象的 Timeout 属性。例如，下面这段脚本将超时值设置为 5 分钟。
< % Session.Timeout = 5 %>
当然你也可以设置一个大于默认设置的超时值，Session.Timeout 属性决定超时值。你还可以通过 Session 对象的 Abandon 方法显式结束一个会话。例如，在表格中提供一个“退出”按钮，将按钮的 ACTION 参数设置为包含下列命令的 .asp 文件的 URL。
< % Session.Abandon %>
今天，我们学习了两个在 WEB 页面特别是基于 WEB 的 BBS 或 Chat 上经常使用 ASP 内建对象，由于这两个对象在实际运用中很实用，因此在下一篇中作者将运用至此我们所学过的 4 个 ASP 内建对象，给大家演示一个完整的 ASP 应用程序，相信通过这个练习，能大大加深你对 ASP 应用程序的理解和掌握。

1.1 0Global.asa文件的使用及Chat程序

在上一篇中作者给大家详细介绍了两个非常实用的 ASP 内建对象 Application 和 Session 的使用方法。由于这两者的 OnStart、OnEnd 事件的脚本都必须在 Global.asa 文件中声明 , 因此，本篇将给大家详细介绍 Global.asa 文件的使用方法。为使大家熟练掌握至今所学过的知识，本篇还将举出一个 ASP 的 Chat 程序，供各位参考。
最近很多朋友来信问我，为什么前两期的范例程序运行时有这样那样的错。首先，我要向大家声明，这些程序都是我自己写的，在出“厂”前都经过合格检验，绝无“假冒伪劣产品”。:) 由于程序中使用了 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 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 文件根据不同情况给客户显示不同的界面。

1.11 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 服务管理器，被取而代之为 Microsoft 管理控制台，简称 MMC。其界面如下图:

那么如何安装 IIS4.0 呢？在 NT4.0 上安装 IIS4.0 时，你的系统中必须已经安装了 NT SP3，以及 Internet Explorer4.01，注意这里的 Internet Explorer 的版本必须是 4.01，版本号为 4.72.3110.8。这点很重要，否则你将不能安装 IIS4.0。作者为了安装该版本特意花费了一个晚上在微软的站点上升级 IE 版本。
IIS 支持虚拟目录，通过在“服务器属性”对话框中的“目录”标签可以管理虚拟目录。建立虚拟目录对于管理 WEB 站点具有非常重要的意义。首先，虚拟目录隐藏了有关站点目录结构的重要信息。因为在浏览器中，客户通过选择“查看源代码”，很容易就能获取页面的文件路径信息，如果在 WEB 页中使用物理路径，将暴露有关站点目录的重要信息，这容易导致系统受到攻击。其次，只要两台机器具有相同的虚拟目录，你就可以在不对页面代码做任何改动的情况下，将 WEB 页面从一台机器上移到另一台机器。还有就是，当你将 WEB 页面放置于虚拟目录下后，你可以对目录设置不同的属性，如：Read、Excute、Script。读访问表示将目录内容从 IIS 传递到浏览器。而执行访问则可以使在该目录内执行可执行的文件。当你需要使用 ASP 时，就必须将你存放 .asp 文件的目录设置为“Excute（执行）”。作者建议大家在设置 WEB 站点时，将 HTML 文件同 ASP 文件分开放置在不同的目录下，然后将 HTML 子目录设置为“读”，将 ASP 子目录设置为“执行”，这不仅方便了对 WEB 的管理，而且最重要的提高了 ASP 程序的安全性，防止了程序内容被客户所访问。因为在今年 7 月底的时候 IIS 被一些网络高手发现了一个可怕的 bug，那就是，当你在一个站点的 .asp 文件后加上 ::$DATA 后，客户将能在浏览器中看到该 .asp 文件的所有源代码，这对于一个站点来说是非常可怕的。当然微软已经针对这个 bug，编写了补丁，但是为了彻底杜绝这种可能性的发生，作者还一建议大家不要将 .asp 所在的目录设置为可读。
我想，现在各位应该已经完全了解 ASP 的服务器端设置了，下面我们就进入正题 -- 学习 ASP 的最后一个内建对象 Server。
Server 对象提供对服务器上的方法和属性的访问 , 其中大多数方法和属性是作为实用程序的功能服务的。有了 Server 对象，你就可以在服务器上启动 ActiveX 对象例程，并使用 Active Server 服务提供象 HTML 和 URL 编码这样的函数。
一、语法
Server.property|method
二、属性
ScriptTimeout 超时值，在脚本运行超过这一时间之后即作超时处理。如下代码指定服务器处理脚本在 100 秒后超时。
< % Server.ScriptTimeout=100 %>
这里需要注意的是，通过使用元数据库中的 AspScriptTimeout 属性可以为 Web 服务或 Web 服务器设置缺省的 ScriptTimeout 值。ScriptTimeout 属性不能设置为小于在元数据库中指定的值。例如，如果 NumSeconds 设置为 60，而元数据库设置包含了默认值 90 秒，则脚本在 90 秒后超时。
三、方法
1、HTMLEncode 方法
HTMLEncode 方法允许你对特定的字符串进行 HTML 编码，虽然 HTML 可以显示大部分你写入 ASP 文件中的文本，但是当你需要实际包含 HTML 标记中所使用的字符，就会遇到问题。这是因为，当浏览器读到这样的字符串时，会试图进行解释。例如下面的这段文本 :
这是对 HTMLEncode 方法的测试。< br>这里应该不会另起一行。
会被浏览器显示为 :
这是对 HTMLEncode 方法的测试。
这里应该不会另起一行。
为了避免此类问题，我们就需要使用 Server 对象的 HTMLEncode 方法，采用对应的不由浏览器解释的 HTML Character Code 替代 HTML 标记字符。所以，用下面的代码才能显示正确的 HTMLEncode 字符串，从而在浏览器中按你的需要输出文本。
< %
Response.write Server.HTMLEncode(" 这是对 HTMLEncode 方法的测试。< br>这里应该不会另起一行。")
%>
2、URLEncode 方法
就象 HTMLEncode 方法使客户可以将字符串翻译成可接受的 HTML 格式一样，Server 对象的 URLEncode 方法可以根据 URL 规则对字符串进行正确编码，当字符串数据以 URL 的形式传递到服务器时，在字符串中不允许出现空格，也不允许出现特殊字符。为此，如果你希望在发送字符串之前进行 URL 编码，可以使用 Server.URLEncode 方法。
3、MapPath 方法
MapPath 方法将指定的相对或虚拟路径映射到服务器上相应的物理目录上。
语法如下 :Server.MapPath(Path)
Path 指定要映射物理目录的相对或虚拟路径。若 Path 以一个正斜杠 (/) 或反斜杠 (\\) 开始，则 MapPath 方法返回路径时将 Path 视为完整的虚拟路径。若 Path 不是以斜杠开始，则 MapPath 方法返回同 .asp 文件中已有的路径相对的路径。这里需要注意的是 MapPath 方法不检查返回的路径是否正确或在服务器上是否存在。
对于下列示例，文件 data.txt 和包含下列脚本的 test.asp 文件都位于目录 C:\\Inetpub\\Wwwroot\\asp 下。C:\\Inetpub\\Wwwroot 目录被设置为服务器的宿主目录。下列示例使用服务器变量 PATH_INFO 映射当前文件的物理路径。以下脚本
< %= server.mappath(Request.ServerVariables("PATH_INFO"))
%>
输出
c:\\inetpub\\wwwroot\\asp\\test.asp
由于下列示例中的路径参数不是以斜杠字符开始的，所以它们被相对映射到当前目录，此处是目录 C:\\Inetpub\\Wwwroot\\asp。以下脚本
< %= server.mappath("data.txt")%>
< %= server.mappath("asp/data.txt")%>
输出
c:\\inetpub\\wwwroot\\asp\\data.txt
c:\\inetpub\\wwwroot\\asp\\asp\\data.txt
4、CreateObject 方法
Server.CreateObject 恐怕是 ASP 中最为实用，也是最强劲的功能了。它用于创建已经注册到服务器上的 ActiveX 组件实例。这是一个非常重要的特性，因为通过使用 ActiveX 组件能够使你轻松地扩展 ActiveX 的能力，正是使用了 ActiveX 组件，你可以实现至关重要的功能，譬如数据库连接、文件访问、广告显示和其他 VBScript 不能提供或不能简单地依靠单独使用 ActiveX 所能完成的功能。正是因为这些组件才使得 ASP 具有了强大的生命力。
其语法如下：
Server.CreateObject("Component Name")
默认情况下，由 Server.CreateObject 方法创建的对象具有页作用域。这就是说，再当前 ASP 页处理完成之后，服务器将自动破坏这些对象。如果要创建有会话或应用程序作用域的对象，可以使用 < OBJECT>标记并设置 SESSION 或 APPLICATION 的 SCOPE 属性，也可以在对话及应用程序变量中存储该对象。如下例程 :
< % Set Session("ad") = Server.CreateObject("MSWC.AdRotator")%>
这里需要注意的是，不能创建与内建对象同名的对象实例，否则，如下列脚本将返回错误。
< % Set Response = Server.CreateObject("Response") %>

qcqwppp · 发表于 2009-11-6 18:06

至今为止，我们已经学习完了 ASP 所有的内建对象，不知大家是不是很兴奋？其实 ASP 是很简单的，只要大家不断的实践，相信一段时间后都不难成为 ASP 的高手。

qcqwppp · 发表于 2009-11-6 18:08

相信很多朋友都听说过 SQL 这个名字，如果你是计算机方面的行家，SQL 的大名一定是如雷贯耳。那么 SQL 究竟是什么呢？SQL 一词实际上是 "Structured Query Language" 结构式查询语言的缩写，是用于对存放在计算机数据库中的数据进行组织、管理和检索的一种工具；是一种特定类型的数据库 -- 关系数据库。而控制这种数据库的计算机程序就是我们常说的 DBMS-- 数据库管理系统。譬如：SQL Server、Oracle、Sybase、DB2 等等。当用户想要检索数据库中的数据时，就通过 SQL 语言发出请求，接着 DBMS 对该 SQL 请求进行处理并检索所要求的数据，最后将其返回给用户，此过程被称作为数据库查询，这也就是数据库查询语言这一名称的由来。
SQL 并不是象 C、COBOL 和 Fortran 语言那样的完整的计算机语言。SQL 没有用于条件测试的 IF 语句，也没有用于程序分支的 Goto 语句以及循环语句 For 或 Do。确切的讲，SQL 是一种数据库子语言，SQL 语句可以被嵌入到另一种语言中，从而使其具有数据库存取功能。SQL 也非严格的结构式语言，它的句法更接近英语语句，因此易于理解，大多数 SQL 语句都是直述其意，读起来就象自然语言一样明了。SQL 还是一种交互式查询语言，允许用户直接查询存储数据，利用这一交互特性，用户可以在很短的时间内回答相当复杂的问题，而同样问题若让程序员编写相应的报表程序则可能要用几个星期甚至更长时间。
在大部分 ASP 应用程序中我们都会接触到数据库，而我们在编写 ASP 应用程序时用来进行数据库操作的标准语法正是 SQL，因此 SQL 语法的重要性是不言而喻的。下面，我们就从最常用的 SQL 语句 SELECT 着手，一步一步地来学习 SQL。
查询是 SQL 语言的核心，而用于表达 SQL 查询的 SELECT 语句则是功能最强也是最为复杂的 SQL 语句，它从数据库中检索数据，并将查询结果提供给用户。在本文中我们将建立一个名为 tianjiao 的简单数据库，该库中存放了一个叫 sales 的销售记录表，如下所示 :
姓名性别工资销售目标销售额地区书生男250080009000上海吴冠军男3000100009999北京雷鸣男2000800010000四川雪儿女250050006000广州顾一男260090009800大连阿卓女200040004000天津熠天男40002000020000全国
在该表中有六列即六个字段 : 姓名、性别、工资、销售目标、销售额、地区，首先我们用 Select 语句列出姓名、销售目标和销售额 :
Select 姓名，销售目标，销售额 From sales
结果如下 : 姓名销售目标销售额书生80009000吴冠军100009999雷鸣800010000雪儿50006000顾一90009800阿卓40004000熠天2000020000
然后，我们再列出所有男性的姓名、销售目标和销售额 :
Select 姓名，销售目标，销售额 From sales Where 性别 =" 男 "
结果如下 :姓名销售目标销售额书生80009000吴冠军100009999雷鸣800010000顾一90009800熠天2000020000
接下来，我们做一个相对复杂的查询，列出销售额大于销售目标的所有男性的姓名、销售目标和销售额，并且按销售目标排序。
Select 姓名，销售目标，销售额
Form sales
Where 销售额 >销售目标
And 性别 =" 男 "
Order By 销售目标
结果如下 : 姓名销售目标销售额书生80009000雷鸣800010000顾一90009800熠天2000020000
大家可以看到，对于简单查询，SQL Select 语句和英文语法很相象，我们来分析一下 SELECT 语句的完整格式，它包括六个子句，其中 SELECT 和 FROM 子句是必须的，其它子句可以任选，每个子句的功能如下 :
1、Select 子句列出所有要求 SELECT 语句检索的数据项。它放在 SELECT 语句开始处，指定此查询要检索的数据项。这些数据项通常用选择表表示，即一组用“，”隔开的选择项。按照从左到右的顺序，每个选择项产生的一个列的查询结果，一个选择项可能是以下项目：
(1)、列名：标识 FROM 子句指定表中的列。如果列名作为选择项，则 SQL 直接从数据库表中每行取出该列的值，再将其放在查询结果的相应行中。
(2)、常数：指定在查询结果的每行中都放上该值。
(3)、SQL 表达式：说明必须将要放入查询结果中的值按表达式的规定进行计算。
2、From 子句列出包含所要查询数据的表，它由关键字 FROM 后跟一组用逗号分开的表名组成。每个表明都代表一个包括该查询要检索数据的表。这些表称为此 SQL 语句的表源，因为查询结果都源于它们。
3、Where 子句告诉 SQL 只查询某些行中的数据，这些行用搜索条件描述。
4、Group By 子句指定汇总查询，即不是对每行产生一个查询结果，而是将相似的行进行分组，再对每组产生一个汇总结果。
5、Having 子句告诉 SQL 只产生有 Group By 得到的某些组的结果，和 Where 子句一样，所需要的组也用一个搜索条件指定。
6、Order By 子句将查询结果按一列或多列中的数据排序。如果省略此子句，则查询结果将是无序的。
下面作者将提供一个简单但实用的运用 SQL 语句查询的 ASP 程序供大家参考。
为了使大家更清楚更直接地了解 SQL 语法在 ASP 中的应用，我们先将查询的所有核心过程写成一个名为 query2table 的 SUB，然后利用 ASP 的服务器端包容功能调用该 SUB。请将以下语句剪贴到记事簿，保存为 subdbtable.inc 文件，并置于虚拟目录 asptest 下 :
< %
sub query2table(inputquery)
set conntemp=server.createobject("adodb.connection")
conntemp.open "DSN=Student;uid=student;pwd=aspmagic"
set rstemp=conntemp.execute(inputquery)
howmanyfields=rstemp.fields.count -1
\' 统计数据库中的列数
%>
< table border=1>< tr>
< %
for i=0 to howmanyfields
%>
< td>< b>< %=rstemp(i).name%>< /B>< /TD>
< % next %>
< /tr>
< %
do while not rstemp.eof
%>
< tr>
< % for i = 0 to howmanyfields
thisvalue=rstemp(i)
If isnull(thisvalue) then
thisvalue="?
\' 如果字段为空，则将变量 thisvalue 的值定义为一个空格
end if%>
< td valign=top>< %=thisvalue%>< /td>
< % next %>
< /tr>
< %rstemp.movenext
loop%>
< /table>
< %
rstemp.close
set rstemp=nothing
conntemp.close
set conntemp=nothingend sub%>
完成了 SUB 的定义过程，在下面几个 ASP 程序中我们只要加入想要使用的 SQL 查询语句，并调用该过程就可以非常方便的得到查询结果。将以下四段代码分别保存为 asp11a.asp、asp11b.asp、asp11c.asp、asp11d.asp 四个 .asp 文件。
< HEAD>< TITLE>asp11a.asp< /TITLE>< /HEAD>
< HTML>< body bgcolor="#FFFFFF">
< %
call query2table("select * from publishers where name like \'A%%\'")
\' 将表 publishers 中所有姓名中有字母 A 的记录查询出来
%>
< !--#include virtual="/asptest/subdbtable.inc"-->< /BODY>< /HTML>
< HEAD>< TITLE>asp11b.asp< /TITLE>< /HEAD>< HTML>< body bgcolor="#FFFFFF">
< %
call query2table("select * from titles where Year_Published >= 1998")
\' 将表 titles 中所有发表年份大于或等于 1998 年的记录查询出来
%>
< !--#include virtual="/asptest/subdbtable.inc"-->< /BODY>< /HTML>
< HEAD>< TITLE>asp11c.asp< /TITLE>< /HEAD>< HTML>< body bgcolor="#FFFFFF">
< %
call query2table("select * from publishers where amount>10000 and sex=\'male\'")
\' 将表 publishers 中所有数量大于 10000 且性别为男的记录查询出来
%>
< !--#include virtual="/asptest/subdbtable.inc"-->< /BODY>< /HTML>
< HEAD>< TITLE>asp11d.asp< /TITLE>< /HEAD>< HTML>< body bgcolor="#FFFFFF">
< %
call query2table("select * from publishers where state< >\'NY\'")
\'将表 publishers 中所有所在城市不为纽约的记录查询出来。
%>
< !--#include virtual="/asptest/subdbtable.inc"-->< /BODY>< /HTML>
利用 subdbtable.inc 文件中的所定义的过程 query2table，你就可以非常迅速地对数据库进行查询，你所要做的只是将“conntemp.open "DSN=Student;uid=student;pwd=aspmagic"”中的数据库名称、用户身份和密码稍加改动，并在调用 query2table 时输入想要使用的 SQL 查询语句即可。是不是很简单 ? 这就是 ASP 和 SQL 的魅力所在 !!!

1.13 数据库查询语言(2)

在本篇的开头，我要感谢一些朋友来信给我指出了前几篇文章中的错误。不知大家是否记得在第八篇中我举了一个简单的利用 Application 制作的页面访问计数器？有位朋友来信问我，为何当他改变计数器起始变量 NumVisits 的值后对最后的记数结果没有任何作用？起初我也大惑不解，让我们来回忆一下这段源程序，如下：
< %
Dim NumVisits
NumVisits=0
Application.Lock
Application("NumVisits") = Application("NumVisits") + 1
Application.Unlock
%>
欢迎光临本网页，你是本页的第 < %= Application("NumVisits") %>位访客 !
在这段程序中，如果你试图通过改变变量 NumVisits 的值来改变记数器结果，是绝对办不到的。因为用变量的值去改变 Application 的值是不可以的，这两者是不相关的。所以这里对变量的定义和赋值都是多余的。那么我们究竟应该如何来给 Application("NumVisits") 定义一个初始值呢？请看以下修正后程序：
< %
If Application("NumVisits")< 999 then
Application("NumVisits")=999
End If
Application.Lock
Application("NumVisits")=Application("NumVisits")+1
Application.Unlock
%>
欢迎光临本网页，你是本页的第 < %= Application("NumVisits") %>位访客 !
这里的 999 就是你要设定的计数器初始值，如此一来问题就迎刃而解了。我非常感谢这位姓康的朋友给我指出了这个错误，虽然这只是一个很小的漏洞，但我们在共同学程序写程序的过程中非常需要这种严谨细致的作风，希望今后朋友们们一旦发现文中的错误即刻来信告知，我也能及时纠正，谢谢。
SQL 语言可以分为两大部分：数据定义语言和数据操纵语言，继上一篇我们学习了数据操纵语言中的 Select 语句后，今天作者要继续给大家简要介绍其余的 SQL 语句。
SQL 是一种完备的数据处理语言，不仅用于数据库查询，而且用于数据库中的数据修改和更新，与支持 SQL 查询的 Select 语句的复杂性相比较，更改数据库内容的 SQL 语句就格外简单。然而对于一个 DBMS 来说，数据更新所造成的风险大大超出了数据查询。数据库管理系统必须在更改期内保护所存储的数据的一致性，确保有效的数据进入数据库，数据库必须保持一致性， DBMS 还必须协调多用户的并行更新，以确保用户和他们的更改不至于影响其他用户的作业。
用于修改数据库内容的 SQL 语句主要有以下三个：
1、 Insert，向一个表中加入新的数据行
2、 Delete，从一个表中删除数据行
3、 Update，更改数据库中已经存在的数据
首先我们来看看 Insert 的用法：
标准语法：
　　 INSERT INTO table_name
　　 (col1, col2...)
　　 VALUES(value1, value2...)
下例要将书生作为一个新的销售员加入表 Salesreps 中
　　 Insert Into
　　 Salesreps (name,num,sales,hire_date,income)
　　 values (\\\'shusheng\\\',9,10000,\\\'23-Feb-99\\\',2000)
在此语句中，列的名称列在括号中以逗号隔开，接下去是 Value 短语和括号中同样以逗号隔开的每列数据，应该注意的是数据和列名称的顺序是相同的，而且若是字符串型则以单引号隔开。从概念上来讲， Insert 语句建立的一个与表列结构相一致的数据行，用取自 Values 子句的数据来填充它，然后将该新行加入表中，表中的行是不排序的，因此不存在将该行插入到表的头或尾或两行之间的这个概念。 Insert 语句结束后，新行就是表的一部分了。
Insert 语句还可以将多行数据添加到目标表中去，在这种形式的 Insert 语句中，新行的数据值不是在语句正文中明确地指定的，而是语句中指定的一个数据库查询。添加的值来自数据库自身的行，这乍看起来似乎有些奇怪，但是在某些特定的状态下，这是非常有用的。比如，你想把 1998 年 12 月 30 日之前产生的订单编号、日期和数目从 order 表中拷贝到另一个名为 oldorder 的表中去，多行 Insert 语句为拷贝数据提供了一种紧凑而高效的方法，如下：
　　 Insert into oldorder (Num,Date,Amount)
　　 Select Num,Date,Amount
　　 From order
　　 Where Date<\\\'30-12-98\\\'
这条语句看起来有些复杂，其实很简单，语句标识了接收新行的表 oldorder 和接收数据的列，完全类似于单行 Insert 语句。语句的剩余部分是一个查询，它检索 order 表中的数据。 SQL 先执行对 order 表的查询，然后将查询结果逐行插入到 oldorder 表中去。
下面我们来看看 Update 的用法， Update 语句用于更新单表中选定行的一列或多列的值。要更新的目标表在语句中定义， Set 子句则指定要更新哪些列并计算他们的值。 Update 语句总是包含 Where 语句，而且 Update 语句比较危险，所以您必须明确地认识到 Where 语句的重要性， Where 语句被用来指定需要更新的行。
　　标准语法：
　　 UPDATE table_name
　　 SET columnname1 = value1
　　 [, columname2 = value2]...
　　 WHERE search_condition
　　以下是一个简单的 Update 语句的例子 :
　　 Update customers
　　 Set credit=100000.00,id=99
　　 Where name=\\\'asp\\\'
在此例中我们将表 customers 中客户名为 asp 的客户的信贷值更新为 10 万并将他的 ID 变更为 99。再看下例：
　　 Update customers
　　 Set credit=200000.00,state=021
　　 Where ID in (80,90,100,120)
我们可以发现，其实 SQL 处理 Update 语句的过程就是逐行遍历所指定的表，更新其搜索条件结果为“真”的行，跳过其搜索条件结果为“假”或“空”的行。
最后，来看看 Delete 语句。
　　标准语法：
　　 DELETE FROM tablename
　　 WHERE condition
由于它过于简单，所以所造成的后果也是严重的，虽然其中的 Where 子句是任选的，但它几乎总是存在的，若将 Where 子句从 Delete 语句中省略掉，则目标表的所有行都将被删除。看下例：
　　 Delete from order Where ID=99
在文章的末尾，作者在给大家简要介绍一下数据定义语言。它是用来创建和修改数据库结构的一种语句，包括 Create 和 Drop 语句。
　　 1、 Create 语句
　　标准语法：
　　 CREATE TABLE table_name
　　 ( field1 datatype [ NOT NULL ],
　　 field2 datatype [ NOT NULL ],
　　 field3 datatype [ NOT NULL ]...)
　　如：
　　 CREATE TABLE BILLS
　　 ( NAME CHAR(30),
　　 AMOUNT NUMBER,
　　 ACCOUNT_ID NUMBER)
尽管 Create Table 比前面介绍的语句难理解一些，但仍然很直观。它将 bills 赋予一个新表，并指定表中三列的名称和数据类型。表被建立后我们就可以添入数据了。如：
　　 Insert into bills(name,amout,account_id) values(\\\'gates\\\',100,1)
如果，你觉得不再需要保存产品信息，则可用 Drop table 语句将该表及其所包含的所有数据从数据库中删除掉。
标准语法：
　　 DROP TABLE table_name
至此，我们已经了解了所有常用的 SQL 语句，可别小看这些貌似英文的简单语句，它们的功能十分强大，当我们编写 asp 程序时必须使用他们对数据库进行操作。从下一篇开始，作者将给大家介绍 ASP 的内建 ActiveX 组件，敬请关注。

1.14 ActiveX 组件
当你用 ASP 编写服务器端应用程序时，必须依靠 ActiveX 组件来强大 Web 应用程序的功能，譬如：你需要连接数据库，对数据库进行在线操作等等，本文从本篇开始将陆续给大家介绍 ASP ActiveX 组件的使用方法。
从今天开始我们将正式学习 ASP 的精华部分 --ActiveX 组件。事实上，当你用 ASP 编写服务器端应用程序时，必须依靠 ActiveX 组件来强大 Web 应用程序的功能，譬如：你需要连接数据库，对数据库进行在线操作或者对 WEB 服务器上的文件系统进行操作，亦或你需要一个 WEB 广告交换程序，所有这一切你都必须通过调用 ASP 内建的 ActiveX 组件或自己编写所需的组件来完成。
那么，究竟什么是 ActiveX 组件呢？它又是如何运作的呢？其实 ActiveX 组件是一个存在于 WEB 服务器上的文件，该文件包含执行某项或一组任务的代码，组件可以执行公用任务，这样就不必自己去创建执行这些任务的代码。例如，股票行情收报机组件可以在 Web 页上显示最新的股票报价。当你在 WEB 服务器上安装完 ASP 环境后，就可以直接使用它自带的几个常用组件，如 Database Access 组件。当然你也可以从第三方开发者处获得可选的组件 , 也可以编写自己的组件。你可以利用组件作为脚本和基于 Web 应用程序的基本构造块，只要知道如何访问组件提供的对象，即使你是位编写脚本的新手，也可以在不了解组件运作方式的情况下编写 ASP 程序。总而言之， ActiveX 组件使您不用学习复杂的编程就能够写出强大的 WEB 服务器端脚本。如果您是位 Web 应用程序的开发者，可以使用任何支持组件对象模型（COM）的语言来编写组件，如， C、 C++、 Java 或 Visual Basic。如果你熟悉 COM 编程， ActiveX 组件就是 Automation 服务器。但是要在 Web 服务器上运行， ActiveX 组件不能有图形用户接口元素，如 Visual Basic 的 MsgBox 函数。组件是可以重复使用的。在 Web 服务器上安装了组件后，就可以从 ASP 脚本、 ISAPI 应用程序、服务器上的其他组件或由另一种 COM 兼容语言编写的程序中调用该组件。
那么我们在 ASP 中应该如何调用组件呢？如前所述，组件是包含在动态链接库 (.dll) 或可执行文件 (.exe) 中的可执行代码。组件可以提供一个或多个对象以及对象的方法和属性。要使用组件提供的对象，我们首先要创建对象的实例并将这个新的实例分配变量名。使用 ASP 的 Server.CreateObject 方法可以创建对象的实例。接着，使用脚本语言的变量分配指令为对象实例命名。创建对象实例时，必须提供实例的注册名称“PROGID”。如下要创建一个 Ad Rotator 对象的实例 :
　　＜% Set MyAds = Server.CreateObject("MSWC.AdRotator") %>
我们必须使用 ASP 的 Server.CreateObject 方法来创建对象实例，否者 ASP 无法跟踪脚本语言中对象的使用。
使用 HTML＜ OBJECT>标签同样可以创建对象实例，但必须为 RUNAT 属性提供服务器值，同时也要为将在脚本语言中使用的变量名提供 ID 属性组。使用注册名 (PROGID) 或注册号码 (CLSID) 可以识别该对象。下面的例子使用注册名 (PROGID) 创建 Ad Rotator 对象的实例：
　　＜OBJECT RUNAT=Server ID=MyAd PROGID="MSWC.AdRotator">＜ /OBJECT>

下面列出了 ASP 可安装的常用组件。

Ad Rotator 创建一个 AdRotator对象，该对象可按指定计划在同一页上自动轮换显示广告。
Browser Capabilities 创建一个 BrowserType对象，该对象决定访问 Web 站点的每个浏览器的性能、类型及版本。
Database Access 提供用 ActiveX Data Objects (ADO) 对数据库的访问。
Content Linking 创建一个 NextLink 对象，该对象可生成 Web 页内容列表，并象书一样将各页顺续连接。
File Access 组件提供文件的输入输出访问。
Collaboration Data Objects for NTS 组件可以快速、简便的在 Web 页上添加收发邮件功能。该组件只适用于 Internet Information Server for Windows NT? Server 。
MyInfo 创建一个 MyInfo对象，该对象追踪个人信息，例如站点管理员的姓名、地址及显示选择。
Counters 创建一个 Counters对象，该对象可以创建、保存、增加或检索任意数量的独立计数器。
Content Rotator 自动翻转 Web 主页上的 HTML 内容字符串。
Page Counter 记录并显示 Web 页被打开的次数。

现在 WEB 广告几乎充斥了整个网络，那么究竟如何在你自己的网站上建立一个符合广告领域标准功能的广告系统呢？答案是利用 ASP AD Rotator 组件 ! 它允许在每次访问 ASP 页面时在页面上显示新的广告，并且提供了很强的功能，例如 : 旋转显示在页面上的广告图象的能力、跟踪特定广告显示次数的能力以及跟踪客户端在广告上单击次数的能力。 AD Rotator 组件的工作是通过读取 AD Rotator 计划文件来完成的，该文件包括与要显示的图象文件的地点有关的信息以及每个图象的不同属性，下面就是一个标准的 AD Rotator 计划文件 :
---ADROT.TXT---
REDIRECT /scripts/adredir.asp
WIDTH 440
HEIGHT 60
BORDER 1
*
ads/homepage/chinabyte.gif
http://www.chinabyte.com/
Check out the IT site
2
ads/homepage/gamichlg.gif
-
Sponsored by Flyteworks
3
ads/homepage/asp.gif
http:// www.aspallian.com/
Good ASP site on net
3
ads/homepage/spranklg.gif
http://www.clocktower.com/
The #1 Sports site on the net
2
该段代码的前四行包含广告的全局设置。 Redirect 行指出广告将成为其热连接的 URL, 注意这里不是为广告本身指定的 URL，而是将调用的中间页面的 URL，这样我们就可以通过这个中间页面跟踪单击广告的次数。该 Redirect URL 将与包含两个参数的查询字符串一起调用 : 特定广告主页的 URL 和图象文件的 URL。星号上面的其余三行简单说明如何显示广告。前两行以像素为单位指定网页上广告的宽度和高度，默认值是 440 和 60 个像素。后一行，同样是以像素为单位指定广告四周超链接的边框宽度 , 默认值是 1 个像素。如果将该参数设置为 0，则将没有边框。
星号下面的行以每四行为一个单位描述每个广告的细节。在此例中共有 16 行，描述四个广告。每个广告的描述包含图象文件的 URL、广告的主页 URL（如果广告客户没有主页，请在该行写上一个连字符“-”，指出该广告没有链接）和图象的替代文字以及指定该页与其他页交替显示频率的数值。
图象是重定向页面的热连接，它在查询字符串中设置了两个值， url=/scripts/adredir.asp 以及 image=/ads/homepage/asp.gif。要确定广告显示的频率，可以将计划文件中所有广告的权值相加，在该例中总数是 10，那么 aspallian 的广告权值为 3，这意味着 AdRotator 组件每调用十次，它则显示 3 次。
重定向文件是用户创建的文件。它通常包含用来解析由 AdRotator 对象发送的查询字符串的脚本并将用户重定向到与用户所单击的广告所相关的 URL。用户也可以将脚本包含进重定向文件中，以便统计单击某一特定广告的用户的数目并将这一信息保存到服务器上的某一文件中。增加计数器和重定向用户是通过下面两行 ASP 脚本来实现的 :
＜ %
Counter.Increment(request.querystring("url"))
response.redirect(request.querystring("url"))
%>

现在我们看一下 Ad Rotator 组件是如何在页面中使用的，首先必须使用 Server.CreateObject 方法实例化 Ad Rotator 对象。 Ad Rotator 组件的 PROGID 属性是 MSWC.AdRotator。完整的代码如下 :
＜ % Set ad = Server.CreateObject("MSWC.AdRotator") %>
＜ %= ad.GetAdvertisement("/ads/adrot.txt") %>
Ad Rotator 组件支持的唯一方法是 GetAdvertisement，它只有一个参数 :AdRotator 计划文件的名称。注意指向文件的路径是从当前虚拟目录的相对路径，物理路径是不允许的。 GetAdvertisement 方法从 Rotator 计划文件中获取下一个计划广告的详细说明并将其格式化为 HTML 格式。下面的 HTML 由 GetAdvertisement 方法生成且被添加到网页的输出中，以便显示 Rotator 计划文件中的下一个广告。
＜ A HREF="http://www.chinabyte.com/scripts/adredir.asp?http://www.aspallian.com/">＜ IMG
SRC="http://www.chinabyte.com/ads/homepage/asp.gif" ALT="Good ASP site on net" WIDTH=440 HEIGHT=60 BORDER=1>＜ /A>
使用 AdRotator 组件我们可以直接通过对象属性而不是计划文件中的设置来直接控制某些广告特性，其可用属性如下 :
Border 指定广告边框的大小。
Clickable 指定广告是否为超链接。
TargetFrame 指定显示广告的框架的名称。
＜ %
Set ad = Server.CreateObject("MSWC.AdRotator")
ad.Border = 0
ad.Clickable = true
ad.TargetFrame = AdFrame
ad.GetAdvertisement("/ads/adrot.txt")
%>
通过上面的学习，相信你已经能够熟练运用 ASP 的内建 AdRotator 组件为自己的网站建立一个标准的广告显示程序了。你是否难以相信一切竟是如此的简单？其实真正能令你震惊的还在后头呢，敬请关注下一篇 ASP ActiveX 组件大揭密！

1.15 常用的 ASP ActiveX 组件

当你用 ASP 编写服务器端应用程序时，必须依靠 ActiveX 组件来强大 Web 应用程序的功能，譬如：你需要连接数据库，对数据库进行在线操作等等，继上篇介绍了 AD Rotator 组件后，本篇将接着给大家介绍其它一些常用的 ASP ActiveX 组件的使用方法。
最近仍有不少朋友来信问我， ASP 是否只能在 Microsoft IIS 上运行，是否可以在非 NT 平台上运作？本来这个问题我已经回答过很多遍了 : 我只是听说过有某种可以支持的软件，却从没见过。但一些热情的朋友仍然孜孜不倦地来信询问，于是在朋友们的盛情之下，我访遍了ASP 相关站点，竟惊奇的发现，原来 ASP 的确是可以运行在其它非 NT 平台上的，因此在本篇的开头，我就给来信的朋友们简要介绍一下如何在非 NT 平台上使用 ASP。
要在非 NT 平台上开发并运行 ASP 应用程序我们可以依赖于一套名为 Instant ASP 的第三方软件，它的广告标语非常吸引人“ASP Anytime, Anywhere”，我想所有 ASP 的开发者们看到如此的标语必然兴奋不已。这套由 Halcyon 软件公司开发的软件使得你无需重复开发原有 ASP 应用程序即可以将它运行在任何操作平台上 ! 这样非但节省了大量的开发时间，而且使得 ASP 真正成为了一种跨平台的 Internet、 Intranet 或 Extranet 应用程序。 Instant ASP 本身其实是一套基于 Java 的应用程序，因此通过它你可以将基于 WEB 的 ASP 应用程序运行在任何平台上，下表列出了Instant ASP 目前版本所支持的操作平台。

更令人吃惊的是 Instant ASP 不仅提供了 ASP 的运作环境，而且它较目前市场上的 ASP 应用还提供了更为强大和实用的功能，它将 ActiveX 组件和 Enterprise Java Beans 或者 CORBA-compliant objects 组合起来，从而使ASP 有了更为广泛的应用。它同样提供了通过 ADO 接口访问连接各种数据库，并生成动态页面的强大功能。对于开发者而言可以使用自己擅长的编程语言或工具如 :Visual Basic, JScript, VBScript, C++, Java, HTML, Delphi , MS Visual InterDev 等等来进行开发。关于 Instant ASP 具体安装和操作我就不在这里展开了，有兴趣的朋友可以到它的站点上去看看 halcyonsoft.com，你还可以免费下载一个试用版试试。
　　继上一篇中作者给大家介绍了 AD Rotator 组件的使用方法后，今天我们接着来看看其它的一些 ASP 常用组件。
　　一、 Database Access 组件
　　我们在 WEB 服务器上运用 WEB 应用程序进行的最常见和最实用的任务就是访问服务器端的数据库。而 ASP 内建的 Database Access 组件使得我们能够轻而易举地通过 ActiveX Data Objects (ADO) 访问存储在服务器端的数据库或其他表格化数据结构中的信息。 ADO 是对当前微软所支持的数据库进行操作的最有效和最简单直接的方法，它是一种功能强大的数据访问编程模式，从而使得大部分数据源可编程的属性得以直接扩展到你的 Active Server 页面上。可以使用 ADO 去编写紧凑简明的脚本以便连接到 Open Database Connectivity (ODBC) 兼容的数据库和 OLE DB 兼容的数据源，这样 ASP 程序员就可以访问任何与 ODBC 兼容的数据库，包括 MS SQL SERVER、Access、 Oracle 等等。如果您是一个对数据库连接有一定了解的脚本编写人员，那么您将发现ADO 命令语句并不复杂而且容易掌握。同样地，如果您是一个经验丰富的数据库编程人员，您将会正确认识 ADO 的先进的与语言无关性和查询处理功能。熟悉 VB 数据库编程的朋友会发现 ADO 与 RDO (Remote Data Objects) 有某种类似的地方。但据说 ADO 的访问的速度更快，内存需要更小。
下面给大家简要介绍一下利用 ASP 的 Database Access 组件通过 ADO 连接并操作 WEB 数据库的步骤
第一步 : 指定想要连接的数据库，有 DSN 和 DSN-less 两种方法。
DSN(Data Source Name 数据源名称 ): 建立一个系统数据源名称，方法如下 :
1、单击“开始”，选设置控制面板。
2、双击图标“32 位 ODBC” , 将弹出一个对话框，选标签“System DSN”
3、单击“Add”添加一个 DSN 入口 , 选择如“Microsoft Access Drive”并确认。
4、在“Data Source Name”栏里输入你希望指定的 DSN, 然后单击“Select”选择数据库
存放位置，你可以按“Browse”来选取。
5、以上步骤完成后在 ASP 程序中指定 DSN，如下 :
　　 < %connstr = "DSN"%>
DSN-less: 是另一种通过在 ASP 文件里直接指定数据库文件所在位置，而无需建立 DSN 的
方法。由于许多公司没有自己的 WEB 服务器，他们的网站往往是存放在远端的虚拟服务器上，因此
要建立和修改 DSN 的设置比较麻烦。而使用 DSN-less 方法直接指定远端数据库所在位置恰恰解决了
这一问题，方法如下 :
< %
connstr = "DBQ="+server.mappath("database/source.mdb")+";
DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};
DriverId=25;FIL=MSAccess;
ImplicitCommitSync=Yes;
MaxBufferSize=512;
MaxScanRows=8;
PageTimeout=5;
SafeTransactions=0;
Threads=3;
UserCommitSync=Yes;"
%>
在指定了想要连接的数据库后，就可以通过以下方法连接并打开数据库 :
< %
Set Conn = Server.CreateObject("ADODB.Connection")Conn.Open constr
%>
第二步 : 指定想要执行的 SQL 指令，可以使用 RecordSet。
当连接了数据库后就可以对数据库进行操作，比如查询、删除、更新等等，这些操作都是通过SQL 指令来完成的，如下例在数据库表 datebase 中查询所有姓名中有“A”的记录 :
< %
sql="select * from datebase where name like \'A%%\'"
Set rs = Conn.Execute(sql)
%>
尽管 Connection 对象简化了连接数据库和查询任务，但 Connection 对象仍有许多不足。确切地说，检索和显示数据库信息的 Connection 对象不能用于创建脚本，您必须确切知道要对数据库作出的更改，然后才能使用查询实现更改。对于检索数据、检查结果、更改数据库， ADO 提供了 Recordset 对象。正如它的名称所暗示的那样， Recordset 对象有许多您可以使用的特性，根据您的查询限制，检索并且显示一组数据库行，即记录。 Recordset 对象保持查询返回的记录的位置，允许您一次一项逐步扫描结果。根据 Recordset 对象的指针类型属性设置，您可以滚动和更新记录。数据库指针可以让您在一组记录中定位到特定的项。指针还用于检索和检查记录，然后在这些记录的基础上执行操作。 Recordset 对象有一些属性，可用于精确地控制指针的行为，提高您检查和更新结果的能力。
Recordset 的使用方法如下 :
　　 Set rs = Server.CreateObject("ADODB.Recordset")
　　 rs.Open SQL 指令 , Conn, 1, 1 \' 读取
　　或
　　 rs.Open SQL 指令 , Conn, 1, 3 \' 新增、修改、或删除
第三步 : 使用 RecordSet 属性和方法，并显示执行的结果。
通过以上指令，我们创建了一个包含数据的游标 (RecordSet)“rs”，事实上游标是存储在活动内存中的类似记录和字段的数组的东西，当通过 RecordSet 组件创建一个游标时，它从数据提供者的得到一个数据集，并用它来充实游标，我们可以想象 ADO 产生的 RecordSet 是一个象电子表格的记录，它有一行行的记录，在任何时候都有一行是它的当前行，而 RecordSet 的字段是用 RecordSet 的 Field 集合表示的。下面列出了所创建的 RecordSet 对象 ( 游标 ) 的一些属性和方法 :
　　 rs.Fields.Count: RecordSet 对象的字段总数。
　　 rs(i).Name: 第 i 个字段的名称， i 由 0 算起到 rs.Fields.Count-1。
　　 rs(i): 读取第 i 个字段的数据， i 由 0 算起到 rs.Fields.Count-1。
　　 rs(" 字段名称 "): 读取指定字段的数据。
　　 rs.RecordCount: 游标中的数据记录总数。
　　 rs.EOF: 是否已指到最后一条记录。
　　 rs.MoveNext: 将指标移到下一笔记录。
　　 rs.MovePrev: 将指标移到上一笔记录。
　　 rs.MoveFirst: 将指标移到第一笔记录。
　　 rs.MoveLast: 将指标移到最后一笔记录。
　　 rs.Close: 关闭 RecordSet 对象
　　有关 ADO 的其他介绍，作者将在今后给大家详细讲解。
二、 Content Linking 组件
如果你的网站有一系列相互关联的页面的话， Content Linking 组件将非常适合你的需求，它非但可以使你在这些页面中建立一个目录表，而且还可以在它们中间建立动态连接，并自动生成和更新目录表及先前和后续的 Web 页的导航链接。这对于列出联机报刊、电子读物网站以及论坛邮件是十分理想的选择。
　　Content Linking 组件创建管理 URL 列表的 Nextlink 对象，要使用 Content Linking 组件，必须需要先创建 Content Linking List 文件。 Content Linking 组件正是通过读取这个文件来获得处理我们希望链接的所有页面的信息。事实上该文件是一个纯文本文件，其内容如下 :
page1.htm one
page2.htm two
page3.htm three
page4.htm four
page5.htm five
page6.htm six
这个文本文件的每行有如下形式 :
　　 url description comment
其中， URL 是与页面相关的超链地址， description 提供了能被超链使用的文本信息， comment 则包含了不被 Content Linking 组?馐偷淖⑹托畔ⅲ??淖饔萌缤?绦蛑械淖⑹汀?description 和 comment 参数是可选的。
下面我们来看看如何具体使用 Content Linking 组件 :
< html>
< head>
< meta http-equiv="Content-Type" content="text/html; charset=gb2312">
< title>网络电子读物宝藏 < /title>
< /head>
< body>
< p>网络电子读物导航
< %
Set Link = Server.CreateObject("MSWC.NextLink")
count = Link.GetListCount("nextlink.txt")
Dim I
For I=1 to count
%>
< ul>< li>< a href="< %= Link.GetNthURL("nextlink.txt", I) %>">< %= Link.GetNthDescription("nextlink.txt", I) %>< /a>
< % Next %>
< /body>
< /html>
在以上代码中，我们先用 GetListCount 方法确定在文件 nextlink.txt 中有多少条项目，然后利用循环语句，并使用 GetNthURL、 GetNthDescription 方法逐一将存储在 nextlink.txt文件中的内容读出并显示给客户端浏览器。
下面列出了 Content Linking 组件所有可使用的方法 GetListCount(file) 统计内容链接列表文件中链接的项目数。
　　 GetNextURL(file) 获取内容链接列表文件中所列的下一页的 URL。
　　 GetPreviousDescription(file) 获取内容链接列表文件中所列的上一页的说明行。
　　 GetListIndex(file) 获取内容链接列表文件中当前页的索引。
　　 GetNthDescription(file,index) 获取内容链接列表文件中所列的第 N 页的说明。
　　 GetPreviousUR(file) 获取内容链接列表文件中所列的上一页的 URL。
　　 GetNextDescription(file) 获取内容链接列表文件中所列的下一页的说明。
　　 GetNthURL(file,index) 获取内容链接列表文件中所列的第 N 页的说明。
在我们创建了网站的总导航页面后，我们当然还希望在每一页中添加一个“上一页”、“下一页”的导航超链，下面我们就来看看如何实现导航超链。
由于考虑到你的网站可能包含了上千或更多的页面，所以我们不可能在每一个页面中都编写实现导航超链的 ASP 代码。因此，我们必须利用前几篇中所学到的服务器端包容 SSI，这样就避免了大量的重复作业，请看下例 :
　　 < !--#include file="nextprev.inc"-->
只要将这端代码放在每个页面中即可。 nextprev.inc 文件的内容如下 :
< %
Set Link = Server.CreateObject("MSWC.NextLink")
count = Link.GetListCount("nextlink.txt")
current = link.GetListIndex("nextlink.txt")
If current >1 Then
%>
< a href="< %= Link.GetPreviousURL("nextlink.txt") %>">上一页 < /a>
< %
End If
If current < count Then
%>
< a href="< %= Link.GetNextURL("nextlink.txt") %>">下一页 < /a>
< % End If %>
今天的学习又到此结束了，在这里我要再次感谢所有关心我的文章的朋友们，你们的来信给了
我很大的鼓舞，不过请大家不要再称我为“老师”，其实我也和你们一样是在不断的学习和摸索中，
有问题我们可以一起探讨，我的文章中肯定还存在很多不足或漏洞，也希望大家发现后能及时向我
提出。由于近来 ASP 已经在国内的网站中广泛运用起来，所以应朋友们的要求，在国内 ASP 高手
飞鸟的热情帮助下，我决定写一些 ASP 应用实例作为现在这篇文章的姊妹篇，这样也就可以为大家
提供一些真正实用的东西了，敬请关注。

1.6 其它的ASP常用组件

当你用 ASP 编写服务器端应用程序时，必须依靠 ActiveX 组件来强大 Web 应用程序的功能，譬如：你需要连接数据库，对数据库进行在线操作等等。
上两篇中作者给大家介绍了 AD Rotator、 Database Access 等组件的使用方法，今天我们接着来看看其它的一些 ASP 常用组件。
一、 Browser Capabilities 组件众所周知，并不是所有浏览器都支持现今 Internet 技术的方方面面。有一些特性，某些浏览器支持而另一些浏览器却不支持，如 : ActiveX 控件、影像流、动态 HTML、 Flash 以及脚本程序等。使用 ASP 的 Browser Capabilities 组件，就能够设计“智能”的 Web 页，以适合浏览器性能的格式呈现内容。 Browser Capabilities 组件能够创建一个 BrowserType 对象，该对象提供带有客户端网络浏览器的功能说明的用户脚本。该组件之所以能识别客户浏览器的版本等信息，主要是因为当客户浏览器向服务器发送页面请求时，会自动发送一个 User Agent HTTP 标题，该标题是一个声明浏览器及其版本的 ASCII 字符串。 Browser Capabilities 组件将 User Agent 映射到在文件 Browscap.ini 中所注明的浏览器 , 并通过 BrowserType 对象的属性来识别客户浏览器。若该对象在 browscap.ini 文件中找不到与该标题匹配的项，那么将使用默认的浏览器属性。若该对象既未找到匹配项且 browscap.ini 文件中也未指定默认的浏览器设置，则它将每个属性都设为字符串 "UNKNOWN"。在默认情况下， browscap.ini 文件被存放在 WINDOWS\\\\SYSTEM\\\\INERSRV( 如果是 95/98+PWS4) 或 NT\\\\SYSTEM32\\\\INERSRV( 如果是 NT) 目录中，你可以自己编辑这个文本文件，以添加自己的属性或者根据最新发布的浏览器版本的更新文件来修改该文件。请看以下 checkCookie() 过程，使用 BrowserCap 对象的 Cookie 属性来判断客户端浏览器是否支持 Cookie，并返回信息 :
< %
Sub checkCookie()
Set BrowserCap=Server.CreateObject("MSWC.BrowserType")
if BrowserCap.Cookie=True then
response.write "你的浏览器支持 Cookie!"
else
response.write "对不起，你所使用的浏览器不支持 Cookie!"
end if
end Sub
%>
二、 File Access 组件如果你的网龄足够大的话，你一定见过“恐龙时代”的 CGI 留言簿，那是 WEB 留言簿最早的雏形。那时候在基于 Internet 的 WEB 应用程序中连接服务器后端数据库还十分困难，因此留言簿中的历史信息并不是同如今一样存储在后端数据库中。那么这些数据究竟是保存在哪里的呢？答案就是“文本文件”， CGI 程序可以将从客户端接收的信息写进一个存放在服务器端的文本文件中，该文件可以是 HTML 文件或 TXT 等文件，这样就使得程序员们可以不通过同数据库连接就可以将客户信息保存下来，但是写此类 CGI 程序甚是烦琐，下面列出了一个此类程序的最简单的样本 :
#!/usr/local/bin/perl
# Perl Location one your server
print "Content-type: text/plain\\\\n\\\\n";
if($ENV{\\\'REQUEST_METHOD\\\'}eq"POST"){
read(STDIN,$buffer,$ENV{\\\'CONTENT_LENGTH\\\'});
}elsif($ENV{\\\'REQUEST_METHOD\\\'}eq"GET"){
$buffer=$ENV{\\\'QUERY_STIRNG\\\'};
}
@pairs=split(/&/,$buffer);
foreach $pair(@pairs){
($name,$value)=split(/=/,$pair);
$value=~tr/+//;
$value=~s/%([a-f A-F 0-9][a-f A-f 0-9])/pack("C",hex($1))/eg;
$FORM{$name}=$value;}
$file_name="guestbook.txt";#File name
#具体内容
open(FILE,">>$file_name")||die "打开文件错误";
print FILE "记录时间":$date \\\\n\\\\n";
print FILE "姓名":$FORM{\\\'name\\\'}";
print FILE "单位":$FORM{\\\'company\\\'}\\\\n";
print FILE "电话":$FORM{\\\'phone\\\'}
print FILE "地址":$FORM{\\\'address\\\'}\\\\n";
print FILE "邮编":$FORM{\\\'zip\\\'}
print FILE "邮件地址":$FORM{\\\'email\\\'}\\\\n";
print FILE "返回意见":$FORM{\\\'content\\\'}
close (FILE)
大家可以感觉到，与 ASP 相比此类 CGI 程序的可读性和易操作性都较差。那么你一定想问 ASP 是否也能直接在服务器上写文件呢？答案当然是肯定的。但是聪明的朋友可能会想到，既然 ASP 同 WEB 数据库的连接如此便捷，我们又何需再将客户信息写在文本文件中呢， ASP 的这个功能岂不是画蛇添足？的确，对于那些我们常见的留言簿、 BBS 等 WEB 应用程序而言，无论是在程序的执行效率还是易用性上，我们都不可能再用写文本文件来替代数据库，但是在某些 WEB 应用领域里写文本文件既是一种规范也是一种相对数据库而较便捷的方法。如果你对 NT 较熟悉的话，你一定知道 NT 具有非常强大的安全机制，它可以将几乎所有的服务器操作和连接的信息自动保存在一个后缀名为 .log 的文件中，其实这种技术也完全可以被运用在 WEB 上，用来记录一些的客户登陆信息。下面的这段程序正是利用 ASP 读写文本文件的特性，在一个 WEB BBS 程序中创建自动记录每个用户发言记录的功能。
< %
Set fs = CreateObject("Scripting.FileSystemObject")
ForReading = 1
\\\'以只读模式打开文件。不能对此文件进行写操作。
ForAppending = 8
\\\'打开文件并在文件末尾进行写操作。
TristateUseDefault = -2
TristateTrue = -1
TristateFalse = 0
\\\'-----------写入系统log开始--------
servermap=server.MapPath("\\\\bbs\\\\log\\\\")
\\\'映射系统物理路径
temp=servermap&"\\\\"&year(date)&month(date)&"\\\\"
\\\'获取系统物理路径和时间，并以此作为log文件存放的物理路径
if Not fs.FolderExists(temp) then
fs.CreateFolder(temp)
end if
\\\'检测是否存在文件夹，否则自动创建
dim syslog
dim tempname
tempname=date
syslog=temp&tempname&".log"
\\\'文件名为e:\\\\bbs\\\\log\\\\月份\\\\月日.log
li=user&"&"&Now&"&"&Request.ServerVariables("REMOTE_ADDR")&"&"&tempfile&"&"&letter&"&"&title
\\\'log文件记录的格式为:用户名&发信时间&用户ip&文件路径&信区&信件标题
if fs.FileExists(syslog) then
Set ss = fs.OpenTextFile(syslog,ForAppending,true)
else
set ss = fs.CreateTextFile(syslog,ForWriting,false)
end if
\\\'检测log文件是否存在，如果存在则追加文件内容，反之则直接写文件
ss.WriteLine(li)
ss.Close
\\\'-----------log文件写入结束---------
%>
如果你没有完全看懂上面的这段程序，就请听作者慢慢道来。 File Access 组件提供了可用来访问计算机文件系统的方法和属性。我们可以使用 File Access 组件创建 FileSystemObject 对象，以上程序的第一句就是利用 File Access 组件创建了一个名为 fs 的对象实例。在对象被创建后，你可以通过它访问文件，该对象没有属性，它唯一的意义就是创建、打开或读写文本文件。 FileSystemObject 对象有两种最常用的方法，一种用来创建文件，另一种是用来打开并读写文本文件。 CreateTextFile 方法获得你指定的文件名并创建该文件，它返回一个 TextStream 对象，你可以用该对象在文件被创建后操作该文件， CreateTextFile 方法的语法如下 :
　　Set objTextStream=FileSystemObject.CreateTextFile(Filename,[Overwrite],[Unicode])
下面作者给大家解释一下 CreateTextFile 方法的参数
1、 Filename 包含文件路径名的字符串，可以是文件的全路径名，包括驱动器名和目录名，或者也可以只是文件名，如果只包含文件名的话，文件将被创建在站点的根目录下。
2、 Overwrite 布尔量，设置成 False 时可以防止 FileSystemObject 对象在创建一个新文件时删除已存在的文件，该参数是可选的，如果没有赋值系统默认为 true，具有相同文件名的已有文件会被删掉。
3、 Unicode 可选参数。布尔值指明是否以 Unicode 或 ASCII 文件格式创建文件。如果以 Unicode 文件格式创建文件，则该值为 True；如果以 ASCII 文件格式创建文件，则该值为 False。如果省略此部分，则假定创建 ASCII 文件。
在前面的程序中我们用 set ss=fs.CreateTextFile(syslog,ForWriting,false) 来在 log 文件不存在的情况下创建文件并对文件进行写操作，这里的“ForWriting”表示写文件。
与 CreateTextFile 方法不同， OpenTextFile 方法用来获得你指定的文件名并打开该文件，利用它所带的参数我们可以对文件进行各种不同的操作，和 CreateTextFile 方法一样， OpenTextFile 方法返回一个 TextStream 对象，使得你可以在文件被打开后操作该文件。 OpenTextFile 方法的语法如下 :
　　 Set objTextStream=FileSystemObject.OpenTextFile(Filename,[IOmode],[Create],[Format])
参数说明如下 :
1、 Filename 必须的变量，同 CreateTextFile 的 filename
2、 IOmode 可选的常量，取值为下列两个常数之一 ForReading 或 ForAppending，如果 mode 为 1，文件以只读方式打开，如果为 8，则文件以追加的方式打开。
3、 Create 可选的布尔量，指定如果你想打开的文件不存在是做什么操作，如果其值为 True，当文件不存在时就自动创建一个空的文件。如果为 False，就会在文件没找到时产生一个出错信息，其默认值是 False，建议将其设为 True，以避免在打开文件时检查是否出错。
4、 Format 可选值，可以选择三种 Tristate 值分别指定文件的格式， -2、 -1、和 0 分别对应于系统缺省、 unicode 和 ASCII。
在打开或创建了文本文件后，就得到一个 TextStream 对象，该对象有一个光标，就好象是在字处理程序中的光标一样，指出接下来要敲入的字符将出现的位置，它同时也指出你要读取的字符的位置。不能通过 CreatObject 来创建一个 TextStream 对象，得到 TextStream 对象的唯一方法是如前所述的用 FileSystemObject 对象打开一个存在的文本文件或者创建一个新的文件。
下面列出了 TextStream 对象的属性和方法
　　 TextStream.AtEndOfLine 只读布尔量，当光标在当前行的末尾时，其值为 true，反之则为 false
　　 TextStream.AtEndOfStream 只读布尔量，如果光标在流的末尾时，其值为 true，否则为 false
　　 TextStream.Column 只读的整数，统计从行首到当前光标位置之间的字符数
　　 TextStream.Line 只读的整数，指明光标所在行在整个文件中的行号
　　 TextStream.close() 关闭流以及对应的文本文件
　　 TextStream.read(Num) 指定从光标的当前位置开始从文本文件中读取一定数目的字符
　　 TextStream.readall() 将整个流读入一个字符串中
　　 TextStream.readline() 将一整行的字符读入一个字符串中
　　 TextStream.write(text) 将一个字符串写入流中
　　 TextStream.writeline() 将一个文本串写入流中
　　 TextStream.skip(Num) 在流中，将光标的位置移动一定数目的字符串长度
　　 TextStream.skiplines() 在流中，将光标移动一定数目的行数
　　 TextStream.writeblank 将一定数目的空行写入流中
　　 lines(num)
相信大家现在已经可以感觉到 ASP File Access 组件的强大功能了，其实它远不仅仅可以写一些 log 文件，通过它你甚至可以毫不费力的远程自动更新你的网站，你只要把固定格式的文本文件传送到远端的服务器上，通过 File Access 组件读取文件，并自动生成全新 HTML 页面即可，而不必再辛辛苦苦地一个一个地更新 HTML 文件。如果你有兴趣，你完全可以用 ASP 的 File Access 组件写一个自己的全自动 HTML 生成器，充分享受维护网站的超前轻松感。

1.17 ADO 存取数据库时如何分页显示

什么是 ADO 存取数据库时的分页显示？如果你使用过目前众多网站上的电子公告板程序的话，那你应该会知道电子公告板程序为了提高页面的读取速度，一般不会将所有的帖子全部在一页中罗列出来，而是将其分成多页显示，每页显示一定数目的帖子数，譬如 20 条。这就是数据库查询的分页显示，如果你还不明白，去看看 yahoo 等搜索引擎的查询结果就会明白了。
那么究竟如何才能做到将数据库的查询结果分页显示呢？其实方法有很多，但主要有两种：
一、将数据库中所有符合查询条件的记录一次性的都读入 recordset 中，存放在内存中，然后通过 ADO Recordset 对象所提供的几个专门支持分页处理的属性： PageSize( 页大小 )、 PageCount( 页数目 ) 以及 AbsolutePage( 绝对页 ) 来管理分页处理。
二、根据客户的指示，每次分别从符合查询条件的记录中将规定数目的记录数读取出来并显示。
两者的主要差别在于前者是一次性将所有记录都读入内存然后再根据指示来依次做判断分析从而达到分页显示的效果，而后者是先根据指示做出判断并将规定数目的符合查询条件的记录读入内存，从而直接达到分页显示的功能。
我们可以很明显的感觉到，当数据库中的记录数达到上万或更多时，第一种方法的执行效率将明显低于第二种方法，因为当每一个客户查询页面时都要将所有符合条件的记录存放在服务器内存中，然后在进行分页等处理，如果同时有超过 100 个的客户在线查询，那么 ASP 应用程序的执行效率将大受影响。但是，当服务器上数据库的记录数以及同时在线的人数并不是很多时，两者在执行效率上是相差无几的，此时一般就采用第一种方法，因为第一种方法的 ASP 程序编写相对第二种方法要简单明了得多。
在这里作者就以我们常见的 ASP BBS 程序为例，来给大家分析一下如何在 BBS 程序里实现分页显示功能，由于我们一般使用的 BBS 程序的数据库记录数和同时访问的人数都不会太多，所以以下程序实例是使用的先前所介绍的第一种分页显示方法。
进行 ADO 存取数据库时的分页显示，其实就是对 Recordset 的记录进行操作。所以我们首先必须了解 Reordset 对象的属性和方法：
BOF 属性：目前指标指到 RecordSet 的第一笔。
EOF 属性：目前指标指到 RecordSet 的最后一笔。
Move 方法：移动指标到 RecordSet 中的某一条记录。
AbsolutePage 属性：设定当前记录的位置是位于哪一页 AbsolutePosition 属性：目前指标在 RecordSet 中的位置。
PageCount 属性：显示 Recordset 对象包括多少“页”的数据。
PageSize 属性：显示 Recordset 对象每一页显示的记录数。
RecordCount 属性：显示 Recordset 对象记录的总数。
下面让我们来详细认识一下这些重要的属性和方法
一、 BOF 与 EOF 属性
通常我们在 ASP 程序中编写代码来检验 BOF 与 EOF 属性，从而得知目前指标所指向的 RecordSet 的位置，使用 BOF 与 EOF 属性，可以得知一个 Recordset 对象是否包含有记录或者得知移动记录行是否已经超出该 Recordset 对象的范围。
　　如：
< % if not rs.eof then ... %>
< % if not (rs.bof and rs.eof) %>
若当前记录的位置是在一个 Recordset 对象第一行记录之前时， BOF 属性返回 true，反之则返回 false。
若当前记录的位置是在一个 Recordset 对象最后一行记录之后时， EOF 属性返回 true，反之则返回 false。
BOF 与 EOF 都为 False：表示指标位于 RecordSet 的当中。
BOF 为 True：目前指标指到 RecordSet 的第一笔记录。 EOF 为 True：目前指标指到 RecordSet 的最后一笔记录。
BOF 与 EOF 都为 True：在 RecordSet 里没有任何记录。
二、 Move 方法
您可以用 Move 方法移动指标到 RecordSet 中的某一笔记录，语法如下：
　　rs.Move NumRecords,Start
这里的“rs”为一个对象变量，表示一个想要移动当当前记录位置的 Recordset 对象；“NumRecords”是一个正负数运算式，设定当前记录位置的移动数目；“start”是一个可选的项目，用来指定记录起始的标签。
所有的 Recordset 对象都支持 Move 方法，如果 NumRecords 参数大于零，当前记录位置向末尾的方向移动；如果其小于零，则当前记录位置向开头的方向移动；如果一个空的 Recordset 对象调用 Move 方法，将会产生一个错误。
MoveFirst 方法：将当前记录位置移至第一笔记录。
MoveLast 方法：将当前记录位置移至最后一笔记录。
MoveNext 方法：将当前记录位置移至下一笔记录。 MovePrevious 方法：将当前记录位置移至上一笔记录。
Move [n] 方法：移动指标到第 n 笔记录， n 由 0 算起。
三、 AbsolutePage 属性
AbsolutePage 属性设定当前记录的位置是位于哪一页的页数编号；使用 PageSize 属性将 Recordset 对象分割为逻辑上的页数，每一页的记录数为 PageSize( 除了最后一页可能会有少于 PageSize 的记录数 )。这里必须注意并不是所有的数据提供者都支持此项属性，因此使用时要小心。
与 AbsolutePosition 属性相同， AbsolutePage 属性是以 1 为起始的，若当前记录为 Recordset 的第一行记录， AbsolutePage 为 1。可以设定 AbsolutePage 属性，以移动到一个指定页的第一行记录位置。
四、 AbsolutePosition 属性
若您需要确定目前指标在 RecordSet 中的位置，您可以用 AbsolutePosition 属性。
AbsolutePosition 属性的数值为目前指标相对於第一笔的位置，由 1 算起，即第一笔的 AbsolutePosition 为 1。
注意 , 在存取 RecordSet 时，无法保证 RecordSet 每次都以同样的顺序出现。
若要启用 AbsolutePosition，必须先设定为使用用户端 cursor( 指针 )， asp 码如下：
rs2.CursorLocation = 3
五、 PageCount 属性
使用 PageCount 属性，决定 Recordset 对象包括多少“页”的数据。这里的“页”是数据记录的集合，大小等于 PageSize 属性的设定，即使最后一页的记录数比 PageSize 的值少，最后一页也算是 PageCount 的一页。必须注意也并不是所有的数据提供者都支持此项属性。
六、 PageSize 属性
PageSize 属性是决定 ADO 存取数据库时如何分页显示的关键，使用它就可以决定多少记录组成一个逻辑上的“一页”。设定并建立一个页的大小，从而允许使用 AbsolutePage 属性移到其它逻辑页的第一条记录。 PageSize 属性能随时被设定。
七、 RecordCount 属性
这也是一个非常常用和重要的属性，我们常用 RecordCount 属性来找出一个 Recordset 对象包括多少条记录。如： < % totle=RS.RecordCount %>
在了解了 Recordset 对象的以上属性和方法后，我们来考虑一下，如何运用它们来达到我们分页显示的目的。首先，我们可以为 PageSize 属性设置一个值，从而指定从记录组中取出的构成一个页的行数；然后通过 RecordCount 属性来确定记录的总数；再用记录总数除以 PageSize 就可得到所显示的页面总数；最后通过 AbsolutePage 属性就能完成对指定页的访问。好象很并不复杂呀，下面让我们来看看程序该如何实现呢？
我们建立这样一个简单的 BBS 应用程序，它的数据库中分别有以下五个字段：“ID”，每个帖子的自动编号；“subject”，每个帖子的主题；“name”，加帖用户的姓名； “email”，用户的电子邮件地址；“postdate”，加帖的时间。数据库的 DSN 为“bbs”。我们将显示帖子分页的所有步骤放在一个名为“ShowList()”的过程中，方便调用。程序如下：
\'----BBS 显示帖子分页----
< % Sub ShowList() %>
< %
PgSz=20 \'设定开关，指定每一页所显示的帖子数目，默认为20帖一页
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
sql = "SELECT * FROM message order by ID DESC"
\'查询所有帖子，并按帖子的ID倒序排列
Conn.Open "bbs"
RS.open sql,Conn,1,1
If RS.RecordCount=0 then
response.write "< P>< center>对不起，数据库中没有相关信息！< /center>< /P>"
else
RS.PageSize = Cint(PgSz) \'设定PageSize属性的值
Total=INT(RS.recordcount / PgSz * -1)*-1 \'计算可显示页面的总数
PageNo=Request("pageno")
if PageNo="" Then
PageNo = 1
else
PageNo=PageNo+1
PageNo=PageNo-1
end if
ScrollAction = Request("ScrollAction")
if ScrollAction = " 上一页 " Then
PageNo=PageNo-1
end if
if ScrollAction = " 下一页 " Then
PageNo=PageNo+1
end if
if PageNo < 1 Then
PageNo = 1
end if
n=1
RS.AbsolutePage = PageNo
Response.Write "< CENTER>"
position=RS.PageSize*PageNo
pagebegin=position-RS.PageSize+1
if position < RS.RecordCount then
pagend=position
else
pagend= RS.RecordCount
end if
Response.Write "< P>< font color=\'Navy\'>< B>数据库查询结果:< /B>"
Response.Write "(共有"&RS.RecordCount &"条符合条件的信息,显示"&pagebegin&"-"&pagend&")< /font>< /p>"
Response.Write "< TABLE WIDTH=600 BORDER=1 CELLPADDING=4 CELLSPACING=0 BGCOLOR=#FFFFFF>"
Response.Write "< TR BGCOLOR=#5FB5E2>< FONT SIZE=2>< TD>< B>主题< /B>< /TD>< TD>< B>用户< /B>< /TD>< TD>< B>Email< /B>< /TD>< TD>< B>发布日期< /B>< /TD>< /FONT>< TR BGCOLOR=#FFFFFF>"
Do while not (RS is nothing)
RowCount = RS.PageSize
Do While Not RS.EOF and rowcount >0
If n=1 then
Response.Write "< TR BGCOLOR=#FFFFFF>"
ELSE
Response.Write "< TR BGCOLOR=#EEEEEE>"
End If
n=1-n %>
< TD>< span style="font-size:9pt">< A href=\'view.asp?key=< % =RS("ID")%>\'>< % =RS("subject")%>< /A>< /span>< /td>
< TD>< span style="font-size:9pt">< % =RS("name")%>< /A>< /span>< /td>
< TD>< span style="font-size:9pt">< a href="mailto:< % =RS("email")%>">< % =RS("email")%>< /a>< /span>< /TD>
< TD>< span style="font-size:9pt">< % =RS("postdate")%>< /span>< /td>
< /TR>
< %
RowCount = RowCount - 1
RS.MoveNext
Loop
set RS = RS.NextRecordSet
Loop
Conn.Close
set rs = nothing
set Conn = nothing
%>
< /TABLE>
< FORM METHOD=GET ACTION="list.asp">
< INPUT TYPE="HIDDEN" NAME="pageno" VALUE="< % =PageNo %>">
< %
if PageNo >1 Then
response.write "< INPUT TYPE=SUBMIT NAME=\'ScrollAction\' VALUE=\' 上一页 \'>"
end if
if RowCount = 0 and PageNo < >Total then
response.write "< INPUT TYPE=SUBMIT NAME=\'ScrollAction\' VALUE=\' 下一页 \'>"
end if
response.write "< /FORM>"
End if
%>
< % End Sub %>
相信大家都应该能完全读懂上面的程序，因此作者就不在此详细解释了。值得注意的是在这段程序中运用了一个小技巧
< INPUT TYPE="HIDDEN" NAME="pageno" VALUE="< % =PageNo %>">
，这是用来在每次调用该 ASP 文件时传递数据的“暗道”，由于我们需要在每次调用程序时传递代表当前页码的参数，可能大家会想到使用 session，但是从节省系统资源和通用性来讲，用这样一个隐藏的 form 来传递数据将会达到更好的效果。

1.18 堵住ASP漏洞

无论你相不相信，通过 asp，可能可以很方便地入侵 web server、窃取服务器上的文件、捕获 web 数据库等系统的用户口令，甚至恶意删除服务器上的的文件，直至造成系统损坏，这些都决非耸人听闻，而且都确确实实发生过，本文将向你一一揭示这些 asp 存在的漏洞，并提出一些防范意见。
上一篇中给大家着重谈了“ADO 存取数据库时如何分页显示”的问题，有位朋友来信给我指出我在计算页面总数时忽略了 Recordset 对象的一个重要参数“PageCount”，它能在给 Pagesize 赋值后自动得出页面的总数，而无须用“INT(RS.recordcount/PgSz*-1)*-1”这样繁琐的公式。我要感谢这位朋友热心地给我指出程序中的不足，由于这个程序是我在很久以前写的，因为在分页显示的时候记录的总数不一定能整除页面显示记录的数目，而当时我又不能肯定 PageCount 是否能正确得出页面的数目，所以偷懒写了这个公式：），说实话我到现在还都没试过用 pagecount，有兴趣的朋友千万要试一下哦，可别学我的懒惰呀。
最近我在 chinaasp 的 bbs 上讨论问题时发现很多朋友对于 asp 的一些安全性问题不甚了解，甚至不知道如何解决最常见的 asp::$DATA 显示源代码的问题，因此我觉得非常有必要在这里给广大朋友们重点谈一谈这个问题，在征得 chinaasp 飞鸟的同意下，我将他曾经写过的一点关于 asp 漏洞的介绍加上我自己的一些实践经验拿出来给大家详细分析一下这个对于 webmaster 来说至关重要的 asp 的安全性问题。
当去年 ::$DATA 的漏洞被发现并公布的第二天，我曾经检测了当时国内大部分运用 asp 的站点，其中百分之九十九都存在以上可以看见源代码的问题，当日我甚至在微软的站点上抓下了 search.asp 这个文件的源代码。可能你会觉得看到源代码并没有什么大碍，如果作为 webmaster 的你这么想就大错特错了。譬如，如果 asp 程序员将站点的登陆密码直接写在 asp 里，那么一旦源码被发现，他人就可以很容易的进入本不该被看到的页面，我就曾经利用这个方法免费成为了一个收费网站的成员（大家可别揭发我哦！），而且很多数据库的连接用户名和密码也都是直接写在 asp 里，一旦被发现，如果你的数据库允许远程访问而且没有设防的话就相当危险了。在一些用 asp 开发的 bbs 程序中，往往使用的是 access mdb 库，如果 mdb 库存放的路径被获知，数据库就很有可能被他人下载，加之如果数据库里含有的密码不加密，那就非常危险了，获取密码的人如果有意进行恶意破坏，他只需要以 admin 身份登陆删除所有 bbs 里的帖子，就够你呛的了。下面列出了目前已经发现的一些漏洞，希望大家提高警惕一、经过实验我们发现， win95+pws 上运行 ASP 程序，只须简单地在浏览器地址栏的 asp 文件名后多加一个小数点 ASP 程序就会被下载下来。 IIS3 也存在同样的问题，如果你目前还在使用 IIS3 一定要测试一下。
二、 iis2、 iis3、 iis4 的一个广为人知的漏洞就是 ::$DATA，通过它使用 ie 的 view source 或 netscape 直接访问该 asp 文件就能轻而易举地看到 asp 代码。 win98+pws4 不存在这个漏洞。
究竟是什么原因造成了这种可怕的漏洞呢？究其根源其实是 Windows NT 特有的文件系统在做怪。有一点常识的人都知道在 NT 提供了一种完全不同于 FAT 的文件系统： NTFS，这种被称之为新技术文件系统的技术使得 NT 具有了较高的安全机制，但也正是因为它而产生了不少令人头痛的隐患。大家可能不知道， NTFS 支持包含在一个文件中的多数据流，而这个包含了所有内容的主数据流被称之为“DATA”，因此使得在浏览器里直接访问 NTFS 系统的这个特性而轻易的捕获在文件中的脚本程序成为了可能。然而直接导致 ::$DATA 的原因是由于 IIS 在解析文件名的时候出了问题，它没有很好地规范文件名。
我们该如何解决这个问题呢？办法有几种：
　　a、是将 .asp 文件存放的目录设置为不可读（ASP 仍能执行），这样 html、 css 等文件就不能放在这个目录下，否则它们将不能被浏览。
　　b、是安装微软提供的补丁程序，下载的地址如下（注意针对不同的系统有不同的补丁）：
　　该补丁是针对 IIS3， Intel 平台
　　ftp.microsoft.com/bussys/iis/iis-public/fixes/cht/security/iis3-datafix/iis3fixi.exe
　　该补丁是针对 IIS3， Intel 平台
　　ftp.microsoft.com/bussys/iis/iis-public/fixes/cht/security/iis3-datafix/iis3fixa.exe
　　该补丁是针对 IIS4， Alpha 平台
　　ftp.microsoft.com/bussys/iis/iis-public/fixes/cht/security/iis4-datafix/iis4fixi.exe
　　该补丁是针对 IIS4， Alpha 平台
　　ftp.microsoft.com/bussys/iis/iis-public/fixes/cht/security/iis4-datafix/iis4fixa.exe
　　c、是在服务器上安装 ie4.01sp1，这个是否有效，作者本人没具体试过。
　　d、存粹作者的个人意见，尽量安装英文版的 NT，而不要使用中文版，究其原因作者也说不清，只是根据实践经验英文版的 NT 较中文版 bug 少，如果哪位朋友知道原因千万要告诉我。
三 . 支持 ASP 的免费主页空间以及虚拟主机服务的服务器面临的问题
1、服务器上的 ASP 代码很可能被人其他拥有 asp 权限的人非法获取。
举个很简单的例子，在微软提供的 ASP1.0 的例程里有一个 .asp 文件专门用来查看其它 .asp 文件的源代码，该文件为 ASPSamp/Samples/code.asp。如果有人把这个程序上传的服务器，而服务器端没有任何防范措施的话，他就可以很容易地查看他人的程序。
例如 :
　　code.asp?source=/directory/file.asp
2、使用的 ACCESS mdb 数据库可能被人下载一般来说在提供 asp 权限的免费主页服务器上不可能提供代为设定 DSN 的服务，因此 asp 程序使用的数据库通常都局限在使用 mdb 库，而 mdb 远端数据库所在的位置是使用我们在第十四期中讲到过的 DSN-less 方法直接在 asp 中指定的，方法如下 :
< %connstr = "DBQ="+server.mappath("database/source.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5; SafeTransactions=0;Threads=3;UserCommitSync=Yes;"%>

正如前文所言，在这种情况下 mdb 库很可能被他人下载，从而造成诸如密码等的泄露。
所以，作为 webmaster 应该采取一定的措施，严禁 code.asp 之类的程序（似乎很难办到 , 但可以定期检索特征代码），限制 mdb 的下载。
3、来自强大的 filesystemobject 组件的威胁
IIS3、 IIS4 的 ASP 的文件操作都可以通过 filesystemobject 实现，包括文本文件的读写目录操作、文件的拷贝改名删除等，但是这个强大的功能也留下了非常危险的“后门”。利用 filesystemobjet 可以篡改下载 fat 分区上的任何文件。即使是 ntfs 分区，如果权限没有设定好的话，同样也能破坏，一不小心你就可能遭受“灭顶之灾”。遗憾的是很多 webmaster 只知道让 web 服务器运行起来，很少对 ntfs 进行权限设置，而 NT 目录权限的默认设置偏偏安全性又低得可怕。因此，如果你是 Webmaster，作者强烈建议你密切关注服务器的设置，尽量将 web 目录建在 ntfs 分区上，目录不要设定 everyone full control，即使是是管理员组的成员一般也没什么必要 full control，只要有读取、更改权限就足够了。
四、 ASP 应用程序可能面临的攻击过去许多 Internet 上 CGI 写的留言本或 BBS 是把客户输入的留言变为一个变量，然后再把这个变量插入到显示留言的 HTML 文件里，因此客户输入的文本如要在 HTML 文件里显示就得符合 HTML 标准，而 CGI 程序里一般都加入了特定的 HTML 语言。当客户输入内容，插入 HTML 文件时，即同时插入到了头尾 HTML 语句中，如：
　　 < font>客户输入的变量 < /font>但如果把前后的 HTML 标记给敝屏了，就可以做很多事情了。
　　如输入时打上：
　< /font>符合 HTML 标准的语句 < font>前后的 < font>是用来敝屏 CGI 中的 HTML 语句用的。插入到 HTML 文件里的就变成了：
　< font>< /font>符合 HTML 标准的语句 < font>< /font>由于这样一个特性，使得写个 javascript 的死循环变得非常容易，只要在输入框中输入：
　< a href="URL">或 < a herf="URL">

那么就能让其他查看该留言的客户的浏览器因死循环而死掉。 ASP 开发的程序同样可能存在这个问题，因此当你用 asp 编写类似程序时应该做好对此类操作的防范，譬如可以写一段程序判断客户端的输入，并屏蔽掉所有的 HTML、 Javascript 语句。

qcqwppp · 发表于 2009-11-6 18:09

第二章 asp提高篇
2.1 全面解析Server对象
Server对象提供对服务器上访问的方法和属性.大多数方法和属性是作为实用程序的功能提供的。

　　语法:

　　　Server.property|method

　　属性（property）

　　　Server对象只有一个属性：ScriptTimeout 程序能够运行的最大时间

　　方法（Methods）

　　　CreateObject 建立一个对象实例.

　　　Execute 执行一个asp文件

　　　GetLastError 返回一个错误代码

　　　HTMLEncode 对指定的HTML代码进行转换.

　　　MapPath 将一个相对路径转化为一个绝对路径.

　　　Transfer 将当前的所有状态信息发送给另一个asp文件

　　　URLEncode 以URL形式转化指定的代码,包括空格

　　Server对象的方法详细说明

　　　CreateObject

　　　语法

　　　Server.CreateObject( progID )

　　　参数

　　　　progID

　　　　指定要创建的组件名称,格式如下: [Vendor.]Component[.Version].

　　　要点：

　　　　一般来说,用由Server.CreateObject方法创建的对象拥有页面的范围.这就说,当这页的asp程序执行完后,这种对象会自动地消失.

　　为了创建一个拥有Session或Application范围的对象,你可以在Global.asa文件中使用

　　Execute

　　Execute 方法呼叫一个ASP文件并且执行它就像这个呼叫的ASP文件存在这个ASP文件中一样。这很像许多语言中的类的调用。

　　语法

　　Server.Execute( Path )

　　参数

　　　Path

　　指定执行的那个asp文件的路径。如是它是一个绝对路径，那么它必须是一个在这个ASP应用程序相同的地方（目录）。

　　讲解

　　Server.Execute 方法提供了一种将一个复杂ASP应用程序分化为小块单位来执行的方法。通过这种方法，你能够建一个ASP图书馆，你能够随便在你需要时调用你图书馆中的ASP文件。这个就有点像SSI了！嘿嘿！

　　当IIS根据指定的ASP文件路径执行完这个ASP文件之后，就会自动返回以前的ASP文件。这个刚刚执行完的ASP文件有可能改变了HTTP head.但是和其它的ASP文件一样，当程序试图改变http head时，就会报错！

　　这个path参数可以包括一个询问信息。

　　如果在被呼叫和呼叫的ASP文件中都含有相同的子函数，那么这些子函数只在本ASP文件中起作用。举个例子，如果在下面的ASP1和ASP2两个文件中都含有放弃程序的子函数。首先ASP1呼叫ASP2，那么ASP2中的的OnTransactionAbort开始执行，当ASP2执行完毕，ASP1中的OnTransactionAbort才开始执行。

　　ASP1:

＜ %@ Transaction=Required%＞
＜ %
　Server.Execute ("Page22.asp")

　Sub OnTransactionAbort

　Sub OnTransactionCommit
%＞

　　Asp2.asp:

＜ %@
　Transaction=Required

　Sub OnTransactionAbort

　Sub OnTransactionCommit
%＞

　　Example

　　 ASP1

＜ % Response.Write("I am going to execute ASP2 ")
Server.Execute("/myasps/asp2.asp")
%＞

ASP2

＜ % Response.Write("Here I am")%＞

　　GetLastError

　　GetLastError 方法返回一个ASPError Object 来描述一个错误信息.这个方法只适用于在asp文件发送任何内容给用户机之前.

　　语法

　　Server.GetLastError ()

　　要点

　　如果一个500;100 用户错误已经被定义在一个asp应用程序中，它是指的一个以.asp为后缀的文件。这种情况下，在这个程序运行时当一个错误发生时，服务器就会自动的以Server.Transfer这种方式传送到这个正在执行的ASP页面。ASP应用程序就会将有效的处理这个错误。另外，这个ASPError Object一定要有效，这样你就能够看到服务器提供给你的错误信息来改这个文件了！

　　一般的Web Site 都是根据文件\iishelp\common\500-100.asp来构造的。你能够用它来执行一个asp错误，当然你能够自己定义了！。如果你想改变为另外一个asp文件的来执行这些用户错误。那么你可以用IIS中的snap-in.

　　注意：当IIS发现了一个asp文件或者global.asa文件中的一个错误，那么一个500;100用户错误产生。以下的程序将不能执行！

　　Example

　　下面的三个例子证明不同的错误会产生的用户错误。三个错误是：

　　编译错误

　　运行错误

　　逻辑错误

　　第一个例子证明了一个编译错误，就是当IIS试图包含一个文件时产生的。这个错误会产生是因为在这个包含文件中没有定义所需的参数。第二个例子显示的是一个运行错误，这个程序中断的原因是程序中没有“next".第三个例子显示的是一个逻辑错误，因为这个程序试图除以一个0. 不行啦！　

　　
Example 1

＜ %
　　response.write "hello"
%＞

Example 2

＜ %
　　dim I
　　for i=1 to 1
　　nxt
%＞

Example 3

＜ %
　　dim i,j
　　dim sum
　　sum=0
　　j=0

　　for i=1 to 10
　　　sum=sum+1
　　next

　　sum=sum/j
%＞

　　HTMLEncode

　　HTMLEncode方法对指定的字符串进行HTML编码.

　　语法

　　　Server.HTMLEncode( string )

　　参数
　　　string 要进行编码的字符

　　例子

　　下面的程序:

　　＜ %= Server.HTMLEncode("The paragraph tag: ") %＞

　　输出为:

　　The paragraph tag:

　　注意程序执行后在浏览器中看到的是:

　　The paragraph tag:

　　但是如果你用"查看源文件"看一下的话,源代码就不是了.
MapPath

　　MapPath 方法将相对路径转化为服务器上的物理路径

　　语法

　　Server.MapPath( Path )

　　参数

　　Path

　　相对路径。这个路径是以"/"或"\"开头的路径，如果这个路径中没有"\",那么MapPath方法就会返回以当前目录为基础的路径。

　　讲解

　　MapPath 方法不能检查路径在这个服务器下是否存在。因为 MapPath 转化路径时是不管这个路径是否在这个服务器下存在的。

　　你能够用它来将一个相对路径转化为一个物理路径，然后再在这个路径下进行各种操作。

　　Example

　　在下面的例子中，data.txt文件存在 C:\Inetpub\Wwwroot\Script 目录中，而且一个test.asp 文件包括下面的代码。C:\Inetpub\Wwwroot 是该服务器的主目录。

　　下面的例子中，首先用环境变量"PATH_INFO"获得当前文件的物理路径。

　　下面是Script 代码：

　　＜ %= server.mappath(Request.ServerVariables("PATH_INFO"))%＞

　　显示为：

　　c:\inetpub\wwwroot\script\test.asp

　　因为下面的例子中路径参数没有以"/"开头，所以它是以当前目录转化的，asp文件是放在C:\Inetpub\Wwwroot\Script中的.以下是 scripts的内容：

　　＜ %= server.mappath("data.txt")%＞

　　＜ %= server.mappath("script/data.txt")%＞

　　显示为：

　　c:\inetpub\wwwroot\script\data.txt

　　c:\inetpub\wwwroot\script\script\data.txt

　　以下的两个例子是以"/"开头的.以下是scripts的内容：

　　＜ %= server.mappath("\script")%＞

　　显示为：

　　c:\inetpub\wwwroot\script\data.txt

　　c:\inetpub\wwwroot\script

　　直接用"/"或"\"就会得到服务器的主目录：

　　＜ %= server.mappath("\")%＞

　　显示为：
　
　　c:\inetpub\wwwroot

　　c:\inetpub\wwwroot

　　Transfer

　　transfer 方法会把一个正在执行的asp文件的所有信息传给另外一人asp文件。

　　语法

　　Server.Transfer (path)

　　参数

　　Path

　　将要接收信息的asp文件的位置。

　　要点

　　当你调用Server.Transfer时，所有内建对象的状态信息都会包含在这次传送之中。这就是说，所有在保存在Session或Application中的信息都会被传送，而且，所有当前请求的信息都会被接收信息的asp文件所接受。

　　Example

　　下面的例子示范了从一个asp文件传送到另一个asp文件例子！

　　ASP1

＜ % Dim sessvar1 Response.Write Session.SessionID
　Response.Write ("")
　Response.Write("I am going to ASP2 ")
　Server.Transfer("/Myasps/ASP2.asp")
% ＞

　　ASP2

＜ % Response.Write Session.SessionID %＞

　　URLEncode

　　URLEncode 方法可以将指定字符串进行URL编码。

　　语法

　　Server.URLEncode( string )

　　参数

　　string 指定要转化的字符串

　　Example

　　下面是代码：

　　＜ % Respones.Write(Server.URLEncode("http://www.microsoft.com")) % ＞

　　显示为：

　　http%3A%2F%2Fwww%2Emicrosoft%2Ecom

　　属性：ScriptTimeout

　　ScriptTimeout 属性规定了程序的最大运行时间。

　　语法

　　Server.ScriptTimeout = NumSeconds

　　参数

　　NumSeconds

　　规定了程序的最大的运行时间（以秒计算）。缺省值是90秒

　　Remarks

　　一个缺省的Scritpt Timeout的值会能过ASPScriptTimeOUT属性来设置在Web sertvic 或 Web server上。在程序中，ScriptTimeout属性的值不能小于这个缺省值。举个例子吧，如果NumSeconds我们设置为10秒，而缺省值为90秒，那么程序就会中止在90秒以后，而不是10秒以后的。同样，如果我们设置ScriptTimeout的值为100秒，那么，程序就会在100秒之后中止，而不是90秒。

　　Example

　　下面的例了中程序将被设置为100秒后自动中止。

　　＜ % Server.ScriptTimeout = 100 %＞

　　下面的例子中将重新得到ScriptTimeout的值，然后把它存在Timout变量中

　　＜ % TimeOut = Server.ScriptTimeout %＞

2.2 利用JSP的思想来做ASP

程序的功能有了个大体的框架，其实可以自己添加一些功能，比如开始的数据库连接，可以先设置
变量然后通过INIT() 来选择不同类型的数据库
<%
’On Error Resume Next
Class ConnEx
public ConnEx
public DBpath ’---------数据库路径
public DBtype ’---------数据库类型 1(Access) 2(SqlServer) 3(可扩充)
public ConnMethod ’--------连接方式（DSN，非DSN）
public User
public Pass
Sub Class_initialize
End Sub

Sub Init()
ConnStr = "Driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("Date.mdb")
Set ConnEx = Server.Createobject("ADODB.CONNECTION")
ConnEx.Open ConnStr
CatchError("Class_Terminate")
End Sub

Sub CatchError( Str )
If Err Then
Err.Clear
Class_Terminate()
Response.Write("捕捉到错误,程序结束!在"&Str&"处")
Response.End()
End If
End Sub

’******************************************
’*通过SQL语句来查找记录是否存在,容易出错
’******************************************

Function HasRecordBySql( Sql )
Call CheckSql(Sql,"R")
Dim Rs,HasR
Set Rs = ConnEx.Execute( Sql )
CatchError("HasReordSql")
If Not (Rs.eof Or Rs.bof) Then
HasR = False
Else
HasR = True
End If
Rs.Close
Set Rs = Nothing
HasRecordBySql = HasR
End Function

’***************************************
’*通过ID来查找记录是否存在
’***************************************

Function HasRecordById( StrTableName , IntID )
’CheckValue( IntID , 1 )
Dim Rs,HasR
Sql = "Select top 1 * from "&StrTableName&" Where Id = "&IntID
Call CheckSql(Sql,"R")
Set Rs = ConnEx.Execute(Sql)
CatchError("HasRecordByID")
If Not (Rs.eof Or Rs.bof) Then
HasR = False
Else
HasR = True
End If
Rs.close
Set Rs = Nothing
HasRecordById = HasR
End Function

’**********************************************
’*通过SQL语句取得记录集
’**********************************************
Function GetRsBySql( Sql )
Call CheckSql(Sql,"R")
Dim Rs
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open Sql,ConnEx,1,1
Set GetRsBySql = Rs
End Function

’*********************************************
’*取得某个字段的值
’*********************************************
Function GetValueBySql( Sql )
Call CheckSql(Sql,"R")
Dim Rs,ReturnValue
Set Rs = ConnEx.Execute(Sql)
CatchError("GetValueBySql")
If Not( Rs.Eof Or Rs.Bof ) Then
ReturnValue = Rs(0)
Else
ReturnValue = "没有记录"
End If
Rs.Close
Set Rs = Nothing
GetValueBySql = ReturnValue
End Function

’==================================================Update,Insert===================================

’*********************************************
’*利用SQL修改数据
’*********************************************
Function UpdateBySql( Sql )
Call CheckSql(Sql,"w")
ConnEx.Execute(Sql)
CatchError("UpdateBySql")
UpdateBySql = True
End Function

’********************************************
’*利用SQL语句插入数据
’********************************************
Function InsertBySql(Sql)
Call CheckSql(Sql,"w")
ConnEx.Execute(Sql)
CatchError("InsertBySql")
InsertBySql = True
End Function

’======================================================Delete========================================

’********************************************
’*通过SQL语句删除
’********************************************
Function DeleteBySql( Sql )
Call CheckSql(Sql,"D")
ConnEx.Execute(Sql)
CatchError("DeleteBySql")
DeleteBySql = True
End Function

’********************************************
’*检查SQL语句权限，根据标志Flag 来检测语句拥有的权限
’********************************************
Sub CheckSql( Sql , Flag )
Dim StrSql,SinCounts,DouCounts,i
StrSql = Lcase(Sql)
SinCounts = 0
DouCounts = 0
For i = 1 to Len(StrSql)
If Mid(StrSql,i,1) = "’" Then SinCounts = SinCounts + 1
If Mid(StrSql,i,1) = """" Then DouConnts = DouCounts + 1
Next

If (SinCounts Mod 2) <> 0 Or (DouCounts Mod 2) <> 0 Or Instr(StrSql,";") > 0 Then
Call Class_Terminate()
Response.Write("SQL语法错误!")
Response.End()
End If
Select Case Flag
Case "R","r":
If Instr(StrSql,"delete") > 0 Or Instr(StrSql,"update") Or Instr(StrSql,"drop") > 0 Or Instr(StrSql,"insert") > 0 Then
Class_Terminate()
Response.Write("权限不足,没有执行写操作的权限")
Response.End()
End If
Case "W","w":
If Instr(StrSql,"delete") > 0 Or Instr(StrSql,"drop") > 0 Or Instr(StrSql,"select") > 0 Then
Class_Terminate()
Response.Write("权限不足，没有执行删除操作的权限")
Response.End()
End If
Case "D","d":
Case Else:
Response.Write("函数CheckSql标志错误!")
End Select
End Sub

Sub Class_Terminate
If Not IsEmpty(FriendConn) Then
FriendConn.Close
Set FriendConn = Nothing
CatchError()
End If
End Sub
End Class
%>

2.3 深入研究Application和Session对象

用ASP编写虚拟社区、网上购物等程序时，Application和Session对象具有举足轻重的作用，能够灵活合理地运用这两个对象是提高程序质量的关键。下面让笔者根据自己在这方面的经验，向大家深入介绍一下ASP的这两个内建对象。

　　一、Application对象的成员概述

　　Application对象成员包括Application对象的集合、方法和事件。

　　⒈Application对象的集合

　　Contents集合：没有使用<OBJECT>元素定义的存储于Applicaiton对象中的所有变量的集合

　　StaticObjects:使用<OBJECT>元素定义的存储于Application对象中的所有变量的集合

　　例：在default.asp中有如下赋值

　　application("a")="a"

　　application("b")=128

　　application("c")=false

　　则有contents集合

　　application.contents(1)="a" '也可写为application.contents("a")="a"

　　application.contents(2)=128 '也可写为application.contents("b")=128

　　application.contents(3)=false '也可写为application.contents("c")=false

　　在此笔者推荐你在调用时使用类如application.contents("a")的方法，因为这样更为直观，如果用序号来表示的话则要考虑赋值的先后顺序。

　　⒉Application对象的方法

　　Contents.Remove("变量名")：从Application.Contents集合中删除指定的变量

　　Contents.RemoveAll() ：把Application.Contents集合中的所有变量删除

　　Lock() ：锁定Application对象，使得只有当前的ASP页对内容能进行访问

　　Unlock() ：解除对Application对象的锁定

　　例：在default.asp中：

　　application("a")="a"

　　application("b")=128

　　application("c")=false

　　response.write application.contents(1)&"<br>"

　　response.write application.contents(2)&"<br>"

　　response.write application.contents(3)&"<br>"

　　response.write "After Remove b:"

　　application.contents.remove("b")

　　response.write application.contents(1)&"<br>"

　　response.write application.contents(2)&"<br>"

　　执行结果：

　　a

　　128

　　False

　　After Remove b:

　　a

　　False

　　如果要删除集合中所有变量用application.contents.removeall即可，至于Lock和Unlock方法在实际中经常用到，读者也比较熟悉，在此就不在累赘。

　　⒊Application对象事件

　　OnStart：第一个访问服务器的用户第一次访问某一页面时发生

　　OnEnd ：当最后一个用户的会话已经结束并且该会话的OnEnd事件所有代码已经执行完毕后发生，或最后一个用户访问服务器一段时间（一般为20分钟）后仍然没有人访问该服务器产生。

　　想要定义application对象的OnStart和OnEnd事件里做什么需要将代码写在Global.asa这个文件里（下文有举例），并且将该文件放在站点的根目录下（一般是Inetpub\wwwroot\）

　　二、Session对象的成员概述

　　Session对象的成员比Application对象多一项属性，即：集合、属性、方法、事件

　　⒈Session对象的集合

　　Contents ：没有使用<OBJECT>元素定义的存储于特定Session对象的所有变量的集合。

　　StaticObject：使用<OBJECT>元素定义的、存储于Session对象中的所有变量的集合。

　　例：在default.asp中有如下赋值

　　session("a")="a"

　　session("b")=128

　　session("c")=false

　　则有contents集合

　　session.contents(1)="a" '也可写为session.contents("a")="a"

　　session.contents(2)=128 '也可写为session.contents("b")=128

　　session.contents(3)=false '也可写为session.contents("c")=false

　　⒉Session对象的属性

　　CodePage: 可读/可写。整型。定义用于在浏览器中显示页内容的代码页。代码页是字符集的数字值，不同的语言使用不同的代码页。例如，ANSI代码页为1252，日文代码页为932，简体中文代码页为936。

　　LCID : 可读/可写。整型。定义发送给浏览器的页面地区标识。LCID是唯一地标识地区的一个国际标准缩写，例如，2057定义当前地区的货币符号是"￡"。

　　SessionID: 只读。长整型。返回本会话的会话标识符。每创建一个会话，由服务器自动分配一个标识符。可以根据它的值判断两个用户是谁先访问服务器。

　　Timeout : 可读/可写。整型。为会话定义以分钟为单位的超时限定。如果用户在这个时间内没有刷新或请求任何一个网页，则该用户产生的会话自动结束。缺省值是20。

以上属性在实际应用中作用不大，而且基本上不需要怎么修改，这几个属性也没什么特殊的地方。

　　⒊Session对象的方法

　　Contents.Remove("变量名"): 从Session.contents集合中删除指定的变量

　　Contents.Removeall() : 删除Session.contents集合中的所有变量

　　Abandon() : 结束当前用户会话并且撤消当前Session对象。

　　Session对象的Contents.Remove("变量名")和Contents.Removeall()方法与Application对象的基本上没什么区别，为帮助理解，大家可以参照上面的例子将Application改为Session。这里要说明一下的是Contents.Removeall()和Abandon()的区别，执行这两个方法都会释放当前

　　用户会话的所有Session变量，不同的是Contents.Removeall()单纯地释放Session变量的值而不终止当前的会话，而Abandon()除了释放Session变量外还会终止会话引发Session_OnEnd事件，希望大家注意两者的区别。

　　⒋Session对象的事件

　　OnStart: 当ASP用户会话产生时触发，一旦有任一用户对本服务器请求任一页面即产生该事件。

　　OnEnd : 当ASP用户会话结束时触发，当使用Abandon()方法或超时也会触发该事件。

　　这两个事件和Application的OnStart、OnEnd事件一样，也是必须放在Global.asa文件里，下
面就重点和大家研究一下这四个事件的使用。

　　三、Global.asa

　　ASP的Application和Session对象体现了其他ASP内置对象所没有的特征--事件。每一个访客访问服务器时都会触发一个OnStart事件（第一个访客会同时触发Application和Session的OnStart事件，但Application先于Session），每个访客的会话结束时都会触发一个OnEnd事件（最后一个访客会话结束时会同时触发Application和Session的OnEnd事件，但Session先于Application）。

　　OnStart和OnEnd这两个事件一般应用在虚拟社区中统计在线人数、修改用户的在线离线状态等。要具体定义这两个事件，需要将代码写在Global.asa文件，并将该文件放在站点的根目录下（缺省是\Inetpub\wwwroot\）。另外，Application和Session对象规定了在OnEnd事件里除了Application对象外其他ASP内置对象（Response、Request、Server、Session...）一概不能使用。以下举一个虚拟社区统计在线人数的例子来说明如何使用这两个事件。

　　文件说明：

　　global.asa 位于d:\Inetpub\wwwroot\目录下

　　default.asp 位于d:\Inetpub\wwwroot\目录下，虚拟社区登录页面

　　login.asp 位于d:\Inetpub\wwwroot\目录下，用于检测用户输入的用户名及密码

　　index.asp 位于d:\Inetpub\wwwroot\目录下，虚拟社区首页

　　bbs.mdb 位于d:\Inetpub\wwwroot\目录下，存储用户信息的数据库

　　数据库（ACCESS）结构：

　　 ===bbs表===

　　id 用户ID，长整型

　　name 用户名，文本型

　　code 密码，文本型

　　online 在线状态，是/否

　
　　===global.asa===

　　＜script LANGUAGE="VBScript" RUNAT="Server"＞

　　Sub Application_OnStart

　　　application("online")=0

　　End Sub

　　sub Application_OnEnd

　　nd 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

　　＜/script＞

　　==============

　　===login.asp===

　　 ......'密码验证，连接数据库，检测用户输入的用户名及密码是否正确

　　if 密码验证通过 then

　　　session("name")=rs("name")

　　　session("id")=rs("id")

　　　session("pass")=true

　　else

　　　rs.close

　　　conn.close

　　　response.write "密码错误！"

　　　response.end

　　end if

　　application.lock

　　application("online")=application("online")+1

　　conn.Execute ("update bbs set online=1 where id="&session("id"))'将用户的状态设为在线

　　application.unlock

　　rs.close

　　conn.close

　　response.redirect "index.asp" '初始化数据后跳转到社区首页

　　===========

　　在本例中，用application("online")变量记录已经登录社区的在线人数，因为一旦有用户访问服务器而不管用户是否登录，都会产生OnStart事件，所以不能在OnStart事件里使Applicaiton("online")加一。因为不管是否是登录用户的会话结束都会产生OnEnd事件（假如有访客访问了服务器但并不登录社区，他的会话结束后也会产生OnEnd事件），所以在Session_OnEnd事件里用了句if语句来判断是否为已登录用户的OnEnd事件，如果是才将在线人数减一。

　　这只是一个统计在线人数的简单例子，对于一个完整的虚拟社区来说，仅仅统计有多少人在线是不够的，在本例中数据库里有个online字段是用来记录用户的在线状态，用户登录的时候，在login.asp里将online设为1，但用户离线时并没有将online设为0，要完善它，就要修改一下Session_OnEnd事件，在该事件里将online设为0。

　　===ｇｌｏｂａｌ．ｓａｓ===

　　＜script LANGUAGE="VBScript" RUNAT="Server"＞

　　Sub Application_OnStart

　　　application("online")=0

　　　set application("conn")=Server.CreateObject("ADODB.Connection")

　　　application("db")=Server.MapPath("\bbs.mdb") '此处最好使用绝对路径\bbs.mdb，下文有详细介绍

　　End Sub

　　sub Application_OnEnd

　　　set application("conn")=nothing

　　End Sub

　　　Sub Session_OnStart

　　End Sub

　　Sub Session_OnEnd

　　　if session.contents("pass") then '判断是否为登录用户的Session_OnEnd

　　　　　application("con").open ="driver={Microsoft Access Driver (*.mdb)};dbq="&application("db")

　　　　　application.lock

　　　　　 application("online")=application("online")-1

　　　　　 application("con").Execute ("update friends set online=0 where id="&session.contents("id"))

　　　　　 application.unlock

　　　　　 application("con").close

　　　end if

　　End Sub

　　＜／script＞

　　==============

　　至此，完整的代码已经完成了。因为在Application和Session的OnEnd事件里不能使用Server对象，所以要将数据库的连接及数据库在服务器上的物理地址（d:\inetpub\wwwroot\bbs.mdb）存储在application变量中，并在Application_OnStart事件中预先处理。同理，在Session_OnEnd事件中不能用session("pass")来代替session.contents("pass")（以下有详尽说明）。

　　四、本文实例中值得引起注意的两点

　　⒈OnEnd事件里的session.contents

　　刚开始接触global.asa的朋友经常会将上面Session_OnEnd事件里的

　　if session.contents("pass") then　写成

　　if session("pass") then，

　　这样的话系统不会提示错误，但是永远也不会执行then后面的内容，这是因为在OnEnd事件里禁止使用Session对象，但是可以用Session对象的集合来调用session变量。因为IIS并没提示任何错误信息，所以笔者曾经在这上面浪费了很多时间。在此希望大家引以为鉴！

　　⒉Application_OnStart事件里用Server.MapPath获取数据库的物理地址时应使用绝对地址为了说明这个问题，大家可以做个实验：将上面Application_OnStart事件里的

　　application("db")=Server.MapPath("\bbs.mdb")改为:

　　application("db")=Server.MapPath("bbs.mdb")

然后在d:\inetpub\wwwroot\目录下建立一个test子目录，写一个temp.asp在test目录里。

　　====test.asp====

　　＜％response.write application("db")％＞

　　================

再将temp.asp拷贝一份放在根目录下（d:\inetpub\wwwroot\）。用记事本打开global.asa，再打开两个浏览器，浏览器A输入地址http://localhost/temp.asp，按回车，将在浏览器上输出：

　　d:\inetpub\wwwroot\bbs.mdb

然后，在记事本的窗口上点"文件"菜单，选"保存"（使global.asa的修改时间改变，从而使IIS重启动所有服务），再在浏览器B输入地址http://localhost/test/temp.asp，按回车，在浏览器上输出的是：

　　d:\inetpub\wwwroot\test\bbs.mdb

global.asa文件虽然是放在站点根目录下，但是如果在server.mappath中使用的是相对地址，而触发Application_OnStart事件的用户第一次访问的页面又不是属于根目录的话，得到数据库的物理地址将不会是期望的结果，希望大家要特别小心。

2.4 ASP编程之ActiveX组件

从今天开始我们将正式学习 ASP 的精华部分 --ActiveX 组件。事实上，当你用 ASP 编写服务器端应用程序时，必须依靠 ActiveX 组件来强大 Web 应用程序的功能，譬如：你需要连接数据库，对数据库进行在线操作或者对 WEB 服务器上的文件系统进行操作，亦或你需要一个 WEB 广告交换程序，所有这一切你都必须通过调用 ASP 内建的 ActiveX 组件或自己编写所需的组件来完成。

　　那么，究竟什么是 ActiveX 组件呢？它又是如何运作的呢？其实 ActiveX 组件是一个存在于 WEB 服务器上的文件，该文件包含执行某项或一组任务的代码，组件可以执行公用任务，这样就不必自己去创建执行这些任务的代码。例如，股票行情收报机组件可以在 Web 页上显示最新的股票报价。当你在 WEB 服务器上安装完 ASP 环境后，就可以直接使用它自带的几个常用组件，如 Database Access 组件。当然你也可以从第三方开发者处获得可选的组件 , 也可以编写自己的组件。你可以利用组件作为脚本和基于 Web 应用程序的基本构造块，只要知道如何访问组件提供的对象，即使你是位编写脚本的新手，也可以在不了解组件运作方式的情况下编写 ASP 程序。总而言之， ActiveX 组件使您不用学习复杂的编程就能够写出强大的 WEB 服务器端脚本。如果您是位 Web 应用程序的开发者，可以使用任何支持组件对象模型（COM）的语言来编写组件，如， C、 C++、 Java 或 Visual Basic。如果你熟悉 COM 编程， ActiveX 组件就是 Automation 服务器。但是要在 Web 服务器上运行， ActiveX 组件不能有图形用户接口元素，如 Visual Basic 的 MsgBox 函数。组件是可以重复使用的。在 Web 服务器上安装了组件后，就可以从 ASP 脚本、 ISAPI 应用程序、服务器上的其他组件或由另一种 COM 兼容语言编写的程序中调用该组件。
　　那么我们在 ASP 中应该如何调用组件呢？如前所述，组件是包含在动态链接库 (.dll) 或可执行文件 (.exe) 中的可执行代码。组件可以提供一个或多个对象以及对象的方法和属性。要使用组件提供的对象，我们首先要创建对象的实例并将这个新的实例分配变量名。使用 ASP 的 Server.CreateObject 方法可以创建对象的实例。接着，使用脚本语言的变量分配指令为对象实例命名。创建对象实例时，必须提供实例的注册名称“PROGID”。如下要创建一个 Ad Rotator 对象的实例 :
　　＜ % Set MyAds = Server.CreateObject("MSWC.AdRotator") %＞
　　我们必须使用 ASP 的 Server.CreateObject 方法来创建对象实例，否者 ASP 无法跟踪脚本语言中对象的使用。
　　使用 HTML＜ OBJECT＞标签同样可以创建对象实例，但必须为 RUNAT 属性提供服务器值，同时也要为将在脚本语言中使用的变量名提供 ID 属性组。使用注册名 (PROGID) 或注册号码 (CLSID) 可以识别该对象。下面的例子使用注册名 (PROGID) 创建 Ad Rotator 对象的实例：
　　＜ OBJECT RUNAT=Server ID=MyAd PROGID="MSWC.AdRotator"＞＜ /OBJECT＞

　　下面列出了 ASP 可安装的常用组件。
Ad Rotator 创建一个 AdRotator 对象，该对象可按指定计划在同一页上自动轮换显示广告。
Browser Capabilities 创建一个 BrowserType 对象，该对象决定访问 Web 站点的每个浏览器的性能、类型及版本。
Database Access 提供用 ActiveX Data Objects (ADO) 对数据库的访问。
Content Linking 创建一个 NextLink 对象，该对象可生成 Web 页内容列表，并象书一样将各页顺续连接。
File Access 组件提供文件的输入输出访问。
Collaboration Data Objects for NTS 组件可以快速、简便的在 Web 页上添加收发邮件功能。该组件只适用于 Internet Information Server for Windows NT? Server 。
MyInfo 创建一个 MyInfo 对象，该对象追踪个人信息，例如站点管理员的姓名、地址及显示选择。
Counters 创建一个 Counters 对象，该对象可以创建、保存、增加或检索任意数量的独立计数器。
Content Rotator 自动翻转 Web 主页上的 HTML 内容字符串。
Page Counter 记录并显示 Web 页被打开的次数。
　　现在 WEB 广告几乎充斥了整个网络，那么究竟如何在你自己的网站上建立一个符合广告领域标准功能的广告系统呢？答案是利用 ASP AD Rotator 组件 ! 它允许在每次访问 ASP 页面时在页面上显示新的广告，并且提供了很强的功能，例如 : 旋转显示在页面上的广告图象的能力、跟踪特定广告显示次数的能力以及跟踪客户端在广告上单击次数的能力。 AD Rotator 组件的工作是通过读取 AD Rotator 计划文件来完成的，该文件包括与要显示的图象文件的地点有关的信息以及每个图象的不同属性，下面就是一个标准的 AD Rotator 计划文件 :
---ADROT.TXT---
REDIRECT /scripts/adredir.asp
WIDTH 440
HEIGHT 60
BORDER 1
＞
ads/homepage/chinabyte.gif
http://www.chinabyte.com/
Check out the IT site
2
ads/homepage/gamichlg.gif
-
Sponsored by Flyteworks
3
ads/homepage/asp.gif
http:// www.aspallian.com/
Good ASP site on net
3
ads/homepage/spranklg.gif
http://www.clocktower.com/
The #1 Sports site on the net
2
　　该段代码的前四行包含广告的全局设置。 Redirect 行指出广告将成为其热连接的 URL, 注意这里不是为广告本身指定的 URL，而是将调用的中间页面的 URL，这样我们就可以通过这个中间页面跟踪单击广告的次数。该 Redirect URL 将与包含两个参数的查询字符串一起调用 : 特定广告主页的 URL 和图象文件的 URL。星号上面的其余三行简单说明如何显示广告。前两行以像素为单位指定网页上广告的宽度和高度，默认值是 440 和 60 个像素。后一行，同样是以像素为单位指定广告四周超链接的边框宽度 , 默认值是 1 个像素。如果将该参数设置为 0，则将没有边框。
　　星号下面的行以每四行为一个单位描述每个广告的细节。在此例中共有 16 行，描述四个广告。每个广告的描述包含图象文件的 URL、广告的主页 URL（如果广告客户没有主页，请在该行写上一个连字符“-”，指出该广告没有链接）和图象的替代文字以及指定该页与其他页交替显示频率的数值。
　　图象是重定向页面的热连接，它在查询字符串中设置了两个值， url=/scripts/adredir.asp 以及 image=/ads/homepage/asp.gif。要确定广告显示的频率，可以将计划文件中所有广告的权值相加，在该例中总数是 10，那么 aspallian 的广告权值为 3，这意味着 AdRotator 组件每调用十次，它则显示 3 次。
　　重定向文件是用户创建的文件。它通常包含用来解析由 AdRotator 对象发送的查询字符串的脚本并将用户重定向到与用户所单击的广告所相关的 URL。用户也可以将脚本包含进重定向文件中，以便统计单击某一特定广告的用户的数目并将这一信息保存到服务器上的某一文件中。增加计数器和重定向用户是通过下面两行 ASP 脚本来实现的 :
＜ %
Counter.Increment(request.querystring("url"))
response.redirect(request.querystring("url"))
%＞
　　现在我们看一下 Ad Rotator 组件是如何在页面中使用的，首先必须使用 Server.CreateObject 方法实例化 Ad Rotator 对象。 Ad Rotator 组件的 PROGID 属性是 MSWC.AdRotator。完整的代码如下 :
＜ % Set ad = Server.CreateObject("MSWC.AdRotator") %＞
＜ %= ad.GetAdvertisement("/ads/adrot.txt") %＞

　　 Ad Rotator 组件支持的唯一方法是 GetAdvertisement，它只有一个参数 :AdRotator 计划文件的名称。注意指向文件的路径是从当前虚拟目录的相对路径，物理路径是不允许的。 GetAdvertisement 方法从 Rotator 计划文件中获取下一个计划广告的详细说明并将其格式化为 HTML 格式。下面的 HTML 由 GetAdvertisement 方法生成且被添加到网页的输出中，以便显示 Rotator 计划文件中的下一个广告。
＜ A HREF="[url=http://www.chinabyte.com/scripts/adredir.asp?http://www.aspallian.com/]http://www.chinabyte.com/scripts/adredir.asp?http://www.aspallian.com/[/url]"＞＜ IMG
SRC="http://www.chinabyte.com/ads/homepage/asp.gif" ALT="Good ASP site on net" WIDTH=440 HEIGHT=60 BORDER=1＞＜ /A＞
　　使用 AdRotator 组件我们可以直接通过对象属性而不是计划文件中的设置来直接控制某些广告特性，其可用属性如下 :
　　 Border 指定广告边框的大小。
　　 Clickable 指定广告是否为超链接。
　　 TargetFrame 指定显示广告的框架的名称。
＜ %
Set ad = Server.CreateObject("MSWC.AdRotator")
ad.Border = 0
ad.Clickable = true
ad.TargetFrame = AdFrame
ad.GetAdvertisement("/ads/adrot.txt")
%＞
　　通过上面的学习，相信你已经能够熟练运用 ASP 的内建 AdRotator 组件为自己的网站建立一个标准的广告显示程序了。你是否难以相信一切竟是如此的简单？其实真正能令你震惊的还在后头呢，敬请关注下一篇 ASP ActiveX 组件大揭密！

2.5 其它的ASP常用组件

　一、 Browser Capabilities 组件众所周知，并不是所有浏览器都支持现今 Internet 技术的方方面面。有一些特性，某些浏览器支持而另一些浏览器却不支持，如 : ActiveX 控件、影像流、动态 HTML、 Flash 以及脚本程序等。使用 ASP 的 Browser Capabilities 组件，就能够设计“智能”的 Web 页，以适合浏览器性能的格式呈现内容。 Browser Capabilities 组件能够创建一个 BrowserType 对象，该对象提供带有客户端网络浏览器的功能说明的用户脚本。该组件之所以能识别客户浏览器的版本等信息，主要是因为当客户浏览器向服务器发送页面请求时，会自动发送一个 User Agent HTTP 标题，该标题是一个声明浏览器及其版本的 ASCII 字符串。 Browser Capabilities 组件将 User Agent 映射到在文件 Browscap.ini 中所注明的浏览器 , 并通过 BrowserType 对象的属性来识别客户浏览器。若该对象在 browscap.ini 文件中找不到与该标题匹配的项，那么将使用默认的浏览器属性。若该对象既未找到匹配项且 browscap.ini 文件中也未指定默认的浏览器设置，则它将每个属性都设为字符串 "UNKNOWN"。在默认情况下， browscap.ini 文件被存放在 WINDOWS\SYSTEM\INERSRV( 如果是 95/98+PWS4) 或 NT\SYSTEM32\INERSRV( 如果是 NT) 目录中，你可以自己编辑这个文本文件，以添加自己的属性或者根据最新发布的浏览器版本的更新文件来修改该文件。请看以下 checkCookie() 过程，使用 BrowserCap 对象的 Cookie 属性来判断客户端浏览器是否支持 Cookie，并返回信息 :

＜ %
Sub checkCookie()
Set BrowserCap=Server.CreateObject("MSWC.BrowserType")
if BrowserCap.Cookie=True then
response.write "你的浏览器支持 Cookie!"
else
response.write "对不起，你所使用的浏览器不支持 Cookie!"
end if
end Sub
%＞

　　有关 Browser Capabilities 组件的详细信息，请参见动态网站设计十八般武艺 --ASP 篇 (2)。
　　二、 File Access 组件如果你的网龄足够大的话，你一定见过“恐龙时代”的 CGI 留言簿，那是 WEB 留言簿最早的雏形。那时候在基于 Internet 的 WEB 应用程序中连接服务器后端数据库还十分困难，因此留言簿中的历史信息并不是同如今一样存储在后端数据库中。那么这些数据究竟是保存在哪里的呢？答案就是“文本文件”， CGI 程序可以将从客户端接收的信息写进一个存放在服务器端的文本文件中，该文件可以是 HTML 文件或 TXT 等文件，这样就使得程序员们可以不通过同数据库连接就可以将客户信息保存下来，但是写此类 CGI 程序甚是烦琐，下面列出了一个此类程序的最简单的样本 :
#!/usr/local/bin/perl
# Perl Location one your server
print "Content-type: text/plain\n\n";
if($ENV{'REQUEST_METHOD'}eq"POST"){
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
}elsif($ENV{'REQUEST_METHOD'}eq"GET"){
$buffer=$ENV{'QUERY_STIRNG'};
}
@pairs=split(/&/,$buffer);
foreach $pair(@pairs){
($name,$value)=split(/=/,$pair);
$value=~tr/+//;
$value=~s/%([a-f A-F 0-9][a-f A-f 0-9])/pack("C",hex($1))/eg;
$FORM{$name}=$value;}
$file_name="guestbook.txt";#File name
#具体内容
open(FILE,"＞＞$file_name")　　die "打开文件错误";
print FILE "记录时间":$date \n\n";
print FILE "姓名":$FORM{'name'}";
print FILE "单位":$FORM{'company'}\n";
print FILE "电话":$FORM{'phone'}
print FILE "地址":$FORM{'address'}\n";
print FILE "邮编":$FORM{'zip'}
print FILE "邮件地址":$FORM{'email'}\n";
print FILE "返回意见":$FORM{'content'}
close (FILE)

　　大家可以感觉到，与 ASP 相比此类 CGI 程序的可读性和易操作性都较差。那么你一定想问 ASP 是否也能直接在服务器上写文件呢？答案当然是肯定的。但是聪明的朋友可能会想到，既然 ASP 同 WEB 数据库的连接如此便捷，我们又何需再将客户信息写在文本文件中呢， ASP 的这个功能岂不是画蛇添足？的确，对于那些我们常见的留言簿、 BBS 等 WEB 应用程序而言，无论是在程序的执行效率还是易用性上，我们都不可能再用写文本文件来替代数据库，但是在某些 WEB 应用领域里写文本文件既是一种规范也是一种相对数据库而较便捷的方法。如果你对 NT 较熟悉的话，你一定知道 NT 具有非常强大的安全机制，它可以将几乎所有的服务器操作和连接的信息自动保存在一个后缀名为 .log 的文件中，其实这种技术也完全可以被运用在 WEB 上，用来记录一些的客户登陆信息。下面的这段程序正是利用 ASP 读写文本文件的特性，在一个 WEB BBS 程序中创建自动记录每个用户发言记录的功能。
＜ %
Set fs = CreateObject("Scripting.FileSystemObject")
ForReading = 1
'以只读模式打开文件。不能对此文件进行写操作。
ForAppending = 8
'打开文件并在文件末尾进行写操作。
TristateUseDefault = -2
TristateTrue = -1
TristateFalse = 0
'-----------写入系统log开始--------
servermap=server.MapPath("\bbs\log\")
'映射系统物理路径
temp=servermap&"\"&year(date)&month(date)&"\"
'获取系统物理路径和时间，并以此作为log文件存放的物理路径
if Not fs.FolderExists(temp) then
fs.CreateFolder(temp)
end if
'检测是否存在文件夹，否则自动创建
dim syslog
dim tempname
tempname=date
syslog=temp&tempname&".log"
'文件名为e:\bbs\log\月份\月日.log
li=user&"&"&Now&"&"&Request.ServerVariables("REMOTE_ADDR")&"&"&tempfile&"&"&letter&"&"&title
'log文件记录的格式为:用户名&发信时间&用户ip&文件路径&信区&信件标题
if fs.FileExists(syslog) then
Set ss = fs.OpenTextFile(syslog,ForAppending,true)
else
set ss = fs.CreateTextFile(syslog,ForWriting,false)
end if
'检测log文件是否存在，如果存在则追加文件内容，反之则直接写文件
ss.WriteLine(li)
ss.Close
'-----------log文件写入结束---------
%＞

　　如果你没有完全看懂上面的这段程序，就请听作者慢慢道来。 File Access 组件提供了可用来访问计算机文件系统的方法和属性。我们可以使用 File Access 组件创建 FileSystemObject 对象，以上程序的第一句就是利用 File Access 组件创建了一个名为 fs 的对象实例。在对象被创建后，你可以通过它访问文件，该对象没有属性，它唯一的意义就是创建、打开或读写文本文件。 FileSystemObject 对象有两种最常用的方法，一种用来创建文件，另一种是用来打开并读写文本文件。 CreateTextFile 方法获得你指定的文件名并创建该文件，它返回一个 TextStream 对象，你可以用该对象在文件被创建后操作该文件， CreateTextFile 方法的语法如下 :
　　Set objTextStream=FileSystemObject.CreateTextFile(Filename,[Overwrite],[Unicode])
　　下面作者给大家解释一下 CreateTextFile 方法的参数
　　1、 Filename 包含文件路径名的字符串，可以是文件的全路径名，包括驱动器名和目录名，或者也可以只是文件名，如果只包含文件名的话，文件将被创建在站点的根目录下。
　　2、 Overwrite 布尔量，设置成 False 时可以防止 FileSystemObject 对象在创建一个新文件时删除已存在的文件，该参数是可选的，如果没有赋值系统默认为 true，具有相同文件名的已有文件会被删掉。
　　3、 Unicode 可选参数。布尔值指明是否以 Unicode 或 ASCII 文件格式创建文件。如果以 Unicode 文件格式创建文件，则该值为 True；如果以 ASCII 文件格式创建文件，则该值为 False。如果省略此部分，则假定创建 ASCII 文件。
　　在前面的程序中我们用 set ss=fs.CreateTextFile(syslog,ForWriting,false) 来在 log 文件不存在的情况下创建文件并对文件进行写操作，这里的“ForWriting”表示写文件。
　　与 CreateTextFile 方法不同， OpenTextFile 方法用来获得你指定的文件名并打开该文件，利用它所带的参数我们可以对文件进行各种不同的操作，和 CreateTextFile 方法一样， OpenTextFile 方法返回一个 TextStream 对象，使得你可以在文件被打开后操作该文件。 OpenTextFile 方法的语法如下 :
　　 Set objTextStream=FileSystemObject.OpenTextFile(Filename,[IOmode],[Create],[Format])
　　参数说明如下 :
　　1、 Filename 必须的变量，同 CreateTextFile 的 filename
　　2、 IOmode 可选的常量，取值为下列两个常数之一 ForReading 或 ForAppending，如果 mode 为 1，文件以只读方式打开，如果为 8，则文件以追加的方式打开。
　　3、 Create 可选的布尔量，指定如果你想打开的文件不存在是做什么操作，如果其值为 True，当文件不存在时就自动创建一个空的文件。如果为 False，就会在文件没找到时产生一个出错信息，其默认值是 False，建议将其设为 True，以避免在打开文件时检查是否出错。
　　 4、 Format 可选值，可以选择三种 Tristate 值分别指定文件的格式， -2、 -1、和 0 分别对应于系统缺省、 unicode 和 ASCII。
　　在打开或创建了文本文件后，就得到一个 TextStream 对象，该对象有一个光标，就好象是在字处理程序中的光标一样，指出接下来要敲入的字符将出现的位置，它同时也指出你要读取的字符的位置。不能通过 CreatObject 来创建一个 TextStream 对象，得到 TextStream 对象的唯一方法是如前所述的用 FileSystemObject 对象打开一个存在的文本文件或者创建一个新的文件。
　　下面列出了 TextStream 对象的属性和方法
　　 TextStream.AtEndOfLine 只读布尔量，当光标在当前行的末尾时，其值为 true，反之则为 false
　　 TextStream.AtEndOfStream 只读布尔量，如果光标在流的末尾时，其值为 true，否则为 false
　　 TextStream.Column 只读的整数，统计从行首到当前光标位置之间的字符数
　　 TextStream.Line 只读的整数，指明光标所在行在整个文件中的行号
　　 TextStream.close() 关闭流以及对应的文本文件
　　 TextStream.read(Num) 指定从光标的当前位置开始从文本文件中读取一定数目的字符
　　 TextStream.readall() 将整个流读入一个字符串中
　　 TextStream.readline() 将一整行的字符读入一个字符串中
　　 TextStream.write(text) 将一个字符串写入流中
　　 TextStream.writeline() 将一个文本串写入流中
　　 TextStream.skip(Num) 在流中，将光标的位置移动一定数目的字符串长度
　　 TextStream.skiplines() 在流中，将光标移动一定数目的行数
　　 TextStream.writeblank 将一定数目的空行写入流中
　　 lines(num)
　　相信大家现在已经可以感觉到 ASP File Access 组件的强大功能了，其实它远不仅仅可以写一些 log 文件，通过它你甚至可以毫不费力的远程自动更新你的网站，你只要把固定格式的文本文件传送到远端的服务器上，通过 File Access 组件读取文件，并自动生成全新 HTML 页面即可，而不必再辛辛苦苦地一个一个地更新 HTML 文件。如果你有兴趣，你完全可以用 ASP 的 File Access 组件写一个自己的全自动 HTML 生成器，充分享受维护网站的超前轻松感。

2.6 ASP中如何设计跨越域的Cookie

Cookie简介

　　首先，我们对Cookie做一个简单的介绍，说明如何利用ASP来维护cookie。

　　Cookie是存储在客户端计算机中的一个小文件，这就意味着每当一个用户访问你的站点，你就可以秘密地在它的硬盘上放置一个包含有关信息的文件。这个文件几乎可以包含任何你打算设置的信息，包括用户信息、站点状态等等。这样的话，就有一个潜在的危险:这些信息有可能被黑客读取。为了防止这个问题的发生，一个有效的办法就是cookie只能被创建它的域所存取。这就是说:比如ytu.edu.cn只能访问ytu.edu.cn创建的cookie。通常来讲，这没有什么问题；但是，如果需要两个不同域上的两个不同站点共享保存在cookie中的用户信息，该如何处理呢?当然可以选择复制用户信，但是，如果你需要用户只能在一个站点上注册，并且自东成为另外一个站点的注册用户呢?或者，两个站点共享一个用户数据库，而又需要用户自动登录呢?这时候，跨越域共享cookie是最好的解决方案。

　　这里，先看一些ASP处理cookie的代码，以便以后便于引用参考。

　
　'创建Cookie

　　Response.Cookies("MyCookie").Expires=Date+365

　　Response.Cookies("MyCookle").Domain="mydomaln.com"

　　Response.Cookies("MyCookle")("Username")=strUsername

　　Response.Cookies("MyCookle")("Password")=strPassword

　　读写cookie非常简单，上面的代码创建一个cookie并给cookie设置属性:域、过期时间，以及其他一些保存在cookie中的值。这里，strUsename，strPassword是在前面某个地方设置的变量。然后，通过下面的语句在cookie中读取。

　　'读取Cookie

　　datExpDate=Request.Cookies("MyCookie")

　　strDomaln=Request.Cookies("MyCookle").Domain

　　strUsername=Request.Cookies("MyCookle")("Username")

　　strPassword=Request.Cookies("MyCookie")("Password")

　　更详细的信息，可以参考ASP的资料。

　　实现

　　简单地共享cookie的诀窍是重定向，一般过程为:

　　1.一个用户点击siteA.com。

　　2.如果用户没有siteA.com的cookie，就把用户重定向到siteB.com。

　　3.如果用户有siteB.com的cookie，把用户连同一个特殊的标志(将在下面解释)重定向回siteA.com，否则，只把用户重定向到siteA.com。

　　4.在siteA.com创建cookie。

　　看起来很简单，仔细分析一下:siteA.com和siteB.com共享相同的用户设置，所以，如果用户有siteB.com的cookie(已经注册)，siteA.com能够同样读取cookie、提供cookie所允许的特性。这样，访问siteA.com的用户就如同访问了siteB.com。

　　这个检查的环节应该在siteA.com中的文件所包含一个cookies.inc中实现。让我们看一下这段代码:

　　l—1

　　'SiteA.com"检查cookie

　　If Request.Querystring("Checked")＜＞"True" then

　　If not Request.Cookies("SiteA_Cookie").Haskeys then

　　'重走向到siteB.com

　　Response.Redlrect("http://www.siteB.com/cookie.asp")

　　End if

　　End if

　　如果用户有一个siteA.com的cookie，则不需要做任何事情了；第一个if语句用来消除无限的循环。让我们看一下siteB.com上的cookie.asp文件来获得进一步的理解。

　　1—2

　　'SiteB.com

　　'检查cookie

　　If not Request.Cookies("SlteB_Cookle").Haskeys then

　　'重定向到 siteA.com

　　Response.Redirect("http://www.siteA.com/index.asp"&"?checked=True")

　　Else

　　'获取username

　　strUsername=Request.Cookies("SiteB_Cookie")("Username")

　　'将用户连同一个特殊的标志返回到siteA.com

　　Response.Redlrect("http://www.siteA.com/index.asp"&"?checked=True"&"identrfer="&strUsername)

　　End if

　　如果用户在siteB.com上仍没有cookie，于是，将他送回到siteA.com，并且通过在查询语句中提供一个叫做"checkd"的参数让应用程序知道你已经检查过cookie了。否则，将用户送回到siteB.com，并退出循环。

[电子书] 动态网页制作asp学习

立即注册，加入爱黑武论坛的大家庭！爱黑武，爱上搞机生活！

站长推荐 /1

账号		自动登录	找回密码
密码			注册