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, 则会出现如下页面 :
(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/webkaifa/)如果你输入用户名 :guest、口令 :guest, 则仅出现如下页面 :
这是为什么呢?因为我们设置了页面缓存,当使用 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 的魅力所在,各位可以以此示范程序为基础,来进行一些改动,以熟练掌握我们所学的这两个内建对象。