保存远程图片函数修改正版

今日闲暇之余，我精心调整了一个函数，经过本地服务器与专业空间商服务器的双重考验，表现稳定，运行无误。我的安全防护软件卡巴斯基也已成功识别，不再报警。这次调整的函数，不仅适用于本地环境，更具有跨平台特性，无论置于何处，皆能发挥其功效。让我以添加图片为例，详细阐述其调用方法。具体操作如下：

经过我细致的修改和调整，这个函数已经可以在任何网站上顺利运行。它的适用性极强，无论你的网站规模大小，都能轻松应对。在本地测试时，我通过添加图片的方式验证了其使用效果。这个函数的运行过程非常直观，操作起来非常简单明了。只需要按照指定的步骤进行操作，就能轻松实现函数的调用。其它位置的调用方法与这个例子类似。

一、狼蚁网站SEO优化中的图片保存功能

函数名：saveimgfile

功能：保存远程图片

参数说明：imgfileurl--远程图片地址

修改日期：2006-4-19 13:20

程序作者：冷风

网站：[网站链接]（此处不展示具体链接）

函数内容：

```vbscript

function saveimgfile(imgfileurl)

dim img_type, savepath, imgfiletype, flag, imgbody

savepath = "../FUploadFile/" & year(now()) & "-" & month(now())

flag = false

imgfiletype = right(imgfileurl, 4) '获取远程图片的格式

img_type = ".gif|.bmp|.jpg|.png" '设置允许保存在本地的图片格式

typeArr = split(img_type, "|")

for i = 0 to ubound(typeArr) - 1

if imgfiletype = typeArr(i) then

flag = true

exit for

end if

next

if flag = false then '如果不是允许保存到本地的图片格式，则只连接远程图片

saveimgfile = imgfileurl

else

set xml_http = server.createobject("microsoft.xmlhttp")

xml_http.open "get", imgfileurl, false

xml_http.send

imgbody = xml_http.responsebody

set xml_http = nothing

serverpath = server.mappath(savepath)

set filefolder = server.createobject("scripting.filesystemobject")

if filefolder.folderexists(serverpath) = false then

filefolder.createfolder(serverpath)

end if

randomize

savepath = savepath & "/" & year(now()) & month(now()) & day(now()) & hour(now()) & minute(now()) & int(rnd 10) & imgfiletype

set adodbs = server.createobject("adodb.stream")

adodbs.open

adodbs.type = 1

adodbs.write imgbody

adodbs.savetofile(server.mappath(savepath)) '保存到本地

adodbs.seteos

set adodbs = nothing

if filefolder.fileexists(server.mappath(savepath)) = false then '如果保存成功，返回远程地址，仅作远程连接（避免防盗连网站无法保存）

saveimgfile = imgfileurl

else

savepath = replace(savepath, "../", "")

saveimgfile = savepath

end if

set filefolder = nothing

end if

end function

```

二、在admin/admin_pic.asp文件中的优化操作：

```vbscript

if left(pic_url,7)=" and request.form("save")="true" then

pic_url=saveimgfile(pic_url)

pic_pic=pic_url

end if

诚邀每一位朋友光临我们的网站。我们诚挚地希望您在此找到所需的一切，并在过程中感受到我们的热情和关怀。欢迎您点击我们的链接，访问我们为您精心打造的网站。在此，我们特别推荐一种便捷的方法供您使用，即调用图片的方式。不论您是在浏览文章还是寻找特定的图片资源，我们都建议您采用这种方式。它不仅能让您轻松找到所需内容，还能为您带来更加流畅、丰富的阅读体验。

对于图片的调用方法，我们建议您采用类似于“举一返回”的方式。只需轻轻一点，即可轻松加载您需要的图片。无论是浏览文章时遇到的相关配图，还是您自己上传的图片资源，都可以采用这种方式进行调用。我们深信这种简单便捷的操作方式将极大地提高您的使用体验。这种方法还可以帮助您更高效地管理您的图片资源，使您的生活更加轻松愉悦。

在此，我们提醒您关注我们的网站地址：

我们再次强调，不论您在何时何地，只要点击我们的，即可轻松访问我们的网站。我们的网站将始终为您提供、最全面的信息和资源。我们也期待着与您共同分享更多的精彩内容。让我们携手共进，共创美好未来！

在这里，我们特别感谢每一位关注和支持我们的朋友。您的支持和信任是我们前进的动力。我们将不断努力，为您提供更加优质的服务和体验。再次感谢您光临我们的网站！请放心使用我们的图片调用方法，并享受由此带来的便捷和愉悦体验吧！