es=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/bui

上一页  [1] [2] [3] [4] [5] 下一页