从ASP迁移至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。

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!