如何将用asp发送xml到指定地址，然后处理？

[笑天狂客]

将XML数据发送给ASP时可以用如下方法：
Set docSubmit = CreateObject("Microsoft.XMLDOM")
'......
'组织XML文档docSubmit

Set poster = CreateObject("Microsoft.XMLHTTP")
poster.Open "POST", "1.asp", False
poster.send docSubmit

Set docResponse = poster.responseXML
'......
'处理返回的XML文档

[孟子E章]

<%
Set docSubmit = Server.CreateObject("Microsoft.XMLDOM")
docSubmit.loadXML "<ok/>"

Set poster = CreateObject("Microsoft.XMLHTTP")
poster.Open "POST", "http://localhost/1.asp", False
poster.send docSubmit
Set docSubmit = poster.responseXML
Response.Write Server.HtmlEncode(docSubmit.xml)

%>

接收
<%
Set docSubmit = Server.CreateObject("Microsoft.XMLDOM")
docSubmit.load Request

Response.ContentType ="text/xml"
Response.Write "<?xml version='1.0'?>" & docSubmit.xml
%>

[笑天狂客]

将XML数据发送给ASP时可以用如下方法：
Set docSubmit = CreateObject("Microsoft.XMLDOM")
'......
'组织XML文档docSubmit

Set poster = CreateObject("Microsoft.XMLHTTP")
poster.Open "POST", "1.asp", False
poster.send docSubmit

Set docResponse = poster.responseXML
'......
'处理返回的XML文档
——————————————————————————————————————————————————————————
这里面“组织XML文档docSubmit”怎么做呢？
还有“处理返回的XML文档”怎么做呢？

[笑天狂客]

有人知道么,或者有完整代码么？

[leinchu]

孟子的已经很完整了，看不明白？

[笑天狂客]

我是刚刚搞xml，很多地方不懂，拜托大家了

[笑天狂客]

总算知道原因了，不能使用HTTP://127.0.0.1:8090/rec_test.asp 这样的地址 啊

[笑天狂客]

我的发送页面：
<%
xmlstr = ""
xmlstr = xmlstr & "<?xml version=""1.0"" encoding=""gb2312"" ?>" & vbCrLf
xmlstr = xmlstr & "<testyou>" & vbCrLf
xmlstr = xmlstr & "<MsgType>testyou" & vbCrLf
xmlstr = xmlstr & "</MsgType>" & vbCrLf
xmlstr = xmlstr & "<FishPrice>" & vbCrLf
xmlstr = xmlstr & "<Id>ww</Id>" & vbCrLf
xmlstr = xmlstr & "<FishStyle>sdfs</FishStyle>" & vbCrLf
xmlstr = xmlstr & "<Unit>ewr</Unit>" & vbCrLf
xmlstr = xmlstr & "</FishPrice>" & vbCrLf
xmlstr = xmlstr & "</testyou>" & vbCrLf

Set poster = CreateObject("Microsoft.XMLHTTP")
poster.Open "POST", "HTTP://127.0.0.1:8090/rec_test.asp", false
poster.Send xmlstr
If poster.readyState <> 4 then
poster.waitForResponse 4
End If


response.write Server.HtmlEncode(poster.responseText)
%>
<%=poster.readyState%>


接收处理页面:
<%
Set conn=Server.CreateObject("ADODB.Connection")

conn.open "driver={SQL Server};server=127.0.0.1;uid=sa;pwd=1234;database=pubs"
Set rs= Server.CreateObject("ADODB.RecordSet")
dim xmldom
' set xmldom = Server.CreateObject("Microsoft.XMLDOM")
set xmldom = Server.CreateObject("MSXML.DOMDocument")
xmldom.load Request
dim cs01
cs01 = xmldom.selectSingleNode("//testyou/MsgType").text
dim sql,retval
on error resume next
sql="insert into test(test)"
sql=sql&"values('1')"
conn.Execute(sql)
if err.number=0 then
retval="success"
else
retval="fail"
end if
set xmldom = Nothing
set conn=nothing
%>
<?xml version="1.0" encoding="gb2312"?>
<Response>
<retval><%=retval%></retval>
</Response>

我发现数据库里面并不能写入数据，而且返回打印出来的都是乱码，请问高人？这是怎么回事？