关于adodb.stream 下载文件问题

[jiffer]

请问各位大哥，在不能用fso取出文件大小的情况下如何用adodb.stream来下载文件，我是在第一台服务器上下在第二台服务器的文件，文件路径只能用http：.....用server.mappath是取不到文件路径的。

[jiffer]

大家帮帮我呀！！！！！！！！！！！！！

[白夜花寒]

你不是希望下载文件么??我给你写了一个东西,你问的问题太模糊了,都不知道怎么回答你...请你从说一下你的问题,表达清楚一点儿

[jiffer]

比如说我要下载一个图片，地址应该是这样的http://www.****.com/pic/2002.jpg
但这个地址不是本服务器的地址，故不能用server.mappath，因为不是本地的图片。我在用adodb.stream下载的时候就不能用fso读出它的大小，所以下载下来的文件就是0 k的文件。

[白夜花寒]

给你个xmlhttp+stream的东西算了
<script>
adTypeBinary = 1
adSaveCreateOverwrite = 2
adModeReadWrite = 3
xmlHTTP = new ActiveXObject("Microsoft.XMLHTTP")
xmlHTTP.open("GET","http://www.baidu.com/",false)
xmlHTTP.send()
contents = xmlHTTP.responseBody
oStr = new ActiveXObject("ADODB.Stream")
oStr.Mode = adModeReadWrite
oStr.Type = adTypeBinary
oStr.Open()
oStr.Write(contents)
oStr.SaveToFile("c:\\x.htm", adSaveCreateOverwrite)
</script>

保存成hta,就能用,如果愿意的话,保存成asp,改改代码也能用

[jiffer]

什么呀，不懂！

[jiffer]

to: leinchu(还差900分。)
报错呀，说是语句为结束。
xmlHTTP = new ActiveXObject("Microsoft.XMLHTTP")这一行。

[fantiny]

xmlHTTP = new ActiveXObject("Microsoft.XMLHTTP")

这段话本来就是客户端的代码，他贴错了吧。

服务器端是server.createobject

[jiffer]

好是好了，但是还是不行，我要的下载，就是直接弹出下载提示框那种，好像不能response.BinaryWrite(contents)
出来。

[zwrtv]

路过学习下

[jiffer]

怎么没有人回答呢？

[leinchu]

<%
xmlHTTP = new ActiveXObject("Microsoft.XMLHTTP")
xmlHTTP.open("GET","http://www.****.com/pic/2002.jpg",false)
xmlHTTP.send()
contents = xmlHTTP.responseBody
response.ContentType="image/jpeg"
response.BinaryWrite(contents)
%>
保存成asp，不过这样在服务器上运行很浪费cpu的，建议改在客户端运行，改成vbs就行。