以文本方式查看主题

-  中文XML论坛 - 专业的XML技术讨论区  (http://bbs.xml.org.cn/index.asp)
--  『 XML基础 』  (http://bbs.xml.org.cn/list.asp?boardid=1)
----  大家帮我  (http://bbs.xml.org.cn/dispbbs.asp?boardid=1&rootid=&id=8255)

--  作者：yuewei
--  发布时间：6/11/2004 3:18:00 PM

--  大家帮我
下面的程序是将数据库转换为XML,可运行结果是
<联系人列表><联系人>a1aaaaa<联系人>b2bbbbb
不知道是哪的问题，请大家告之一二
数据库是
Name ID Company Email
a 1 aa aaa
b 2 bb bbb
程序：
<% @language = "VBScript" %>

<%'动态构建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.ConnectionString ="DSN=CLIENTS"
  cConn.Open
  set rsData = cConn.Execute(sqlStr)
  rsData.MoveFirst()

  while (not rsData.EOF )
   '构建联系人子节点
    set tmpNode = xmlDoc.createNode("element","联系人","")
    root.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).value
      tmpNode.appendChild(childNode)
     next
   rsData.MoveNext()
  wend

  
  Response.Write(xmlDoc.xml)
%>

--  作者：yuewei
--  发布时间：6/12/2004 7:15:00 AM

--  
大家能帮我看看吗
谢谢大家了！
W 3 C h i n a ( since 2003 ) 旗 下 站 点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》
 5,732.422ms