给你个思路吧1、写一个服务器端的程序 实现保存远程图片
asp代码 savePic.asp
<%
sub SaveRemoteFile(LocalFileName,RemoteFileUrl)
dim Ads,Retrieval,GetRemoteData
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
  .Open "Get", RemoteFileUrl, False, "", ""
  .Send
  GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Adodb.Stream")
With Ads
  .Type = 1
  .Open
  .Write GetRemoteData
  .SaveToFile server.MapPath(LocalFileName),2
  .Cancel()
  .Close()
End With
Set Ads=nothing
end sub
%>
2、设置图片地址动态接收,例如  request("picUrl")
<%
if request("picUrl") <> "" then 
    SaveRemoteFile 随即图片名称+原扩展名,request("picUrl")
end if
%>3、调用js方式调用该程序 例如 
<script src="savePic.asp?picurl=http://www.baidu.com/img/logo.gif"></script>