asp向asp.net应用程序的转变过程
点击次数：24 次 发布日期：2008-11-26 14:07:38 作者：源代码网
|
源代码网推荐 [Visual Basic] 源代码网推荐 <%@LANGUAGE=VBSCRIPT%> 源代码网推荐 <! 源代码网推荐 This ASP example uses ADO to read records from a database and print two 源代码网推荐 fields from all returned records to an ASP page. Connection to the Northwind database is through an ODBC system data source (DSN. 源代码网推荐 > 源代码网推荐 <html> 源代码网推荐 <body> 源代码网推荐 <% 源代码网推荐 dim ADOconn, ADOrs, sqlstr 源代码网推荐 sqlstr="SELECT * FROM Employees;" 源代码网推荐 set ADOconn = Server.CreateObject("ADODB.Connection") 源代码网推荐 ADOconn.Open "DSN = Test" 源代码网推荐 set ADOrs = ADOconn.execute(sqlstr) 源代码网推荐 if ADOrs.BOF and ADOrs.EOF then " Query didn"t return any records. 源代码网推荐 Response.Write("No Records.") 源代码网推荐 else 源代码网推荐 ADOrs.MoveFirst 源代码网推荐 Do While Not ADOrs.EOF 源代码网推荐 Response.Write(ADOrs("FirstName") & " " _ 源代码网推荐 & ADOrs("LastName") & "<br>") 源代码网推荐 ADOrs.MoveNext 源代码网推荐 Loop 源代码网推荐 Response.Write("<p>End of data.") 源代码网推荐 end if 源代码网推荐 ADOrs.close 源代码网推荐 set ADOrs = nothing 源代码网推荐 %> 源代码网推荐 </body> 源代码网推荐 </html> 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 下面的示例阐释将前面示例转换为 ASP.NET 应用程序所需的最低程度的更改。为了符合新的 Visual Basic 语法，大多数的更改都是必要的。此文件可以用 .aspx 文件扩展名重命名，并且将与 ASP.NET 一起运行。修改后的代码行以粗体显示。注意，在第一行上添加了具有 aspcompat=true 属性的 <%@ Page > 指令。 源代码网推荐 源代码网推荐 源代码网推荐 [Visual Basic] 源代码网推荐 <%@Page aspcompat=true Language = VB%> 源代码网推荐 <! 源代码网推荐 This example uses ADO to read records from a database and print two 源代码网推荐 fields from all records in the database to an ASP.NET page. 源代码网推荐 The database is located on the server and connection is through an ODBC system data source (DSN. 源代码网推荐 > 源代码网推荐 <html> 源代码网推荐 <body> 源代码网推荐 <% 源代码网推荐 dim objConn, rs, sqlstr 源代码网推荐 sqlstr="SELECT * FROM Employees;" 源代码网推荐 objConn = Server.CreateObject("ADODB.Connection") " Set removed. 源代码网推荐 objConn.Open("DSN=TEST") " Parentheses added. 源代码网推荐 rs = objConn.execute(sqlstr) " Set statement removed. 源代码网推荐 Response.Write("<p>ADO Test</p>") 源代码网推荐 源代码网推荐 if rs.BOF and rs.EOF then " Query didn"t return any records. 源代码网推荐 Response.Write("No Records") 源代码网推荐 else 源代码网推荐 rs.MoveFirst 源代码网推荐 Do While Not rs.EOF 源代码网推荐 " Specify Value property. 源代码网推荐 Response.Write(rs("FirstName").Value _ 源代码网推荐 & " " & rs("LastName").Value & "<br>") 源代码网推荐 rs.MoveNext 源代码网推荐 Loop 源代码网推荐 Response.Write("<p>End of data") 源代码网推荐 end if 源代码网推荐 rs.close 源代码网推荐 rs = nothing " Set statement removed. 源代码网推荐 %> 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 下一个示例是一个 ASP.NET 应用程序，该程序使用 ADO.NET 从与前面示例相同的 Northwind 数据库读取记录。这些代码生成的输出等效于前面示例的输出，而且已被修改以符合 ASP.NET 代码块约定。 源代码网推荐 源代码网推荐 该示例创建一个 ADO.NET DataSet 对象，在此情况下此对象包含一个数据表，而该数据表的使用方式与 ADO 记录集的使用方式几乎相同。请注意，数据集可以由一个或多个构成内存驻留数据库的 DataTables、DataRelations 和 Constraints 的集合组成，因此 ADO.NET 数据集比 ADO 记录集灵活得多。 源代码网推荐 源代码网推荐 为了使用 ADO.NET，需要导入 System.Data 和 System.Data.OleDb 命名空间。如果数据源是 SQL Server 数据库，则导入 System.Data.SqlClient 命名空间而不是 System.Data.OleDb。有关使用 ADO 和 SQL .NET 数据提供程序的连接对象的详细信息，请参见管理连接。 源代码网推荐 源代码网推荐 [Visual Basic] 源代码网推荐 <%@Import Namespace="System.Data"%> 源代码网推荐 <%@Import Namespace="System.Data.OleDb"%> 源代码网推荐 <! 源代码网推荐 This example uses ADO.NET to read records from a database and print two 源代码网推荐 fields from all returned records to an ASP.NET page. The database 源代码网推荐 is located on the local server. 源代码网推荐 > 源代码网推荐 <html> 源代码网推荐 <Script Language=VB Runat=Server> 源代码网推荐 Sub Page_Load(Sender As Object, e As EventArgs) 源代码网推荐 Dim MyConnection As OleDbConnection 源代码网推荐 Dim MyCommand As OleDbDataAdapter 源代码网推荐 dim MyDataset As DataSet 源代码网推荐 dim MyTable As DataTable 源代码网推荐 dim loop1, numrows As Integer 源代码网推荐 dim sqlstr As String 源代码网推荐 源代码网推荐 sqlstr = "SELECT * FROM Employees;" 源代码网推荐 源代码网推荐 " Create a connection to the data source. 源代码网推荐 MyConnection = New OleDbConnection("Provider=SQLOLEDB;" _ 源代码网推荐 & "server=localhost;"Integrated Security=SSPI;" _ 源代码网推荐 & "Initial Catalog=Northwind") 源代码网推荐 源代码网推荐 " Create a Command object with the SQL statement. 源代码网推荐 MyCommand = New OleDbDataAdapter(sqlstr, MyConnection) 源代码网推荐 源代码网推荐 " Fill a DataSet with data returned from the database. 源代码网推荐 MyDataset = New DataSet 源代码网推荐 MyCommand.Fill(MyDataset) 源代码网推荐 源代码网推荐 " Create a new DataTable object and assign to it 源代码网推荐 " the new table in the Tables collection. 源代码网推荐 MyTable = New DataTable 源代码网推荐 MyTable = MyDataset.Tables(0) 源代码网推荐 " Find how many rows are in the Rows collection 源代码网推荐 " of the new DataTable object. 源代码网推荐 numrows = MyTable.Rows.Count 源代码网推荐 If numrows = 0 then 源代码网推荐 Response.Write("<p>No records.</p>") 源代码网推荐 Else 源代码网推荐 Response.Write("<p>" & Cstr(numrows) & " records found.</p>") 源代码网推荐 For loop1 = 0 To numrows - 1 源代码网推荐 " Print the values of the two columns in the Columns 源代码网推荐 " collection for each row. 源代码网推荐 Response.Write(MyTable.Rows(loop1).Item("FirstName") _ 源代码网推荐 & " " & MyTable.Rows(loop1).Item("LastName") & "<br>") 源代码网推荐 Next loop1 源代码网推荐 End If 源代码网推荐 Response.Write("<p>End of data.</p>") 源代码网推荐 End Sub 源代码网推荐 </Script> 源代码网推荐 </html> 源代码网推荐 源代码网推荐 在数据库查询（甚至是多表联接查询）返回单个记录集的情况下，可以通过与使用 ADO 记录集的方式几乎相同的方式使用单个 DataTable（在此示例中为 MyTable）。 源代码网推荐 源代码网推荐 参考《NET FRAMEWORK SDK文挡》 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
