推薦：在ASP中使用事務控制julyclyde(原作) 作者係2月份微軟社區之星Microsoft China Community Star 在編程中，經常需要使用事務。所謂事務，就是一系列必須都成功的操作，只要有一步操作失敗，所有其他的步驟也必須撤銷。比如用ASP開發一個網絡硬盤系統，其用戶註冊部分要做的事有： 將用戶信
概要
從Active Server Pages (ASP) Web 頁返回XML 數據是一種常見的編程要求。 實現此要求所用的方法因用來託管ASP 應用程序的Microsoft Internet 信息服務(IIS) 的版本而異。 本文中的分步指南帶有相關的示例代碼，演示了怎樣從ASP 頁返回可擴展標記語言(XML) 數據。
下面的示例代碼創建一個ASP 頁，此頁返回XML 格式的ActiveX Data Objects (ADO) 記錄集的內容。 此代碼連接著SQL Server PUBS 示例數據庫的一個實例，而且它通過執行SELECT 查詢語句以從Authors 表中檢索數據的這一方式來打開ADO 記錄集。 然後，使用ADO 的保存功能和ASP Response 對象的Write 方法，將此記錄集以XML 的格式返回給客戶端瀏覽器。
1. 先決條件
下面簡要列出了推薦使用的硬件、軟件、網絡架構以及所需的Service Pack：
Microsoft Windows 2000 專業版、Windows 2000 Server 或Windows 2000 Advanced Server
Microsoft Internet Information Server (IIS) 5.0
或
Microsoft Windows NT 4.0 Server
Microsoft Internet Information Server (IIS) 4.0
2. 準備Web 站點
在Windows 資源管理器中，在Web 服務器的根文件夾(通常在C:InetpubWwwroot)下創建一個名為Xmltest 的文件夾。
右鍵單擊新創建的文件夾，然後單擊屬性。
在安全選項卡上，添加所有人組，並向所有人組授予對此文件夾的讀和寫權限。單擊確定接受更改。
在開始菜單上，指向程序，指向管理工具，然後單擊Internet 服務管理器。
在Internet 信息服務下，雙擊展開對應於本地服務器的條目。
右鍵單擊默認Web 站點，指向新建，然後單擊虛擬目錄。 在嚮導中，按照下列步驟操作：
系統提示時，在虛擬目錄別名文本框中鍵入XMLTest，然後單擊下一步。
當提示您鍵入Web 站點內容目錄時，單擊瀏覽，選擇新創建的XMLTest 目錄，然後單擊下一步。
在提示您選擇訪問權限時，選擇讀和運行腳本(例如ASP)。 本例中不需要其他任何訪問權限。單擊下一步以完成嚮導。
雙擊默認Web 站點。
右鍵單擊新的虛擬目錄，然後單擊屬性。
在目錄選項卡上，檢查在應用程序設置下面的應用程序名文本框中是否列出了Web 站點名稱(在步驟6a 中鍵入的名稱)。如果未列出，請單擊創建以創建該應用程序。
關閉屬性對話框和IIS。
3. Windows 2000 XML 示例代碼
在開始菜單上，指向程序，指向附件，然後單擊記事本。
選定以下代碼，右鍵單擊所選內容，然後單擊複製。在記事本中，單擊編輯菜單上的粘貼，將以下代碼添加到該文件中：
<%
'Very Important : Set the ContentType property of the Response object to text/xml.
Response.ContentType = text/xml
Dim cn
Dim rs
Dim xmlDoc
Set cn=Server.CreateObject(ADODB.Connection)
Set rs=Server.CreateObject(ADODB.Recordset)
'Replace the ADO Connection string attributes
'in the following line of code to point to your
'instance of SQL Server, and to specify the
'required security credentials for User ID and Password.
cn.Open Provider=SQLOLEDB.1; & _
User ID=; & _
Password=; & _
Initial Catalog=pubs; & _
Data Source=
rs.CursorLocation = 3
rs.Open Select * from Authors,cn
'Persist the Recorset in XML format to the ASP Response object.
'The constant value for adPersistXML is 1.
rs.Save Response, 1
%>
在第20 行代碼中，將替換為您的用戶名。
在第21 行代碼中，將替換為您的密碼。
在第23 行代碼中，將替換為您的SQL Server。
在文件菜單上，單擊保存。
在保存在下拉列錶框中，瀏覽到您在前面創建的Xmltest 文件夾。 在文件名文本框中，鍵入Xmlw2k.asp，並在保存類型下拉框中單擊所有文件。最後單擊保存以保存該文件。
若要查看該頁，請啟動Web 瀏覽器，然後在地址欄中鍵入該頁的HTTP 位置。 如果您將文件保存到了前面提到的位置，則請在地址欄中鍵入http://< 服務器名>/Xmltest/Xmlw2k.asp 。
4. Windows NT 4.0 XML 示例代碼
在開始菜單上，指向程序，指向附件，然後單擊記事本。
選定以下代碼，右鍵單擊所選內容，然後單擊複製。在記事本中，單擊編輯菜單上的粘貼，將以下代碼添加到該文件中：
<%
'Very Important : Set the ContentType property of
'the Response object to text/xml.
Response.ContentType = text/xml
Dim cn
Dim rs
Dim xmlDoc
Set cn=Server.CreateObject(ADODB.Connection)
Set rs=Server.CreateObject(ADODB.Recordset)
'Replace the ADO Connection string attributes
'in the following line of code to point to your
'instance of SQL Server, and to specify the
'required security credentials for User ID and Password.
cn.Open Provider=SQLOLEDB.1; & _
User ID=; & _
Password=
Initial Catalog=pubs; & _
Data Source=
rs.CursorLocation = 3
rs.Open Select * from Authors,cn
Set xmlDoc = Server.CreateObject(Microsoft.XMLDOM)
'Persist the Recorset in XML format to the DOMDocument object.
'The constant value for adPersistXML is 1.
rs.Save xmlDoc,1
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
'Write out the xml property of the DOMDocument
'object to the client Browser
Response.Write xmldoc.xml
%>
在第20 行代碼中，將替換為您的用戶名。
在第21 行代碼中，將替換為您的密碼。
在第23 行代碼中，將替換為您的SQL Server。
在文件菜單上，單擊保存。
在保存在下拉列錶框中，瀏覽到您在前面創建的Xmltest 文件夾。 在文件名文本框中，鍵入Xmlnt4.asp，並在保存類型下拉框中單擊所有文件。最後單擊保存以保存該文件。
分享：ASP腳本循環語句本篇教大家ASP腳本循環語句： ASP 動態服務器頁面環境的特點就在於它是通過一種或幾種腳本語言而寫成的，腳本語言可以看作是編程語言的簡化版，它易於學習和掌握，這給廣大動態網站的設計者們提供了相當大的便利。可以這麼說: 腳本語言運用的得當與否直接關係到ASP
共2頁上一頁12下一頁