保存远程图片到本地(已解决)

1. Public Function GetRealData(strURL)
   
2.    dim xmlHttp
   
3.    set xmlHttp=server.createobject("MSXML2.XMLHTTP")
   
4.    xmlHttp.open "GET",strURL,false
   
5.    xmlHttp.send
   
6.    if xmlHttp.readystate<>4 then
   
7.           exit function
   
8.    end if
   
9.    GetRealData=xmlhttp.responsebody
   
10.    set xmlHttp=nothing
    
11. End Function

复制代码

如果地址是这种形式就能得到数据：
http://bbs.thysea.com/images/smilies/13.gif
像下面这种形式的地址就得不到数据。
http://www.booksky.biz/SendFile.aspx?FileID=7658


求解，谢谢先！

[ 本帖最后由 坏的刚刚好 于 2007-6-15 22:15 编辑 ]

MLGBD，仔细一看，原来是防盗链的。。。

MLGBD
这个什么意思？

不是很明白，估计是两者连接方式的不同把，前者图片直接发放在网上，后者则规定必须在特定网页下才能打开。
xmlHttp.open "GET",          （这表示如果xmlHttp开者，则能打开连接）
strURL,false                       （这表示如果直接以strURL方式，则失败）
以上纯属个人看法（本人无制作网站经验及足够的相关知识）所以竟供参考。

防盗连并非什么高技术,也没什么多大必要

唉，那网站用了防盗链，用XMLHTTP不行，但用FLASHGET下载，郁闷啊。。

用VB做个组件，
用Microsoft Internet Transfer 控件，结果是不行。。

用Winsock，貌似行，不断试验中。。

用winsock成功做了一个下载器。但组件编程不支持Winsock控件。。。只能用WinsockAPI试试。