<b><font color="#026BAA">作者：</font><a href="mailto:shusheng@pchome.net"><font color="#026BAA">书生</font></a></b> </p>
<p> 在上一篇中作者给大家详细介绍了 ASP 内建对象之一
Request
的使用方法，相信各位通过一系列的实践已经能够熟练掌握，本篇将继续给大家介绍
ASP 的另一个内建对象 Response。 </p>
<p>最近，有很多朋友来“妹儿”催我加快 A SP 篇
一文的写作速度，并急切地询问哪里有关于 A SP 的
教材。我深深地被大家的学习热情所打动，因此决定将自己平时所搜集的一些
A SP 信
息资料拿出来和大家共享，也希望所有的朋友能慷慨地将自己搜集的有关
A SP 的 资料告诉作者，谢谢。由于目前国内有关 A SP 的
中文教材凤毛麟角，而专门针对 A SP 网
站开发的中文教材作者更是闻所未闻（可能是作者孤陋寡闻），只是最近听说出了一本清华大学出版社出版的关于
M S InterDev 的 傻瓜书，其中有 A SP 的 教学，和一本 A ctive Server Page 2.0
的 中文手册，因此目前作者还是主要通过国外网站来获取 A SP 的
有关信息和资料，这也是作者写本文的一个主要原因。下面我就将 b
ookmark 中 的一些较经典的 A SP 站 点罗列出来： </p>
<p> 1、<a href="http://www.activeserverpage.com/"><font color="#026BAA">http://www.activeserverpage.com/</font></a>
这是作者访问最频繁的 ASP 网站，也是世界上最大最全的关于
ASP 的网站之一，它里面不但有最新的 ASP
文献资料，免费组件，还有一本完整的 ASP 入门教材，它更是 ASP
网站的中枢站点，通过它你可以到达无数的 ASP 相关站点。</p>
<p> 2、<a href="http://www.asphole.com/"><font color="#026BAA">http://www.asphole.com/</font></a>
这本是一个针对 ASP
漏洞而建立的站点，但是它却无疑是一个完备的 ASP
信息站点，它非但提供了 ASP
的文章，及组件还提供详尽透彻的联接地址。</p>
<p> 3、<a href="http://www.15seconds.com/faq"><font color="#026BAA">http://www.15seconds.com/faq</font></a>
和 <a href="http://www.15seconds.com/search"><font color="#026BAA">http://www.15seconds.com/search</font></a>
这是一个作者所看到的最大的网上 ASP 交流站点，它拥有 ASP
解疑的答案，ASP 邮件清单信息，ASP
技巧，你可能需要需要几个月的时间才能读完这些信息。而在
http://www.15seconds.com/AllComponents.asp 你可以读到最新的 ActiveX
组件和大量免费组件的详细介绍，并附有非常实用的文档与例子。</p>
<p> 4、<a href="http://www.microsoft.com/workshop/server/asp/aspfeat.asp"><font color="#026BAA">http://www.microsoft.com/workshop/server/asp/aspfeat.asp</font></a>
大家都知道 Active Server Page 是微软提出的一套基于 NT IIS 的 WEB
服务器端环境，那么这个由微软自己建立的 ASP
技术说明站点，大家当然是不可不看的。</p>
<p> 5、<a href="http://www.serverobjects.com/"><font color="#026BAA">http://www.serverobjects.com/</font></a>
在这里你可以获得无数实用的 ActiveX 组件 ,
并下载它们的试用版，只可惜其中的大部分极好的组件都是要 Money
的。</p>
<p> 6、<a href="http://www.cyscape.com/asp/browscap/"><font color="#026BAA">http://www.cyscape.com/asp/browscap/</font></a>
大家还记得作者在 ASP2
一文中介绍的那个用来辨别客户端浏览器版本的 Browser Capabilitie
组件吗？在这个站点你可以获得最新的 BROWSCAP.INI
文件，它拥有每一个 ASP
安装时微软没有提供的浏览器的信息，这样你在 ASP
中判断客户浏览器是就能够万无一失了。</p>
<p> 7、<a href="http://www.microsoft.com/data/ado/"><font color="#026BAA">http://www.microsoft.com/data/ado/</font></a>
ASP 最强大且便捷的功能莫过于同数据库的连接，通过 ASP
内建的 ActiveX 组件，我们可以轻而易举的将 WEB 与所有和 ODBC
兼容的数据库连接起来，在这个微软的站点上你可以获取很多实用的
ADO 资料。</p>
<p> 8、<a href="http://www.cobb.com/m_sbn4/"><font color="#026BAA">http://www.cobb.com/m_sbn4/</font></a>
一个不错的 ASP
论坛，你可以在那里贴你的问题，读取别人的问题和解答。
下面，我们开始学习 ASP 的另一个内建对象 Response。</p>
<p> 与 Request 是获取客户端 HTTP 信息相反 ,Response
对象是用来控制发送给用户的信息，包括直接发送信息给浏览器、重定向浏览器到另一个
URL 或设置 cookie 的值。</p>
<p> <font color="#026BAA">语法 </font> Response.collection|property|method </p>
<p> <font color="#026BAA">一、属性</font></p>
<p> 1、Buffer Buffer
属性指示是否缓冲页输出。当缓冲页输出时，只有当前页的所有服务器脚本处理完毕或者调用了
Flush 或 End
方法后，服务器才将响应发送给客户端浏览器，服务器将输出发送给客户端浏览器后就不能再设置
Buffer 属性。因此应该在 .asp 文件的第一行调用 Response.Buffer。</p>
<p> 2、Charset Charset 属性将字符集名称附加到 Response 对象中
content-type 标题的后面。对于不包含 Response.Charset 属性的 ASP 页，content-type
标题将为 :content-type:text/html。</p>
<p> 我们可以在 .asp 文件中指定 content-type 标题，如 : </p>
<p> < % Response.Charset="gb2312") %> </p>
<p> 将产生以下结果 : </p>
<p> content-type:text/html; charset=gb2312</p>
<p>
注意，无论字符串表示的字符集是否有效，该功能都会将其插入
content-type 标题中。且如果某个页包含多个含有 Response.Charset
的标记，则每个 Response.Charset 都将替代前一个 CharsetName。这样，字符集将被设置为该页中
Response.Charset 的最后一个实例所指定值。</p>
<p> 3、ContentType ContentType 属性指定服务器响应的 HTTP
内容类型。如果未指定 ContentType，默认为 text/HTML。 </p>
<p> 4、Expires Expires
属性指定了在浏览器上缓冲存储的页距过期还有多少时间。如果用户在某个页过期之前又回到此页，就会显示缓冲区中的页面。如果设置
response.expires=0，则可使缓存的页面立即过期。这是一个较实用的属性，当客户通过
ASP 的登陆页面进入 WEB
站点后，应该利用该属性使登陆页面立即过期，以确保安全。</p>
<p> 5、ExpiresAbsolute 与 Expires 属性不同 ExpiresAbsolute
属性指定缓存于浏览器中的页面的确切到期日期和时间。在未到期之前，若用户返回到该页，该缓存中的页面就显示。如果未指定时间，该主页在当天午夜到期。如果未指定日期，则该主页在脚本运行当天的指定时间到期。如下示例指定页面在
1998 年 12 月 10 日上午 9:00 分 30 秒到期。 </p>
<p> < % Response.ExpiresAbsolute=#Dec 12,1998 9:00:30# %> </p>
<p> <font color="#026BAA">二、方法</font> </p>
<p> 1、Clear 可以用 Clear 方法清除缓冲区中的所有 HTML
输出。但 Clear
方法只清除响应正文而不清除响应标题。可以用该方法处理错误情况。但是如果没有将
Response.Buffer 设置为 TRUE，则该方法将导致运行时错误。</p>
<p> 2、End End 方法使 Web
服务器停止处理脚本并返回当前结果。文件中剩余的内容将不被处理。如果
Response.Buffer 已设置为 TRUE，则调用 Response.End 将缓冲输出。</p>
<p> 3、Flush Flush 方法立即发送缓冲区中的输出。如果没有将
Response.Buffer 设置为 TRUE，则该方法将导致运行时错误。</p>
<p> 4、Redirect Redirect 方法使浏览器立即重定向到程序指定的
URL。这也是一个我们经常用到方法，这样程序员就可以根据客户的不同响应，为不同的客户指定不同的页面或根据不同的情况指定不同的页面。一旦使用了
Redirect
方法任何在页中显式设置的响应正文内容都将被忽略。然而，此方法不向客户端发送该页设置的其他
HTTP 标题，将产生一个将重定向 URL 作为链接包含的自动响应正文。Redirect
方法发送下列显式标题，其中 URL 是传递给该方法的值。如: </p>
<p> < % Response.redirect("www.chinabyte.com") %></p>
<p> 5、Write Write
方法是我们平时最常用的方法之一，它是将指定的字符串写到当前的
HTTP 输出。</p>
<p> <font color="#026BAA">三、集合</font> Response
对象只有一个集合 --Cookie </p>
<p> Cookies 集合设置 cookie 的值。若指定的 cookie
不存在，则创建它。若存在，则设置新的值并且将旧值删去。 </p>
<p> 语法 Response.Cookies(cookie)[(key)|.attribute]=value</p>
<p> 这里的 cookie 是指定 cookie 的名称。而如果指定了 key，则该
cookie 就是一个字典。Attribute 指定 cookie 自身的有关信息。Attribute
参数可以是下列之一 : </p>
<p> Domain 若被指定，则 cookie 将被发送到对该域的请求中去。</p>
<p> Expires 指定 cookie 的过期日期。为了在会话结束后将 cookie
存储在客户端磁盘上，必须设置该日期。若此项属性的设置未超过当前日期，则在任务结束后
cookie 将到期。</p>
<p> HasKeys 指定 cookie 是否包含关键字。</p>
<p> Path 若被指定，则 cookie
将只发送到对该路径的请求中。如果未设置该属性，则使用应用程序的路径。</p>
<p> 至此，我们已经学习的 R esponse 对
象的所有属性、方法和集合的理论知识，下面作者将给大家演示一段简单的程序，通过实践让大家加深理解。先将以下程序剪贴到记事簿中，并保存为
a sp7.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,
则会出现如下页面 :
<img src="images/asp7a.gif" alt="asp7a.gif (2387 bytes)" WIDTH="326" HEIGHT="152"> </p>
<p>
如果你输入用户名 :guest、口令 :guest, 则仅出现如下页面 :
<img src="images/asp7b.gif" alt="asp7b.gif (1509 bytes)" WIDTH="326" HEIGHT="66"> </p>
<p> 这是为什么呢？因为我们设置了页面缓存，当使用 guest
登陆时，判断程序自动清空其之前所有存储在缓存中的页面，而仅将其后脚本程序执行的结果显示出来。</p>
<p> 那为什么第一次登陆 asp7.asp 页面时仅仅只显示一个 Form
对话框呢？因为此时程序判断到用户既非 Adm, 也不是 guest 和 vip，所以执行
Response.End, 立即将存储在缓存中的 Form
显示出来，并停止其后的一切脚本处理，包括纯 HTML 代码的显示。 </p>
<p> 无论你是用 A dm 还 是 g uest 或 v ip 登
陆该页面你都可以看到一个超链，该超链指向文件 a sp7b.asp ，
当我们点击该超链时， a sp7.asp 将 变量 f lag 的 值作为参数发送给 a
sp7b.asp, 而 后者则根据该参数的值来做出判断，并依据不同情况使用
Response.Redirect 再 强行返回 a sp7.asp, 并 也将一个变量 s ay 的
值作为参数发送给 a sp7.asp 。 如此一来， a sp7.asp 又
会根据此参数来做出不同的反应。
大家现在都看到了我们仅仅用了两个很简单的程序，就可以做到对同一个页面的多种不同显示结果，这正是
ASP
的魅力所在，各位可以以此示范程序为基础，来进行一些改动，以熟练掌握我们所学的这两个内建对象。今天的课程就到此为止了，在结尾我还要说明两件事。第一，很多朋友来信询问哪里可以看到
ASP 篇的前几篇文章，请大家点击 <a href="http://www.chinabyte.com/staticpages/builder/builder_schedule/BAHT/builder_schedule_BAHT.html" target="new"><font color="#026BAA">此处</font></a>便可以找到。第二，一些朋友反映文中的
ASP 程序不能运行，这主要是因为 Chinabyte
的页面都是用数据库生成的，它限定在文章中不能使用带 HTML 或 ASP
格式的代码，所以在所有 < 符号后都加了空格，各位只要将 <
后的空格去掉就可以运行程序了，切记。下一篇我们将继续学习另一个
ASP 内建对象，敬请关注。 </p>
