set obj=server.createobject("msxml2.DOMDocument.4.0")
我还以为用vb6呢.net其实差不多工程里面也有引用的.添加这个dll
et xmldoc = Server.CreateObject("Microsoft.XMLDOM") see:http://www.w3schools.com/dom/dom_http.asp
上面错了 set obj=server.createobject("MSXML2.XMLHTTP40")
Dim strURL As String = "http://xxxxxxxxxxxxxxxxxxxxx.aspx" Dim xmlPath As String = "C:\Manifest.xml" Try Dim xmlDoc As New MSXML2.DOMDocument40() Dim xmlHTTP As New MSXML2.ServerXMLHTTP40() If xmlDoc.load(xmlPath) Then xmlHTTP.open("POST", strURL, False) xmlHTTP.send(xmlDoc.xml) Response.ContentType = "text/xml" Response.Write(xmlHTTP.responseText) Else Response.Write(xmlDoc.parseError.reason) End If Catch ex As Exception Response.Write("<MANIFEST><catchError>" + ex.Message + "</catchError></MANIFEST>") End Try
= Server.CreateObject("Microsoft.XMLDOM") see:http://www.w3schools.com/dom/dom_http.asp
set obj=server.createobject("MSXML2.XMLHTTP40")
Dim xmlPath As String = "C:\Manifest.xml"
Try
Dim xmlDoc As New MSXML2.DOMDocument40()
Dim xmlHTTP As New MSXML2.ServerXMLHTTP40() If xmlDoc.load(xmlPath) Then xmlHTTP.open("POST", strURL, False) xmlHTTP.send(xmlDoc.xml) Response.ContentType = "text/xml" Response.Write(xmlHTTP.responseText)
Else
Response.Write(xmlDoc.parseError.reason)
End If
Catch ex As Exception
Response.Write("<MANIFEST><catchError>" + ex.Message + "</catchError></MANIFEST>")
End Try
下面是动态生成的一个XML文档:
Set docSubmit = CreateObject(“Microsoft.XMLDOM”)
docSubmit.async = False
docSubmit.loadXML
“<?xml version=‘1.0’?>”&
“<customerorder>” &
“<customer>”&
txtCustomerID.Value &
“</customer>”&
“</customerorder>”
如果用户输入“5”作为用户ID,那么上面程序的运行结果如下所示:
<?xml version=‘1.0’?>
<customerorder>
<customer>5</customer>
</customerorder>
接下来,将XML数据添加到DOM树的<customer>元素之后。
比如有如下的一个XML数据岛:
<xml id=“dsoOrder”>
<?xml version=“1.0”?>
<order>
<orderitem title=“Sushi, Anyone?” isbn=“72-80081-025”>
<price>14.99</price>
<quantity>2</quantity>
</orderitem>
</order>
</xml>
利用前面介绍的DOM技术访问<order>元素:
Set docOrder = dsoOrder.XMLDocument
Set nodeOrder = docOrder.selectSingleNode(“//order”)
<order>元素是dsoOrder数据岛中的一部分,要把它添加到其他的DOM树中(比如前面的XML数据包),必须把<order>元素及其所有的后继节点进行备份,这是因为appendChild方法在把操作对象添加到其他DOM树中后,就从当前的DOM树中删除该对象!所以必须先调用cloneNode方法:
Set nodeOrderToSend = nodeOrder.cloneNode(True)
docSubmit.documentElement.appendChild nodeOrderToSend
经过以上操作,最后形成的数据包为:
<?xml version=“1.0”?>
<customerorder>
<customer>5</customer>
<order>
<orderitem title=“Sushi, Anyone?” isbn=“72-80081-025”>
<price>14.99</price>
<quantity>2</quantity>
</orderitem>
</order>
</customerorder>
在asp里面就很好使用!