【IT168技术文档】

  本文的目的在于提供一种可行的解决方案通过Web Service技术来整合和管理现有的Asp程序到Asp.Net。 此应用解决

  方案尽可能从实际出发以迭代更新方式的策略把Asp Web服务器内存中的当前Session更新到Asp.Net。

  背景:

  现有公司的产品OA是采用asp早先的技术开发，需要与目前最新的asp.net产品进行数据交互的应用。现有的asp应用程序

往往采用“ASP sessions”，这是一种经典的asp内置模式，即允许数据临时暂存在web服务器内存中，其最大的限制因素就

是asp的session状态是依赖具体的服务器。而另一个更宽范围的解决方案就是很多web服务器都可能别用于根据请求而指向的

任何网络服务器。实际上就是所有的web服务器都像在一个农场中，因而任何在内存中的session状态将不会自动跟随请求。每

个asp服务器提供自己的session状态，除非用户很凑巧的返回统一服务器，造成系统session丢失。

  通过使用服务器管理产品（如bigip）来强制用户会同意服务器内的web农场来解决内存中asp seesion因服务器关系而造

成的问题。为了达到这个目的，采用一个cookie在客户端工作，在服务器端来使用，让用户直接可以回到同一个服务器上的

每个reqeust。这样可以限制扩展性，提高可维护性，避免服务器故障的风险（例如：session丢失服务器 失败）。

  微软Asp.net技术的出现终于解决了这个问题，可以让我们来存储session信息到web server和database或者其他域

server。不错，问题解决了，我们还有必要用asp代码吗？全部扔掉？如果这样做的话就会需要很大代价去重新使用.net来

重写asp。看来还是不可行。另一种比较好的解决方案就是用迭代方法来部分移植代码到新的模型胜过重写asp代码，在这

个过程中如果旧的ASP代码和新的asp.net代码可以有一个共同的session状态而保持正常的工作，那么在整个生命周期中

将会有益于你更好的规避风险.以下提供了几个解决方案从此略上来解决当采用经典的asp sesssion因服务器关系而造成的

问题。

  1、用户自定义组或者使用Asp/ADO脚本去实现直接读写用户session数据到数据库；

  2、用户自定义组件去直接访问asp.net seesion数据；

  3、通过web servieces建立asp到asp.net的桥共享session；

  在本文中，我们将讨论最后一种方案，其中也会包括一些web services与asp/ADO定制数据库，和asp session 池的基本

性能数据比较，呵呵...看完后你自己选择用哪个。

  ASP to ASP.NET Bridge / Web-Service 方案

  此方案中只是简单的实现了一个从asp到asp.net的web services桥梁，如果你需要用数据库，只需要进行简单的配置（web.

congfig和aspState 数据库）。代码中用来获得和设置session数据的方法写在一个javascirpt中，该文件必须保存在本地asp

程序中。

  此javascirpt实现MSXML， http功能以便和server端交互，并负责将这些cookie回收给用户工作站。

  优点：

  支持与服务器无关的web-farm部署，提高可扩展性简单的实现asp和asp.net的共同session状态松耦合，以sessioni管理

（无连接的HTTP接口， 80端口，可防火墙等）利用久经时间考验的asp.net session实施。

  缺点： 比asp session 内存池实现和数据库实现会慢。

  Asp内存共享机制:

  Session是采用类似字典或者哈希表的形势保存在web server内存中，ASP会保持session状态，提过一个特别的key给

用户，当session会话开始时，这个key将保存cookie来纪录客户端发送到服务器的每一项请求，在服务器端，获得cookie

的key,就可以知道request对应的session.这种机制的一个明显的优势就是速度和方便，所有的session都会在一台服务器上

保存，所以很开，但是正如前面所说的，将数据保存在一台服务器也是一个重大缺点，迫使用户返回同一台服务器检索

