北京网站建设 北京网站制作 蓝图网络

ASP抓取远程图片，自动保存图片，通过剪切板，拷贝网上的图文混排的文字，到编辑器粘贴，图片即可保存在本地，这样可以大大的减轻，因是远程图片，外部更改后，本地无法显示的问题。

运行代码：

<%
function SaveRemoteFile(LocalFileName,RemoteFileUrl)
dim Ads,Retrieval,GetRemoteData
Set Retrieval = Server.CreateObject("MSXML2.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
SaveRemoteFile=1
End function

%>

例: 程序代码
<form id="form1" name="form1" method="post" action="?action=test">
<input name="body" type="text" />
<input type="submit" name="Submit" value="提交" />
</form>
<p>
<%
if request.QueryString("action")="test" then
'取得文章内容
Content =Request.Form("body")
'开始保存图片
aa="qq/a.gif"'这里AA可以从Content中得到文件名.
a1=SaveRemoteFile(aa,Content)
'显示结果
response.Write("<img src='qq/a.gif'>")
Response.Write(Content)
Response.End()
end if
%>