接收xml数据

[yskang]

写了个ASP文件
接收发过来的XML数据
对方是在其他服务器上的 JSP程序
接收到写到本地服务器txt文件里

我的接收文件：
--------------------------------------------------------------------
Set docSubmit = Server.CreateObject("Microsoft.XMLDOM")
docSubmit.load Request

Response.ContentType ="text/xml"
Response.Write docSubmit.xml
fPath=server.MapPath("data.txt")
set fso=server.CreateObject("Scripting.FileSystemObject")
set a=fso.OpenTextFile(fPath,8,true)
newline=all+docSubmit.xml
a.WriteLine(newline)
a.close
-------------------------------------------------------------------
那边发送后我这也能接收，但是data.txt里多了个空行，说明数据是空的，请问为什么，JSP那发送文件我看不到，不能改

或者有什么怎么可以排错，谢谢

[yskang]

忘了 说了我在本地用ASP写了个发送的，程序没问题，能把数据写进data.txt里

[wtogether]

try
docSubmit.async = False
docSubmit.load Request

[yskang]

请问楼上的能给说详细点不

[wtogether]

在docSubmit.load Request之上加一个docSubmit.async = False

Set docSubmit = Server.CreateObject("Microsoft.XMLDOM")
docSubmit.async = False'同步接收数据
docSubmit.load Request

'async = False,表示load完所有数据后才继续下面的操作
'而async默认是异步的,就是不用load完所有数据就继续下面的操作了

[yskang]

先谢谢再说，我去试试先，哈哈

[yskang]

哎，还是不行，

有什么可以看看他那边到底发过来什么的语句吗？
我怀疑是不是他那天的原因

[wtogether]

dim f
set f = server.createobject("adodb.stream")
if request.totalbytes > 0 then
f.type = 1
f.open
f.write request.binaryread(request.totalbytes)
else
f.type = 2
f.charset = "gb2312"
f.open
f.writetext "没有数据请求"
end if
f.savetofile server.mappath("debug.txt"), 2
f.close
set f = nothing

然后去看debug数据

[yskang]

好像能解决，哈哈，我再看看