<% @language = "VBScript" %>
<% Response.ContentType = "text/xml" %>
<?xml version="1.0" encoding="GB2312"?>
<% '查询数据库
sqlStr = "select * from ClientList"
set cConn = Server.CreateObject("ADODB.Connection")
cConn.Open "ClientList"
set rsData = cConn.Execute(sqlStr)
rsData.MoveFirst()
'动态构建XML文档
set xmlDoc = Server.CreateObject(Microsoft.XMLDOM)
set root = xmlDoc.createNode("element","联系人列表","")
xmlDoc.appendChild(root)
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)
%>
已经在本论坛下载了msxml4。0并安装，操作系统是winme＋pws，上述数据库连接确保成功，提示出错如下：
The XML page cannot be displayed
Cannot view XML input using XSL style sheet. Please correct the error and then click the Refresh button, or try again later.
--------------------------------------------------------------------------------
A string literal was expected, but no opening quote character was found. Line 3, Position 26
<font face="Arial" size=2>
-------------------------^
右击看上述出错网页源代码如下：
<?xml version="1.0" encoding="GB2312"?>
<font face="Arial" size=2>
<p>Microsoft VBScript 运行时错误</font> <font face="Arial" size=2 > 错误 '800a01a8'</font>
<p>
<font face="Arial" size=2>缺少对象: 'Server'</font>
<p>
<font face="Arial" size=2>/xml-asp.asp</font><font face="Arial" size=2>, 行16</font>
本人自己分析了一下：
1。上述font标签里面的size＝2应该是size＝"2"才对，可是本人不知道怎么会出现这样的原因，这个xml文件是动态生成的，不知道如何改。
2。提示 缺少对象：‘server’，估计是set xmlDoc = Server.CreateObject(Microsoft.XMLDOM)没有创建成功，环境不支持，但是我看到一些资料，对于操作系统好像没有怎么要求，而且我也安装了msxml！
不知道为什么，各位高手指教！不胜感激！
[返回] 计算机科学论坛 →
XML.ORG.CN讨论区 - XML技术 → 『 XML基础 』 → 初学xml，下面是书本里面的例子，可是出错了，请教高手！
(订阅本版)
2004/3/4 21:00:00
新浪微博
初学xml，下面是书本里面的例子，可是出错了，请教高手！
