从ASP Web页返回XML_ASP教程

推荐：在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