发信人: dgxy2001(东格逍遥2001)
整理人: dongbao(2001-03-10 09:05:03), 站内信件
|
您是否已经听了太多针对ASP+令人目眩的新特性所作的长篇累牍的报道？您是否已经厌倦了站在角落里瞻仰套在ASP+头顶上诸如.NET，ADO+之类的神秘光环？您是否迫不及待要和ASP+的各类新控件做第一次亲密接触？……机会来了！本文中ASP+牛刀小试，以实例为突破口，手把手教您如何从ASP到ASP+对一个颇具代表性的小型web应用程序进行迁移。它包括运行平台的配置，pagelet的建立，新的ADO+的使用，如何使用新的DataSet进行数据访问，HTML表格到DataList的转变，以及其他多种新的服务器端控件的使用技巧……还等什么？现在就来感受一下ASP+的全新魅力吧！）
自从微软在2000年7月的专业开发人员会议上宣布了ASP+以来, 一个相同的问题一直困扰着许多新闻组及讨论论坛：“我需要怎样做以使现有的web应用程序从ASP转换成asp+？” 专业开发人员会议的发言人称：代码方面无须作较大改动，整个转换过程也并不太难。真是这样吗？在本文中，我们将一探究竟。
要运行ASP+的alpha版本，你需要：
Windows 2000 Professional server, 或者Advanced Server
IIS5.0
Internet Explorer5.5
..Net框架运行时（.Net Framwork Runtime）
（未来发行的ASP+将可以在windows NT及9x上运行）
如果你是一位ASP开发者，你当前使用的技巧如VBScript将轻松转换到Visual Basic .Net来为你的ASP+页面
编写代码。你也可能使用其他的语言如：C#，Managed C++甚至Cobol。 在本文中，我会介绍将一个小型web应用程序从ASP升级到ASP+所需的详细步骤。示例代码使用Visual Basic .Net。
尽管ASP与ASP+可以彼此交互共存，我们还是选择将整个站点迁移至ASP+。被迁移的是一个示例站点，该站点被用来演示入门级的web开发 。我们觉得该站点代表了当前互联网上相当一部分典型的中，小型站点。该站点网址是: http://www.codejunkies.net/eVille/, 它是一个虚拟招生网站, 招收的学生们将学习IT相关课程。该站点架设于Windows2000 Server上，由Access2000数据库驱动，使用VBScript, 客户端JavaScript以及ASP3.0，没有使用COM。
在同一台运行IIS5.0的WEB服务器上，ASP与ASP+被设计成为支持并行运行（最终发行版本将支持IIS其它版本）。这意味着我们可以一次一页地来迁移整个站点。最初的页面仍然可以在ASP3.0下继续运行，而新的页面将被转换成为使用ASP+服务器控件与函数。
我们要做的第一步就是要使IIS能够将default.aspx作为一个有效的缺省文件。这一步相当简单，在Internet Service Manager中:
* 打开IIS虚拟目录中的‘属性’对话框
* 点击‘文件’标签中的‘添加’按钮
* 输入Default.aspx
* 点击‘确定’两次
做示例用的eVille站点没有使用COM，因此所有的数据访问都是通过ASP或者include文件中的ADO来完成的。我们初始的目标之一就是要将ADO转换成ADO+以获得由ADO+ Managed Provider带来的更好执行效果。ASP+支持传统ADO的使用，然而迁移到ADO+将受益更多。比方说：从单个DataSet中获取多个表（table），更快的执行速度，将数据绑定到服务器控件。ASP+页面中的数据访问可以通过ADO，ADO+或是SQL Managed Provider来完成。由于示例站点没有使用SQL Server，而我们又想对执行进行优化，所以ADO+成了我们最好的选择。
本站的每个页面都涉及到数据访问，所以它将在转换工程中占最大的比例。基本上，每一页都必须作一些代码修改以获取并显示该页所需的数据。在eVille的结构中有一个connect.inc文件，该文件包含ADO连接代码，并且每个页面中都有该文件。连接已经建好并且可以使用了。由于在ASP+中，连接到数据库和绑定到ASP+数据控件的过程由新的Page_Load事件来完成，现在我们得采取一种稍微不同的方法。
运用和在一个单独模块中创建一个普遍性的连接相同的构想，我们创建了一个Pagelet。Pagelet使开发人员可以创建伪控件，伪控件和对象一样可以用来显示属性，方法以及事件。我们的方案是：创建一个显示ConnectToDB方法的Pagelet，该方法返回一个ADOConnection对象（与ADO的语法稍有不同）。我们用下面的代码创建Pagelet，将它存为connect.aspc（扩展名表明它是一个Pagelet）
< %@ Import Namespace="System.Data" %>
< %@ Import Namespace="System.Data.ADO" %>
< script language="VB" runat="server">
Public Function ConnectToDB() As ADOConnection
ConnectToDB = New ADOConnection("DSN=evilleDSN")
End Function
< /script>
你会注意到我们导入了两个Namespaces，即System.Data和System.Data.ADO。为了使用ADO+ Managed Provider这些Namespaces是必须的。许多人就此问了我许多问题，因为目前多数示例都使用基于Microsoft SQL Server 2000数据库的SQL Managed Provider。对于非SQL Server 数据库，ASP+可以使用ADO+ Managed Provider，这和目前你在程序中使用ADO的方式大致相同。导入Namespaces和在VB程序中创建参考（Reference）有异曲同工之妙。
Pagelet的运用使我可以维护当前的站点计划，一旦在模块中创建了连接，我们就可在任何需要的地方重用模块。这意味着我们需要用Pagelet的一个实例来替代Include文件指令，然后当我们需要数据库连接时调用ConnectToDB方法。在需要使用Pagelet的页面中，我们首先必须使用ASP+指令将之与该页面注册（register）。在指令中，我们定义TagPrefix，TagName，以及Source（src）。与ASP中的include文件类似，在我们放置Pagelet的地方要用到TagPrefix和TagName。
< %@ Register TagPrefix="seven" TagName="Connect"
src="_includes/connect.aspc" %>
放置我们刚注册的Pagelet的方法与ASP+服务器控件类似：
< [TagPrefix]:[TagName] id=myPagelet runat=server />
比如:
< seven:Connect id=Connect runat=server />
在ADO+中，记录集（Recordset）的概念被DataSets和DataViews的组合所取代。一会儿我们将讨论这两个概念。首先让我们看看在default.asp页面迁移至default.aspx（ASP+页面的后缀）后代码都有了哪些改变。先看default.asp：
< !-- #include file="_includes/connect.inc" -->
< %
Dim cnEville_DB, rsUpcoming, strSqlUpcoming
Set rsUpcoming = Server.CreateObject("ADODB.Recordset")
strSqlUpcoming = " SELECT TOP 2 " & _
"Classes.Title, Sessions.Session_ID, " & _
"Sessions.Special, Classes.Description " & _
"FROM Classes INNER JOIN Sessions ON " & _
"Classes.Class_ID = Sessions.ClassID " & _
"WHERE (((Sessions.Date)>Date())) " & _
"ORDER BY Sessions.Date"
rsUpcoming.Open strSqlUpcoming,cnEville_DB
%>
在ASP+中成了default.aspx：
< %@ Import Namespace="System.Data" %>
< %@ Import Namespace="System.Data.ADO" %>
< %@ Register TagPrefix="seven" TagName="Connect" &_
src="_includes/connect.aspc" %>
< script language="vb" runat=server>
Sub Page_Load(Source As Object, E As EventArgs)
Dim dscUpcoming As ADODataSetCommand
Dim dsUpcoming As New DataSet
Dim strSQL As String
strSQL = "SELECT TOP 2 Classes.Title," & _
"Sessions.Session_ID, Classes.Description " & _
"FROM Classes INNER JOIN Sessions ON " & _
"Classes.Class_ID = Sessions.ClassID " & _
"WHERE (((Sessions.Date)>Date())) " & _
"ORDER BY Sessions.Date"
dscUpcoming = New ADODataSetCommand(strSQL, Connect.ConnectToDB())
dscUpcoming.FillDataSet(dsUpcoming, "Upcoming")
End Sub
< /script>
数据访问的核心，ANSI-SQL语句在转换后没有什么改变。然而正如你所看到的，创建记录集的结构发生了改变，我们使用的是ADODataSetCommand和DataSet
ADO+引入了DataSet和DataView的概念。DataSet类似于记录集的集合，因为它能保存一个或多个数据及其之间关系的表（table）。DataView是这些表中之一的实现，类似于ADO 记录集。在上面的例子中，我们的DataSet只保存一个表：Upcoming，我们要将之驻留于ASP+服务器控件中。可以通过以下方式向DataSet中加入更多表。
*重新定义我们的SQL语句。
*将ADODataCommand的SelectCommand属性设置为一个新的ADODataCommand
*调用ADODataCommand的FillDataSet方法
FillDataSet方法将SQL查询结果中的表存入到被传递至方法调用中的DataSet中。加入另一个表会导致如下改变：
dscUpcoming = New ADODataSetCommand(strSQL, Connect.ConnectToDB())
dscUpcoming.FillDataSet(dsUpcoming, "Upcoming")
'重定义SQL语句
strSQL = "SELECT * FROM Students"
'设置ADODataSetCommand的SelectCommand属性
dscUpcoming.SelectCommand = New ADOCommand(strSQL, Connect.ConnectToDB())
'使用FillDataSet方法将结果作为新表添加进DataSet
dscUpcoming.FillDataSet(dsUpcoming, "Students")
现在我们已经建立了到数据库的连接并且将数据返回到DataSet中，然而我们还没有利用这些数据。
我们从数据存储中取回的数据将被用来显示eVille提供的下两节课程。基于页面设计方面的考虑，标准的表格在这里并不合适。数据需要以一种自定义的格式展示，用来显示课程名，课程描述，以及报名的链接（该链接通过QueryString传递Session_ID）。下面是原始的ASP页面利用ADO记录集创建的一个循环，该循环为每条记录创建一个新的行。
< table width="100%" border="0">
< tr>
< td class="headerRow">Upcoming Events< /td>
< /tr>
< %Do While Not rsUpcoming.EOF%>
< tr>
< td>< p>< b>< %=rsUpcoming("Title")%>< /b>< br>
< %=rsUpcoming("Description")%>< /p>
< p>< a href="enroll.asp?SessionID=< %=rsUpcoming("Session_ID")%>">
Enroll Now!< /a>< /p>< br>
< /td>
< /tr>
< %
rsUpcoming.MoveNext
Loop
%>
< /table>
在ASP+中，我们利用新的服务器控件，DataList。ASP+ DataList是用来创建自定义页面布局的新控件中的一种，这些布局都是基于表格的。DataList通过你赋予的属性来创建表格的行与列，同时使用Template来控制布局。在下面的例子中，我们使用ItemTemplate来格式化每行的布局。该templates控制每个显示出来的单元的布局（一个记录对一个单元）：
< tr>
< td class="headerRow">Upcoming Events< /td>
< /tr>
< /table>
< asp:DataList id="dlUpcoming" width="100%" runat="server">
< template name = "ItemTemplate">
< p>< b>< %# Container.DataItem("Title") %>< /b>< br/>
< %# Container.DataItem("Description") %>< /p>
< p>< a href="enroll.asp?SessionID=< %# Container.DataItem("Session_ID") %>">
Enroll Now!< /a>< /p>< br/>
< /template>
< /asp:DataList>
缺省情况下，DataList创建一个单列的表格。通过改变它的一系列属性可使其创建多个列：
< asp:DataList id="dlUpcoming" width="100%"
RepeatDirection="Horizontal"
RepeatColumns="2"
runat="server">
其他的数据显示控件包括DataGrid（标准表格布局）和Repeater（完全自定义布局）。
如果我们现在来看页面，表中的任何内容都不会显示出来。这是因为我们虽然设计了布局，却没提供数据。我们必须显式地将数据（DataSet中的一个DataView）绑定到ASP+ DataList控件。通过设置DataSource属性，调用将要显示数据的控件的DataBind()方法，我们可以做到这一点。
由于ASP+ web应用程序在运行前经过编译，我们毋须遵循页面上的线性处理流程。即使DataList的ID直到页面代码的中部才被确定（当我们实际将控件放在页面上时），我们还是可以在页面起始部分的Page_Load事件中指定控件。这样一来，当页面装载时数据就已经被绑定到控件。
< script language="vb" runat=server>
Sub Page_Load(Source As Object, E As EventArgs)
. . .
cmdUpcoming.FillDataSet(dsUpcoming, "Upcoming")
dlUpcoming.DataSource = dsUpcoming.Tables("Upcoming").DefaultView
dlUpcoming.DataBind()
End Sub
< /script>
使用诸如DataList这样的ASP+服务器控件，使我们能有计划性地访问该控件。这样我们便可以针对它的属性以及方法来编写代码。在第一行中，我们将DataList的DataSource属性设为DataSet中的DataView（一个单独的数据表）。我们特别将它设为DataSet的表集中的Upcoming表的缺省视图（view）。设置了DataSource后，我们就调用DataList控件的DataBind()方法，将SQL的查询结果绑定到DataList控件。
至于剩余的页面，我们依样画葫芦，使用ASP+ DataList或是Repeater控件。这样做是必要的，因为按设计要求需要定制的数据布局，而不是一个标准的表格显示。其中有个页面，classcatalog.aspx，有一处要求勾选值，然后根据选中的值，运行两个可能输出中的一个。该页就利用了Repeater控件，因此我们显示地创建了表格的行与列，而没有让控件来完成这一切。这是在templates的内部完成的。在ASP中，看起来是这样子的：
'检查是否提供优惠
If rsSessions("Special") = True Then
'若本课程提供优惠，则输出“Special Offer!”
Response.Write "< td valign=top align=center>" & vbCrLf
Response.Write "< a href=""classdetail.asp?SessionID="
Response.Write rsSessions("SessionID")
Response.Write """name=""Click for more detail"">"
Response.Write "Special Offer!"
Response.Write "< /td>"
Else
'若本课程不提供优惠，则在栏中输出"--"
Response.Write "< td valign=top align=center>--< /td>"
End If
为了在ASP+中达到同样的效果，我们使用了一个函数。在脚本块中，位于Page_Load 事件下，我们创建以下代码：
Function CheckSpecial(ByRef blnSpecial As Boolean, _
ByRef intNumber As Integer) As String
If blnSpecial = True Then
CheckSpecial = "< a href=" & Chr(34) & _
"classdetail.aspx?SessionID=" & _
intNumber & Chr(34) & ">Special!!< /a>"
Else
CheckSpecial = "--"
End If
End Function
然后只须从ASP+ Repeater中调用函数：
< template name = "ItemTemplate">
< tr>
[ other data being displayed ]
< td valign=top align=center>
< %=CheckSpecial(Container.DataItem("Special"),
Container.DataItem("Session_ID"))%>
< /td>
< /tr>
< /template>
Container指的是涉及我们的ASP+ Reapter控件的数据的父对象。通过调用Container.DataItem("Special")及Container.DataItem("Session_ID") ，将父对象（即ASP+ Repeater控件）中的列的值传递给了函数。
现存的ASP版的eVille禁止对站点的某些部分的访问，除非用户已经登录。一些功能像查看将来的优惠特价，报名上课，以及了解自己当前的入学状况是受限制区域。如果想在未登录的状态下访问这类区域，你只会被重新导回到登录页面。用户在一份表格中输入他们的用户名与密码，然后与数据库的学生表进行比较，如果登录成功，一个名为blnLoggedIn的会话变量便被设为真。这种方法对这个站点是有效的，因为它架设在一台单一的服务器上。其它的方法将被用于web farms上的web应用程序，比如ASP+的会话存储，或SQL的会话存储。
===确认用户输入===
代码重写工作量最大的部分在于那些获取用户输入的页面，用户输入这些信息以登记成为eVille会员。有一个叫signup.asp的页面，用来让用户输入他们的重要信息，现有会员也可籍此更新信息。未转换前，表格的数据通过HTTP Post方式递交给一个叫cookie.asp的页面。该页会确认表格中的数据，如果存在错误，将用户导回signup.asp同时在query string中加上错误号。接着一个Select Case语句会将基于错误号的输出进行转换。我们检查的错误包括：
*未输入用户名
*未输入密码
*密码与密码确认不符
*用户名在数据库中已存在
通过将所有的输入域（field）转换成服务器控件，然后添加RequiredFieldValidators，可以轻松处理头两个可能发生的错误。RequiredFieldValidator只须简单确认经ControlToValidate域鉴别后的服务器控件中有输入值：
< tr>
< td valign="top">
< asp:RequiredFieldValidator runat=server
ControlToValidate = "txtUserName"
Display = "static"
errorMessage="< b>*< /b>"
ForeColor = "#CC3300" />
< /td>
< td valign=top>User Name:< /td>
< td valign=top>
< asp:TextBox id="txtUserName" size=25 runat=server />< /td>
< /tr>
这种方案是如此简单以至我们决定在把RequiredFieldValidator添加到所有的表格输入域中。在ASP中，我们通常会用一个VBScript函数来检验输入值，而现在我们只需把RequiredFieldValidator添加到每个我们想确认的控件中去。
至于密码与密码确认的比较，我们可以使用ASP+的CompareValidator。该控件允许我们设置ControlToValidate，ControlToCompare以及Operator属性（在本例中是一个等于号，即'Equal'）。被指定的两个控件用Operator（即操作符）属性互相比较。与传统的If...Then语句相比，这种方法明显要简单，快捷：
< asp:CompareValidator runat=server
ControlToValidate = "txtConfirm"
ControlToCompare = "txtPassword"
Type = "String"
Operator = "Equal"
Display = "dynamic"
errorMessage="< b>*< /b>"
ForeColor = "#CC3300" />
基于不同的浏览器，ASP+ validator控件会相应执行客户端的JavaScript验证（针对IE4.0以上版本），或者执行服务器端验证（针对其它情况）。不论验证是如何执行的，服务器端的验证是必不可少的（以阻止某些淘气的家伙在客户端验证上耍花样）。
现在轮到最后一个错误了。假如提交的用户名已经存在，这就要求一点点页面的改动。到目前为止，我们已经用可以执行服务器端与客户端验证代码的服务器控件完成了所有的ASP+验证。至于最后这个错误，我们要提供一些自定义的服务器端验证，因为我们需要访问数据库以了解被请求的用户名是否已存在。我们可以利用ASP+ CustomValidator控件来解决这一问题。
有了CustomValidator控件，我们可以书写自己的客户端或服务器的验证代码，从而进行验证。在这个站点的原始版本中，我们将输入表格中的数据传递给cookie.asp页，在该页执行验证后，若产生错误便传回错误代码。为了简化整个过程，我们打算将数据传回给signup.aspx页，在那儿执行验证，如果一切ok就进行重定向。这样一来，所有的验证都被集中在一个ASP+页面上了（而在ASP中，只能集中在cookie.asp页上）。
以下示例如何用CustomValidator来检验用户名：
Function ValidateUserName(ByVal objSource As Object, ByVal strUserName As String) As Boolean
Dim dscUser As ADODataSetCommand
Dim dsUser As New DataSet
Dim dvUser As DataView
Dim strSQL As String
strSQL = "SELECT UserName FROM Students " & _
"WHERE UserName = '" & strUserName & "'"
dscUser = New ADODataSetCommand(strSQL, Connect.ConnectToDB())
dscUser.FillDataSet(dsUser, "User")
UserGrid.DataSource = dsUser.Tables("User").DefaultView
UserGrid.DataBind()
If UserGrid.Items.Count > 0 Then
ValidateUserName = False
Else
ValidateUserName = True
End If
dvUser = New DataView(dsUser.Tables("User"))
End Function
< /script>
[page stuff...]
< asp:DataGrid id="UserGrid" visible=false runat=server />
< asp:CustomValidator runat=server
ControlToValidate = "txtUserName"
onServerValidationFunction = "ValidateUserName"
errorMessage = "The User Name you chose is taken. Please chose another."
ForeColor = "#CC3300"
display = "dynamic"
/>
|
|