远程获取内容，并将内容存在本地电脑上，包括任何文件！利用xmlhttp和adodb.stream,酷！绝对原创！

<%
————————————————————————
——————-无垠网域：http://www.5inet.net/ ———————
——————-作者：嘻哈呵嘿 ,webmaster@5inet.net —————–
———-远程获取内容，并将内容存在本地电脑上，包括任何文件！———-
—————利用xmlhttp和adodb.stream,酷！绝对原创！—————–
on error resume next
set the content type to the specific type that you are sending.
response.contenttype = "image/jpeg"
——————————-定义输出格式—————————–

path=request.querystring("p")
spath = path
if left(lcase(path),7) <> "http://" then
————-如果前面没有http就是本地文件，交给localfile处理————
    localfile(path)
else
——————–否则为远程文件，交给remotefile处理——————
    remotefile(path)
end if
response.write err.description

sub localfile(path)
——————-如果为本地文件则简单的跳转到该页面——————-
    response.redirect path
end sub

sub remotefile(spath)
————————-处理远程文件函数——————————
    filename = getfilename(spath)
    ————-getfilename为把地址转换为合格的文件名过程————-
    filename = server.mappath("/uploadfile/cache/" & filename)
    set objfso = server.createobject("scripting.filesystemobject")
    response.write filename
    if objfso.fileexists(filename) then
    ————–检查文件是否是已经访问过,如是，则简单跳转————
        response.redirect "/uploadfile/cache/" & getfilename(path)
    else
    —————-否则的话就先用getbody函数读取———————-
    response.write path
    t = getbody(path)
    —————–用二进制方法写到浏览器上————————–
    response.binarywrite t
    response.flush
    —————–输出缓冲——————————————
    savefile t,getfilename(path)
    ——————将文件内容缓存到本地路径，以待下次访问———–
    end if    
    set objfso = nothing
end sub

function getbody(url)
———————–本函数为远程获取内容的函数———————
on error resume next
    response.write url
    set retrieval = createobject("microsoft.xmlhttp")
    ———————-建立xmlhttp对象—————————–
    with retrieval
        .open "get", url, false, "", ""
        ——————用get，异步的方法发送———————–
        .send
        getbody = .responsetext
        getbody = .responsebody
        ——————函数返回获取的内容————————–
    end with
    set retrieval = nothing
response.write err.description
end function

function getfilename(str)
————————-本函数为合格化的文件名函数——————-
    str = replace(lcase(str),"http://","")
    str = replace(lcase(str),"//","/")
    str = replace(str,"/","")
    str = replace(str,vbcrlf,"")
    getfilename = str
end function

sub savefile(str,fname)
————————-本函数为将流内容存盘的函数——————-
on error resume next
    set objstream = server.createobject("adodb.stream")
    ————–建立adodb.stream对象，必须要ado 2.5以上版本———
    objstream.type = adtypebinary
    ————-以二进制模式打开————————————-
    objstream.open
    objstream.write str
    ——————–将字符串内容写入缓冲————————–
    response.write fname
    objstream.savetofile "c:\inetpub\myweb\uploadfile\cache\" & fname,adsavecreateoverwrite
    ——————–将缓冲的内容写入文件————————–
    response.binarywrite objstream.read
    objstream.close()
    set objstream = nothing
    ———————–关闭对象，释放资源————————-
response.write err.description
end sub
%>