我现在做的这个程序有问题，不能运行，请大家帮助，谢谢！
假设现在数据库中已经存了如下记录：
Name ID Company Email
张三 1 A公司 zhang@aaa.com
李四 2 B公司 li@bbb.org
下面开始我们的编程之旅。首先是要创建一个数据源，数据源（ODBC Source）实际上是定义数据来源，也就是说用来告诉程序数据的出处。有一点需要注意，数据源的创建要在服务器端进行，因为ASP本身就是在服务器端运行的。其实要做的很简单：打开控制面板，鼠标双击"ODBC数据源"，添加数据源，选择"SQL Server"，分别配置服务器名（CLIENTS所在服务器）、数据库名（CLIENTS）、数据源名称（此处定为clientList）、用户名（sa）、用户口令（空），数据源就配置好了。下面来编写相应的代码，代码将通过调用XML DOM动态生成XML结构，然后借助ADO访问数据库动态填充XML内容。
<% @language = "VBScript" %>
<% Response.ContentType = "text/xml" %>
<?xml version="1.0" encoding="GB2312" ?>
<%’动态构建XML文档
set xmlDoc = Server.CreateObject(Microsoft.XMLDOM)
set root = xmlDoc.createNode("element","联系人列表","")
xmlDoc.appendChild(root)
’查询数据库
sqlStr = "select * from clientList"
set cConn = Server.CreateObject("ADODB.Connection")
cConn.Open "CLIENTS","sa", ""
set rsData = cConn.Execute(sqlStr)
rsData.MoveFirst()
while (not rsData.EOF )
’构建联系人子节点
set tmpNode = xmlDoc.createNode("element","联系人","")
xmlDoc.documentElement.appendChild(tmpNode)
’构建姓名、ID、公司、Email子节点
for I = 0 to rsData.Fields.Count - 1
set childNode = xmlDoc.createNode("element",rsData.Fields(i).Name,"")
childNode.text = rsData.Fields(i)
tmpNode.appendChild(childNode)
next
rsData.MoveNext()
wend
Response.Write(xmlDoc.xml)
%>
运行该ASP，将生成下面的XML文档。
<?xml version = "1.0" encoding="GB2312" standalone = "no"?>
<联系人列表>
<联系人>
<姓名>张三</姓名>
<ID>1</ID>
<公司>A公司</公司>
<EMAIL>zhang@aaa.com</EMAIL>
</联系人>
<联系人>
<姓名>李四</姓名>
<ID>2</ID>
<公司>B公司</公司>
<EMAIL>li@bbb.org</EMAIL>
</联系人>
</联系人列表>
[返回] 计算机科学论坛 →
XML.ORG.CN讨论区 - XML技术 → 『 XML基础 』 → 有关xml转换
(订阅本版)
2004/6/1 15:34:00
新浪微博
有关xml转换
