LOGO OA教程 ERP教程 模切知识交流 PMS教程 CRM教程 开发文档 其他文档  
 
网站管理员

XMLDOM生成XML文件

admin
2011年4月13日 14:59 本文热度 2657
为什么生成的xml只有<?xml version="1.0" encoding="GB2312"?>


<!--#include file="GetDB.inc"-->
<%
on error resume next
Dim SQL,RS

Set RS = Server.CreateObject("ADODB.RecordSet")
Set conn = server.createobject("ADODB.connection")
OpenDBConn conn

SQL = "SELECT * FROM basic"
RS.Open SQL,Conn,1,1
RS.MoveFirst

Dim xmldoc
Set xmldoc = server.CreateObject("Msxml2.DOMDocument.4.0")

Dim version
Set version = xmldoc.createProcessingInstruction("xml","version='1.0' encoding='GB2312'")
xmldoc.appendchild(version)

Dim root
Set root = xmldoc.CreateNode("root")
xmldoc.appendChild(root)

while (Not RS.EOF)
Set childNode = xmldoc.CreateNode("student")
For Each f in rs.Fields
  Set childnextNode = xmldoc.CreateNode(f.name)
  childnextNode.Text = f.Value
  childNode.appendChild(childnextNode)
Next
RS.MoveNext
root.appendChild childNode
wend

xmldoc.save(Server.Mappath("info.xml"))

%>
---------------------------------------------------------------

我好像没有看见连接数据库的语句
---------------------------------------------------------------

xml/soap里给你回答了。
这个主要是你对xmldom的操作方法是错误的。
建议你多看看xmldom的sdk

http://www.chinaok.net/examples/
有几个例子。

---------------------------------------------------------------

不可能...至少会存在一个root结点..
去掉这一句:on error resume next看看运行效果


---------------------------------------------------------------

是啊!
调试阶段on error resume next可是大忌啊!!!
---------------------------------------------------------------

是啊!
调试阶段on error resume next可是大忌啊!!!

---------------------------------------------------------------

取数据有错,XMLDOM操作没错。
如果XMLDOM操作有错,则不会有<?xml version="1.0" encoding="GB2312"?>

你把on error resume next注释掉,就可以看到那行有错了。


---------------------------------------------------------------

Dim SQL,RS

Set RS = Server.CreateObject("ADODB.RecordSet")

SQL = "SELECT showname FROM download"
RS.Open SQL,Connys,1,1
RS.MoveFirst

Dim xmldoc
Set xmldoc = server.CreateObject("Msxml2.DOMDocument.4.0")

Dim version
Set version = xmldoc.createProcessingInstruction("xml","version='1.0' encoding='GB2312'")
xmldoc.appendchild(version)

Dim root
Set root = xmldoc.CreateNode(1, "root","")
xmldoc.appendChild(root)

do while (Not RS.EOF)
Set childNode = xmldoc.CreateNode(1,"student","")
For Each f in rs.Fields
  Set childnextNode = xmldoc.CreateNode(1,f.name,"")
  childnextNode.Text = f.Value
  childNode.appendChild(childnextNode)
Next
RS.MoveNext
root.appendChild childNode
loop

xmldoc.save(Server.Mappath("info.xml"))

%>
改了一下,试过了,成功!

该文章在 2011/4/13 14:59:55 编辑过
关键字查询
相关文章
正在查询...
点晴ERP是一款针对中小制造业的专业生产管理软件系统,系统成熟度和易用性得到了国内大量中小企业的青睐。
点晴PMS码头管理系统主要针对港口码头集装箱与散货日常运作、调度、堆场、车队、财务费用、相关报表等业务管理,结合码头的业务特点,围绕调度、堆场作业而开发的。集技术的先进性、管理的有效性于一体,是物流码头及其他港口类企业的高效ERP管理信息系统。
点晴WMS仓储管理系统提供了货物产品管理,销售管理,采购管理,仓储管理,仓库管理,保质期管理,货位管理,库位管理,生产管理,WMS管理系统,标签打印,条形码,二维码管理,批号管理软件。
点晴免费OA是一款软件和通用服务都免费,不限功能、不限时间、不限用户的免费OA协同办公管理系统。
Copyright 2010-2024 ClickSun All Rights Reserved