asp基础入门篇(DOC格式)-第6部分
按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
口 令 ：《 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、口令 ：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 的魅力所在，各位可以以此示范程序为基础，来进行一些改动，以熟练掌握我们所学的这两个内建对象。
ASP基础教程：ASP内建对象Application和Session
在上一篇中作者给大家详细介绍了 ASP 内建对象 Response 的使用方法，在这一篇中作者将继续给大家介绍另两个非常实用且重要的 ASP 的内建对象 Application 和 Session。
在 ASP 的内建对象中除了用于发送、接收和处理数据的对象外，还有一些非常实用的代表 Active Server 应用程序和单个用户信息的对象。
让我们先来看看 Application 对象。在同一虚拟目录及其子目录下的所有 。asp 文件构成了 ASP 应用程序。我们非但可以使用 Application 对象，在给定的应用程序的所有用户之间共享信息，并在服务器运行期间持久的保存数据。而且，Application 对象还有控制访问应用层数据的方法和可用于在应用程序启动和停止时触发过程的事件。
下面就让我们一起来学习 Application 对象。
一、属性
虽然 Application 对象没有内置的属性，但我们可以使用以下句法设置用户定义的属性也可称为集合。
Application（〃 属性 / 集合名称 〃）= 值
我们可以使用如下脚本声明并建立 Application 对象的属性。
《 ％
Application（〃MyVar〃） = 〃Hello〃
Set Application（〃MyObj〃） = Server。CreateObject（〃Myponent〃）
％》
一旦我们分配了 Application 对象的属性，它就会持久地存在，直到关闭 WEB 服务器服务使得 Application 停止。由于存储在 Application 对象中的数值可以被应用程序的所有用户读取，所以 Application 对象的属性特别适合在应用程序的用户之间传递信息。
二、方法
Application 对象有两个方法，它们都是用于处理多个用户对存储在 Application 中的数据进行写入的问题
1、Lock 方法禁止其他客户修改 Application 对象的属性。
Lock 方法阻止其他客户修改存储在 Application 对象中的变量，以确保在同一时刻仅有一个客户可修改和存取 Application 变量。如果用户没有明确调用 Unlock 方法，则服务器将在 。asp 文件结束或超时后即解除对 Application 对象的锁定。
让我们来看看下面这段用 Application 来记录页面访问次数的程序 ：
《 ％
Dim NumVisitsNumVisits=0
Application。LockApplication（〃NumVisits〃） = Application（〃NumVisits〃） ＋ 1
Application。Unlock
％》
欢迎光临本网页，你是本页的第 《 ％= Application（〃NumVisits〃） ％》位访客 ！
将以上脚本保存在你的 。asp 文件中，就轻而易举地给你的页面添加了一个计数器。
2、和 Lock 方法相反，Unlock 方法允许其他客户修改 Application 对象的属性。
在上面的例子中，上述例子中，Unlock 方法解除对象的锁定，使得下一个客户端能够增加 NumVisits 的值。
三、事件
1、Application_OnStart
Application_OnStart 事件在首次创建新的会话 （ 即 Session_OnStart 事件 ） 之前发生。当 WEB 服务器启动并允许对应用程序所包含的文件进行请求时就触发 Application_OnStart 事件。Application_OnStart 事件的处理过程必须写在 Global。asa 文件之中。
Application_OnStart 事件的语法如下 ：
《 SCRIPT LANGUAGE=ScriptLanguage RUNAT=Server》
Sub Application_OnStart。 。 。
End Sub
《 /SCRIPT》
2、Application_OnEnd
Application_OnEnd 事件在应用程序退出时于 Session_OnEnd 事件之后发生，Application_OnEnd 事件的处理过程也必须写在 Global。asa 文件之中。
下面让我们来看看在使用 Application 对象时必须注意的一些事项。
不能在 Application 对象中存储 ASP 内建对象。例如，下面的每一行都返回一个错误。
《 ％
Set Application（〃var1〃）=Session
Set Application（〃var2〃）=Request
Set Application（〃var3〃）=Response
Set Application（〃var4〃）=Server
Set Application（〃var5〃）=Application
Set Application（〃var6〃）=ObjectContext
％》
若您将一个数组存储在 Application 对象中，请不要直接更改存储在数组中的元素。例如，下列的脚本无法运行。
《 ％ Application（〃StoredArray〃）（3） = 〃new value〃 ％》
这是因为 Application 对象是作为集合被实现的。数组元素 StoredArray（3） 未获得新的赋值。而此值将包含在 Application 对象集合中，并将覆盖此位置以前存储的任何信息。建议您在将数组存储在 Application 对象中时，在检索或改变数组中的对象前获取数组的一个副本。在对数组操作时，您应再将数组全部存储在 Application 对象中，这样您所做的任何改动将被存储下来。下列的脚本对此进行演示。
………asp8a。asp………
《 ％
dim MyArray（）
Redim MyArray（5）
MyArray（0）=〃hello〃
MyArray（1）=〃some other string〃
Application。Lock
Application（〃StoredArray〃）=MyArray
Application。Unlock
Response。Redirect 〃asp8b。asp〃
％》
………asp8b。asp………
《 ％
LocalArray=Application（〃StoredArray〃）
LocalArray（1）=〃 there〃
Response。Write LocalArray（0）&LocalArray（1）
Application。Lock
Application（〃StoredArray〃）=LocalArray
Application。Unlock
％》
与 Application 对象具有相近作用的另一个非常实用的 ASP 内建对象就是 Session。我们可以使用 Session 对象存储特定的用户会话所需的信息。当用户在应用程序的页之间跳转时，存储在 Session 对象中的变量不会清除，而用户在应用程序中访问页面时，这些变量始终存在。当用户请求来自应用程序的 Web 页时，如果该用户还没有会话，则 Web 服务器将自动创建一个 Session 对象。当会话过期或被放弃后，服务器将终止该会话。
通过向客户程序发送唯一的 Cookie 可以管理服务器上的 Session 对象。当用户第一次请求 ASP 应用程序中的某个页面时，ASP 要检查 HTTP 头信息，查看是否有在报文中有名为 ASPSESSIONID 的 Cookie 发送过来，如果有，则服务器会启动新的会话，并为该会话生成一个全局唯一的值，在把这个值作为新 ASPSESSIONID Cookie 的值发送给客户端，正是使用这种 Cookie，可以访问存储在服务器上的属于客户程序的信息。Session 对象最常见的作用就是存储用户的首选项。例如，如果用户指明不喜欢查看图形，就可以将该信息存储在 Session 对象中。另外其还经常被用在鉴别客户身份的程序中。要注意的是，会话状态仅在支持 cookie 的浏览器中保留，如果客户关闭了 Cookie 选项，Session 也就不能发挥作用了。
一、属性
1、SessionID
SessionID 属性返回用户的会话标识。在创建会话时，服务器会为每一个会话生成一个单独的标识。会话标识以长整形数据类型返回。在很多情况下 SessionID 可以用于 WEB 页面注册统计。
2、TimeOut
Timeout 属性以分钟为单位为该应用程序的 Session 对象指定超时时限。如果用户在该超时时限之内不刷新或请求网页，则该会话将终止。
二、方法
Session 对象仅有一个方法，就是 Abandon，Abandon 方法删除所有存储在 Session 对象中的对象并释放这些对象的源。如果您未明确地调用 Abandon 方法，一旦会话超时，服务器将删除这些对象。当服务器处理完当前页时，下面示例将释放会话状态。
《 ％ Session。Abandon ％》
三、事件
Session 对象有两个事件可用于在 Session 对象启动和释放是运行过程。
1、Session_OnStart 事件在服务器创建新会话时发生。服务器在执行请求的页之前先处理该脚本。Session_OnStart 事件是设置会话期变量的最佳时机，因为在访问任何页之前都会先设置它们。
尽管在 Session_OnStart 事件包含 Redirect 或 End 方法调用的情况下 Session 对象仍会保持，然而服务器将停止处理 Global。asa 文件并触发 Session_OnStart 事件的文件中的脚本。
为了确保用户在打开某个特定的 Web 页时始终启动一个会话，就可以在 Session_OnStart 事件中调用 Redirect 方法。当用户进入应用程序时，服务器将为用户创建一个会话并处理 Session_OnStart 事件脚本。您可以将脚本包含在该事件中以便检查用户打开的页是不是启动页，如果不是，就指示用户调用 Response。Redirect 方法启动网页。程序如下 ：
《 SCRIPT RUNAT=Server Language=VBScript》
Sub Session_OnStart
startPage = 〃/MyApp/StartHere。asp〃
currentPage = Request。ServerVariables（〃SCRIPT_NAME〃）
if strp（currentPage；startPage；1） then
Response。Redirect（startPage）
end if
End Sub
《 /SCRIPT》
上述程序只能在支持 cookie 的浏览器中运行。因为不支持 cookie 的浏览器不能返回 SessionID cookie，所以，每当用户请求 Web 页时，服务器都会创建一个新会话。这样，对于每个请求服务器都将处理 Session_OnStart 脚本并将用户重定向到启动页中。
2、Session_OnEnd 事件在会话被放弃或超时发生。
关于使用 Session 对象需要注意的事项 Application 对象相近，请参照前文。
会话可以通过以下三种方式启动 ：
1、一个新用户请求访问一个 URL，该 URL 标识了某个应用程序中的 。asp 文件，并且该应用程序的 Global。asa 文件包含 Session_OnStart 过程。
2、用户在 Session 对象中存储了一个值。
3、用户请求了一个应用程序的 。asp 文件，并且该应用程序的Global。asa 文件使用 《 OBJECT》标签创建带有会话作用域的对象的实例。
如果用户在指定时间内没有请求或刷新应用程序中的任何页，会话将自动结束。这段时间的默认值是 20 分钟。可以通过在 Internet 服务管理器中设置〃应用程序选项〃属性页中的〃会话超时〃属性改变应用程序的默认超时限制设置。应依据您的 Web 应用程序的要求和服务器的内存空间来设置此值。例如，如果您希望浏览您的 Web 应用程序的用户在每一页仅停留几分钟，就应该缩短会话的默认超时值。过长的会话超时值将导致打开的会�
