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

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，仔细一看，原来是防盗链的。。。

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

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

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

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