asp用dom创建xml的问题

oneway 2002-12-18 04:55:24

大家看看这段asp，为什么不能生成指定文件?


<%
on error resume next
Dim SQL,RS

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

SQL = "SELECT name,age,sex FROM basic WHERE id=2"
RS.Open SQL,Conn,1,1
RS.MoveFirst

Dim xmldoc
Set xmldoc = server.CreateObject("Microsoft.XMLDOM")

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

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

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

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

%>

...全文

71 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

ssm1226 2002-12-18

打赏
举报

<%
on error resume next
Dim SQL,RS

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

SQL = "SELECT name,age,sex FROM basic WHERE id=2"
RS.Open SQL,Conn,1,1
RS.MoveFirst

Dim xmldoc
Set xmldoc = server.CreateObject("Msxml2.domdocument")

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

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

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

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

%>