写过稍微大型一点 ASP 的人都知道，Session 这个物件真是好用，它可以用来记录使用者私有的资料变数，既安全又方便。但是你真的知道 Session 的运作原理吗？或许了解以后，你就再也不太敢使用这个令人又爱又恨的物件。虽然转而替代之的方法稍嫌麻烦，但在长期考量之下，也就不得不这么做了。

　　首先来讲讲 Session 的好处，它可以用来记录用户端私有的资料变数，并且在时间范围内不会消失。这真的是很重要的功能，尤其是有会员的系统必须要用到的。像是会员的登入帐号、时间、状态以及许许多多该记录的即时资料如购物系统记录使用者的购物篮内的商品，这些资讯属于各使用者私人所需要，通常开发者都是使用 Session 记录处理。

　　然而，在 ASP 中的 Session 是使用 Cookies 所构成，伺服器将所有的 Session 内记录的资料，以 Cookies 的方式传至用户的浏览器。通常一般浏览器会将这些 Cookies 存起来，每当使用者点选连结，再次与伺服器做连线时，浏览器就会把这些 Cookies 传回 Server 供做处理。这即是 Session 的运作原理，当资料量大一点时，由于必须传出去又收回来，不但吃线路频宽，效能相对降低，因为 Server 必须花费更多的资源在做连线处理和重新配置记忆体等初始动作。现在你可能会想“我必须用这功能，只好牺牲点了”，不过本文讲 Session 一方面是教导大家少用；另一方面当然是有替代办法，紧接着上场的，就是同属 Global.asa 内的 Application 物件。

　　Application 也是记录处理暂时资料的好手，各方面的能力和用法都和 Session 一样，只不过相较之下，它所记录的资料是属于公用的，也就是任何使用者都可以共用的变数空间。Application 不像 Session ，不是将资料传给使用者，等下一次连线再读取回来，它是直接记录在 Server 上的记忆体，相对之下效能上快上 Session 许多。

　　由于 Application 物件是公用的，首先必须做的，就是要把一块公用的区域规划给各个使用者，让每个用户拥有自己的区域可以记录资料，以达到模拟 Session 的目的。现在有两种做法：一、在 Server 启动时事先初始化建立及分配使用者记忆体空间，通常这种做法虽然一 Server 开机就先占了许多资源，但也省去了以后每当使用者连线就必须做一次分配的麻烦。但有个限制，使用这种方法必须限制最大人数，由于是一启动就初始化，我们只能预估建立某数量的记忆体空间，所以这种方法通常用于聊天室这种小型的程式上。二、这种方法对于大型应用程式来说应该算较恰当的，采用动态的分配法，当使用者第一次连线到 Server 上才开始分配资源给此用户。这两种模拟 Session 的方案，目的都是减轻 Session 资源的消耗，但毕竟还是无法完全替代，我们还是需要使用到一点点 Session，至少对 Server 已经能减轻不少负担了。

■第一方案

　　首先我们开始第一个方案的实作，由于是启动时初始化 Application，我们当然要从 Global.asa中着手：

<SCRIPT LANGUAGE="VBScript" RunAt="Server">'Global.asa'Server 启动时执行Sub Application_OnStart() Dim i '设定最大上限人数为 50 人 Application("ClientMax") = 50 '为这 50 人事先建立变数空间 For i = 1 To Application("ClientMax") '记录此笔变数空间是否遭已使用 Application("User_Status_" & i) = 0 '建立两笔变数空间：帐号、登入时间 Application("User_Account_" & i) = Empty Application("User_Logtime_" & i) = Empty NextEnd Sub</SCRIPT>

　　已经完成初始化了，但如何使用呢？我们只要在使用者登入的地方，把原本使用 Session 储存的资料，如帐号、登入时间，改成我们建立好的 Application 物件中就可以了：

'寻找未被使用的空间For i = 1 To Application("ClientMax") If Application("User_Status_" & i) = 0 Then '使用者暂时编号 Session("Index") = i '锁定 Application Application.Lock '设成已使用的状态 Application("User_Status_" & i) = 1 '放入变数资料 Application("User_Account_" & i) = Account Application("User_Logtime_" & i) = Now() '解除锁定 Application.Unlock Exit For End IfNext

　　要取得使用者的相关变数资料则就像下面的做法：

Response.Write(Application("User_Account_" & Session("Index"))

　　你可能会发现，不是说不要使用 Session 吗？那为什么上面的原始码中还有 Session 的存在？前面也说过，这替代方案并不能完全代替掉 Session，浏览器并不是一直和 Server 处于连线状态的，读取完页面就断线，那我们要怎么知道下次连线的还是同一个人呢？这时候就必须要靠 Session，我们给使用者一组即时的编号，此编号就是使用者于 Application 上变数空间的号码，你可以想像成银行中有很多的保险箱，你拥有一支钥匙，而钥匙上有编号，钥匙上的编号可以让行员带领你去你自己的保险箱。此方法尚还有改进之处，但对小型的应用程式已经是很够用了。

■第二方案

　　关于上一方案，