asp里用DOM到底怎么生成xml呀？

[oneway]

给具体代码好吗？

[ssm1226]

response.contentType="text/xml"
response.charset="gb2312"

response.write xmldoc.xml

[gzh_seagull]

<%
Sub AddElementToParent (domBook, elemParent, sChild, sValue)
Dim elemSubelement
Dim textSubelement

Set elemSubelement = domBook.CreateElement(sChild)
Set textSubelement = domBook.CreateTextNode(sValue)
elemSubelement.appendChild(textSubelement)
elemParent.appendChild(elemSubelement)

Set elemSubelement = Nothing
Set textSubelement = Nothing
End Sub

Sub WriteNodeXML (nodeTarget)
Dim i

If nodeTarget.NodeType = 1 Then
' Element
Response.Write "<" & nodeTarget.tagName & ">"
For i = 0 to nodeTarget.childNodes.Length - 1
WriteNodeXML nodeTarget.childNodes.item(i)
Next
Response.Write "</" & nodeTarget.tagName & ">"
ElseIf nodeTarget.NodeType = 3 Then
' Text Node
Response.Write nodeTarget.data
End If

End Sub
%>

<XML id=docBook>
<%
Dim fileInvoice
Dim tsInvoice
Dim domInvoice
Dim elemInvoice
Dim elemLineItem

Dim sFilename
Dim sPath
Dim sLine
Dim sWork

Const ForReading = 1

sFilename = "e:\inetpub\wwwroot\3110\dom\book.txt"

' create the instance of the DOM and the root Book element
Set domBook = CreateObject("Microsoft.XMLDOM")
domBook.async = false

Set elemBook = domBook.CreateElement("Book")
domBook.appendChild elemBook

' open the file
Set fileBook = CreateObject("Scripting.FileSystemObject")
Set tsBook = fileBook.OpenTextFile(sFilename, ForReading)

' process the title and publisher line
sLine = tsBook.ReadLine

sWork = Trim(Mid(sLine, 1, 30)) ' Title
AddElementToParent domBook, elemBook, "Title", sWork

sWork = Trim(Mid(sLine, 31, 20)) ' Publisher
AddElementToParent domBook, elemBook, "Publisher", sWork

sWork = Trim(Mid(sLine, 51, 20)) ' PubDate
AddElementToParent domBook, elemBook, "PubDate", sWork

' process the number of pages, ISBN, and price line
sLine = tsBook.ReadLine

sWork = Trim(Mid(sLine, 1, 10)) ' Number of pages
AddElementToParent domBook, elemBook, "Pages", sWork

sWork = Trim(Mid(sLine, 11, 13)) ' ISBN
AddElementToParent domBook, elemBook, "ISBN", sWork

sWork = Trim(Mid(sLine, 24, 10)) ' Price
AddElementToParent domBook, elemBook, "Price", sWork

' process the abstract line
sLine = tsBook.ReadLine

AddElementToParent domBook, elemBook, "Abstract", sLine

Set elemRecSubjCategories = domBook.CreateElement("RecSubjCategories")
Set elemAuthors = domBook.CreateElement("Authors")

elemBook.appendChild(elemRecSubjCategories)
elemBook.appendChild(elemAuthors)

While Not tsBook.AtEndOfStream
sLine = tsBook.ReadLine
If Left(sLine, 1) = "A" Then
AddElementToParent domBook, elemAuthors, "Author", Mid(sLine, 2)
Else
AddElementToParent domBook, elemRecSubjCategories, "Category", _
Mid(sLine, 2)
End If
Wend
tsBook.Close

WriteNodeXML elemBook

' and clear our objects
Set fileBook = Nothing
Set tsBook = Nothing
Set domBook = Nothing
Set elemBook = Nothing
Set elemAuthor = Nothing
Set elemRecSubjCategories = Nothing
Set elemAuthors = Nothing
%>
</XML>

[oneway]

在版内搜到的一篇，能解释下吗？

Dim conn
Set conn = server.CreateObject("ADODB.Connection")
conn.open = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=shool;Data Source=Theseus"


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"," ")
xmldoc.appendChild(root)

Sql = "select id,class_id,number,name,uuid,password from student"
Set rs = conn.Execute(Sql)
rs.MoveFirst


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

rs.Movenext
wend


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

Response.Write(xmldoc.xml)

[sunmingdong]

Dim a As New MSXML2.DOMDocument
Dim element As IXMLDOMElement
a.loadXML "<ROOT/>"
a.documentElement.setAttribute "id", "00001"
Set element = a.createElement("Record")
element.setAttribute "name", "yourname"
element.Text = "context"
a.documentElement.appendChild element
MsgBox a.xml

[sunmingdong]

我是在vb中写的，如果转到asp中，把头上的两句定义改一下，改成：
Dim a
Set a= server.CreateObject("Microsoft.XMLDOM")
Dim element
a.loadXML "<ROOT/>" ''loadXML方法，load一个xml字符串
a.documentElement.setAttribute "id", "00001" ''填写根节点属性id='00001'
Set element = a.createElement("Record") ''定义一个element变量
element.setAttribute "name", "yourname" ''增加element的属性name='yourname'
element.Text = "context" ''增加element的内容context
a.documentElement.appendChild element ''把element加到a.documentElement(根节点)的下面
response.write a.xml ''用字符串形式输出a

[ssm1226]

http://www.csdn.net/Develop/read_article.asp?id=13753