日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

為什么生成的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 編輯過