ASP内建对象Response

在上一篇中作者给大家详细介绍了 ASP 内建对象之一 Request 的使用方法，相信各位通过一系列的实践已经能够熟练掌握，本篇将继续给大家介绍 ASP 的另一个内建对象 Response。

最近，有很多朋友来“妹儿”催我加快 ASP 篇一文的写作速度，并急切地询问哪里有关于 ASP 的教材。我深深地被大家的学习热情所打动，因此决定将自己平时所搜集的一些 ASP 信息资料拿出来和大家共享，也希望所有的朋友能慷慨地将自己搜集的有关 ASP 的资料告诉作者，谢谢。由于目前国内有关 ASP 的中文教材凤毛麟角，而专门针对 ASP 网站开发的中文教材作者更是闻所未闻（可能是作者孤陋寡闻），只是最近听说出了一本清华大学出版社出版的关于 MS InterDev 的傻瓜书，其中有 ASP 的教学，和一本 Active Server Page 2.0 的中文手册，因此目前作者还是主要通过国外网站来获取 ASP 的有关信息和资料，这也是作者写本文的一个主要原因。下面我就将 bookmark 中的一些较经典的 ASP 站点罗列出来：
　　 1、) %>

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 登陆时，判断程序自动清空其之前所有存储在缓存中的页面，而仅将其后脚本程序执行的结果显示出来。

那为什么第一次登陆 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 的魅力所在，各位可以以此示范程序为基础，来进行一些改动，以熟练掌握我们所学的这两个内建对象。今天的课程就到此为止了，在结尾我还要说明两件事。第一，很多朋友来信询问哪里可以看到 ASP 篇的前几篇文章，请大家点击 此处 便可以找到。第二，一些朋友反映文中的 ASP 程序不能运行，这主要是因为 Chinabyte 的页面都是用数据库生成的，它限定在文章中不能使用带 HTML 或 ASP 格式的代码，所以在所有 < 符号后都加了空格，各位只要将 < 后的空格去掉就可以运行程序了，切记。下一篇我们将继续学习另一个 ASP 内建对象，敬请关注。