-- 发布时间：5/9/2004 1:47:00 AM
-- 请教一个关于dom动态生成xml的问题
<%
set my_connection= Server.CreateObject("ADODB.Connection")
my_connection.open MM_sql_STRING
set rs = my_connection.execute(my_sql_string)
set xmlDom = Server.CreateObject("Microsoft.XMLDOM")
xmlDom.load(Server.MapPath("./test1.xml"))
set rootElement = xmlDom.documentElement
dim newChild
dim index
index=0
dim tempNode
while not rs.EOF
set newChild = xmlDom.createElement("Record")
newChild.setAttribute "Index",index
'以下三条语句重复
set tempChild = xmlDom.createElement("CSRC_CLASS1")
tempChild.appendChild xmlDom.createCDATASection(rs("CSRC_CLASS1"))
set tempChild = xmlDom.createElement("CSRC_CLASS2")
tempChild.appendChild xmlDom.createCDATASection(rs("CSRC_CLASS2"))
set tempChild = xmlDom.createElement("tradeCount")
tempChild.appendChild xmlDom.createCDATASection(rs("tradeCount"))
set tempChild = xmlDom.createElement("tradePrice")
tempChild.appendChild xmlDom.createCDATASection(rs("tradePrice"))
newChild.appendChild tempChild
rootElement.appendChild newChild
index = index + 1
rs.MoveNext
wend
response.contenttype="text/xml"
Response.Write(xmlDom.xml)
'销毁对象引用
set xmlDom = nothing
set rs = nothing
set my_connection = nothing
%>
我想问一下，为什么生成的xml文档只显示最后一个节点tradeprice和其记录
恳求各位点睛