"将下文保存为 save2local.asp
"测试:save2local.asp?url=http://ent.sina.com.cn/s/m/2003-11-11/1411231388.html
<%
"参数设置开始
url = request("url")
localaddr = server.MapPath("images_remote/") "保存到本地的目录
localdir = "images_remote/" "http 访问的相对路径
AllowFileExt = "jpg|bmp|png|gif" "支持的文件名格式
"参数设置完毕
if createdir(localaddr) = false then
response.Write "创建目录失败,请检查目录权限"
response.End
end if
response.Write Convert2LocalAddr(url,localaddr,localdir)
function Convert2LocalAddr(url,localaddr,localdir)
"参数说明
"url 页面地址
"localaddr 保存本地的物理地址
"localdir 相对路径
strContent = getHTTPPage(url)
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "
Set Matches =objRegExp.Execute(strContent)
For Each Match in Matches
RetStr = RetStr & GetRemoteImages(Match.Value)
Next
ImagesArray=split(RetStr,"||")
RemoteImage=""
LocalImage=""
for i=1 to ubound(ImagesArray)
if ImagesArray(i)<>"" and instr(RemoteImage,ImagesArray(i))<1 then
fname=baseurl&cstr(i&mid(ImagesArray(i),instrrev(ImagesArray(i),".")))
ImagesFileName = ImagesArray(i)
AllowFileExtArray = split(AllowFileExt,"|")
isGetFile = false
for tmp = 0 to ubound(AllowFileExtArray)
if lcase(GetFileExt(ImagesFileName)) = ALlowFileExtArray(tmp) then
isGetFile=True
end if
next
if isGetFile = true then
[大灰狼的爱情故事]大灰狼的ASP工具箱――自动获得远程图片 #Write By Jaron
http://m.bbyears.com/wangyetexiao/8160.html
推荐访问: