求助：关于微软的两个组件问题！

[ldw701]

谁用过微软的Moxaso.MoxHTTP组件，还有在asp中怎样用微软的xmldocument组件解析xml文档，最好有具体实例和注释！先谢谢各位大虾了！！

[online]

<%
Dim xmlDom, rootNode
xmlFileName = "test.xml"
Set xmlDom = Server.CreateObject("Microsoft.XMLDOM")
xmlDom.async = false
If not xmlDom.load(Server.MapPath(xmlFileName)) Then
response.Write ("没有这个会员")
respoonse.end
Else
Set xmlNode = xmlDom.documentElement.childNodes(0)
Set objRetValNode = xmlDom.documentElement
Set objRetValNode = xmlDom.selectSingleNode(".//UserData/UserInfo/EYuan")
Response.write objRetValNode.Text
End If

%>

xml文件
<?xml version="1.0" encoding="gb2312"?>
<UserData>
<UserInfo>
<UserName>testEnte</UserName>
<UserEmail>[e-mail]</UserEmail>
<EYuan>20</EYuan>
<iDate>2003-12-20 0:03:53</iDate>
</UserInfo>
<其他节点>
<Company>公司名称</Company>
</其他节点>
</UserData>

[online]

试试
Moxaso.MoxHTTP组件没有用过
测试通过
<%
Dim xmlDom, rootNode
xmlFileName = "test1.xml"
Set xmlDom = Server.CreateObject("Microsoft.XMLDOM")
xmlDom.async = false
If not xmlDom.load(Server.MapPath(xmlFileName)) Then
response.Write ("没有这个文件")
respoonse.end
Else
Set xmlNode = xmlDom.documentElement
Set objRetValNode = xmlDom.documentElement

For i = 0 To xmlNode.childNodes.length - 1
response.write xmlNode.childNodes(i).nodeName
response.write " "
response.write xmlNode.childNodes(i).Text
response.write "<br>"
Next
End If

%>

xml文件
<?xml version="1.0" encoding="gb2312"?>
<XML>
<TotalUser>0</TotalUser>
<MonthAdd>0</MonthAdd>
<MonthQuit>0</MonthQuit>
</XML>