-------
    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
%>

上一页  [1] [2] 

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

	Web www.51ec.org

上一篇信息学院： 在asp文件中访问flash详细信息

下一篇信息学院： VBS、ASP代码语法加亮显示的类