给你个思路吧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>
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>
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货