session数据。这个减少了webform的优势，它只是一种低成本，大淘汰的策略，如果你只想实现简单功能，就可以用它。

  优点：

  内存纪录seesion,速度快,使用标准的ASP代码基础利用久经时间考验的ASP session实施。

  缺点：

  它承载的能力有限，无法大规模开展网络农场（服务器依赖度高） ,服务器故障导致session丢失，内存占有率太大。

  Asp/ADO数据库实现解决方案

  建立了一个数据库连接之间的ASP应用服务器和数据库服务器。使数据被存在一个中央数据库或者数据库集群，然后分

  别从不同的服务器上的asp程序执行。本文种只给出方案。获取和设置session的代码可以被放进一个javascirpt文件中，支

持基于webservices获取的方法，允许asp取代javascirpt定制数据库模式，直接访问asp.netsession数据（如建立aspstate

数据库）。

优点：

  1、支持不依赖服务器的webform部署；

  2、比asp.net Web服务更快；

  缺点：

  1、代码为定制执行(比较死板)；

  2、比内存共享ASP sessions 慢；

  3、需要数据库连接，从网络服务器到数据库服务器；
  性能：

  在下面数据中，列出了每种方案的性能比较，强调的是内存共享aspsession池最快小型用户可以使用，采用数据库的话

也会增加额外的开支，增加成本（除非你很有钱）。减 少网络回传，服务器请求是提高性能的唯一方法，微软的Web应用程

序压力工具，是用来执行测试压力水平的25个线程为1分钟的时间从表中可以明显的看出用内存存储aspsession比另外两种方

式更快。

Method Get Data (ms) Set Data (ms)
5 values 1 value 5 values 1 value
In-memory ASP Sessions 46 9 34 7
ASP/ASP.NET web service individually 4321 864 3397 679
ASP/ASP.NET web service grouped 711 142 990 198
ASP/ADO database individually 346 69 841 168
ASP/ADO database grouped 163 33 860 172

   代码描述ASP机制，在asp中创建sessioni 如下：

  Session("Sky") = "Blue";
  在其他的页面中访问这些值采用：
  var skyString = Session("Sky");

  新的API语法：

  下面的语法将会代替原来的asp session 语法，目的是在桥的使用中javascript 函数可以进行封装
  设置一个关键值对；
  设置一个kye-value 类型session 数据，语法和值钱的asp Session 语法很相似，采用下面的代码可以把现有的设置asp  session代码替换；

  设置sessioni数据：
  SetSessionValue("Sky", "Blue");
  获取 session :
  var SkyString = GetSessionValue("Sky");
  这种方法建议在设置比较少的情况下用
  设置多个key-valus对值
  这些方法的最大开销在于设置每一个key-value，然后返回给webservice,推荐用以下方法来设置（当超过3对以上的key-values)
  设置session

var sessionInfo = NewSession();
sessionInfo.Add(“Sky”, "Blue");
sessionInfo.Add(“Grass”, “Green”);
SetSession(sessionInfo);

  获得session

var sessionInfo = GetSession();
var skyString = sessionInfo.Item(“Sky”);
var grassString = sessionInfo.Item(“Grass”);

  Java Script Example

<%@ Language="JScript" %>
<script language="JScript" runat="server" src="ASPSessionWS.js" />
<%
var sessionInfo = NewSession();
sessionInfo.Item("Sky") = "Blue";
sessionInfo.Item("Grass") = "Green";
SetSession(sessionInfo);
var retrievedSession = GetSession();
var sSky = retrievedSession.Item("Sky");
var sGrass = retrievedSession.Item("Grass");
Response.Write(sSky + "<br>");
Response.Write(sGrass + "<br>");
%>
Visual BASIC Example
<%@ Language="VBSCRIPT" %>
<script language="JScript" runat="server" src="ASPSession.js" />
<%
Dim sessionInfo
Set sessionInfo = NewSession()
sessionInfo.Item("Sky") = "Blue"
sessionInfo.Item("Grass") = "Green"
SetSession(sessionInfo)
Dim retrievedSession
Set retrievedSession = GetSession()
Dim sSky
sSky = retrievedSession.Item("Sky")
Dim sGrass
sGrass = retrievedSession.Item("Grass")
Response.Write(sSky & "<br>")
Response.Write(sGrass & "<br>")
%>