ASP基础入门第七篇（ASP内建对象Response）

2024-05-04 11:10:07

字体：大中小

来源：转载

供稿：网友

这篇文章主要介绍了ASP内建对象Response的相关资料，需要的朋友可以参考下

下面，我们开始学习 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.jb51.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>&l; /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

　　%>