以文本方式查看主题

-  计算机科学论坛  (http://bbs.xml.org.cn/index.asp)
--  『 XML基础 』  (http://bbs.xml.org.cn/list.asp?boardid=1)
----  初学xml，下面是书本里面的例子，可是出错了，请教高手！  (http://bbs.xml.org.cn/dispbbs.asp?boardid=1&rootid=&id=5557)

--  作者：heart-cyan
--  发布时间：3/4/2004 9:00:00 PM

--  初学xml，下面是书本里面的例子，可是出错了，请教高手！
<% @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！
不知道为什么，各位高手指教！不胜感激！

--  作者：admin
--  发布时间：3/4/2004 9:44:00 PM

--  
set xmlDoc = Server.CreateObject(Microsoft.XMLDOM)
CreateObject里的参数要加双引号。
"Microsoft.XMLDOM"
--  作者：阿星[aXing]
--  发布时间：3/5/2004 1:08:00 PM

--  
哦，受教
W 3 C h i n a ( since 2003 ) 旗 下 站 点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
 169.922ms