在上一篇中作者给大家详细介绍了 ASP 内建对象之一 Request 的使用方法,相信各位通过一系列的实践已经能够熟练掌握,本篇将继续给大家介绍 ASP 的另一个内建对象 Response。 最近,有很多朋友来“妹儿”催我加快 ASP 篇一文的写作速度,并急切地询问哪里有关于 ASP 的教材。我深深地被大家的学习热情所打动,因此决定将自己平时所搜集的一些 ASP 信息资料拿出来和大家共享,也希望所有的朋友能慷慨地将自己搜集的有关 ASP 的资料告诉作者,谢谢。由于目前国内有关 ASP 的中文教材凤毛麟角,而专门针对 ASP 网站开发的中文教材作者更是闻所未闻(可能是作者孤陋寡闻),只是最近听说出了一本清华大学出版社出版的关于 MS InterDev 的傻瓜书,其中有 ASP 的教学,和一本 Active Server Page 2.0 的中文手册,因此目前作者还是主要通过国外网站来获取 ASP 的有关信息和资料,这也是作者写本文的一个主要原因。下面我就将 bookmark 中的一些较经典的 ASP 站点罗列出来: 1、http://www.activeserverpage.com/
这是作者访问最频繁的 ASP 网站,也是世界上最大最全的关于 ASP 的网站之一,它里面不但有最新的 ASP 文献资料,免费组件,还有一本完整的 ASP 入门教材,它更是 ASP 网站的中枢站点,通过它你可以到达无数的 ASP 相关站点。
2、http://www.asphole.com/
这本是一个针对 ASP 漏洞而建立的站点,但是它却无疑是一个完备的 ASP 信息站点,它非但提供了 ASP 的文章,及组件还提供详尽透彻的联接地址。
Expires 属性指定了在浏览器上缓冲存储的页距过期还有多少时间。如果用户在某个页过期之前又回到此页,就会显示缓冲区中的页面。如果设置 response.expires=0,则可使缓存的页面立即过期。这是一个较实用的属性,当客户通过 ASP 的登陆页面进入 WEB 站点后,应该利用该属性使登陆页面立即过期,以确保安全。
至此,我们已经学习的 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, 则会出现如下页面 :
大家现在都看到了我们仅仅用了两个很简单的程序,就可以做到对同一个页面的多种不同显示结果,这正是 ASP 的魅力所在,各位可以以此示范程序为基础,来进行一些改动,以熟练掌握我们所学的这两个内建对象。今天的课程就到此为止了,在结尾我还要说明两件事。第一,很多朋友来信询问哪里可以看到 ASP 篇的前几篇文章,请大家点击 此处 便可以找到。第二,一些朋友反映文中的 ASP 程序不能运行,这主要是因为 Chinabyte 的页面都是用数据库生成的,它限定在文章中不能使用带 HTML 或 ASP 格式的代码,所以在所有 < 符号后都加了空格,各位只要将 < 后的空格去掉就可以运行程序了,切记。下一篇我们将继续学习另一个 ASP 内建对象,敬请关注。