ASP

本类阅读TOP10

·asp常用数据库连接方法和技巧
·无组件生成BMP验证码
·一些常用的辅助代码 (网络收藏)
·JavaScript实现的数据表格:冻结列、调整列宽和客户端排序
·VisualStudio.NET_2003及其 MSDN 下载地址
·ASP模拟MVC模式编程
·图片以二进制流输出到网页
·MD5加密算法 ASP版
·ASP.NET编程中的十大技巧
·改进 ASP 的字符串处理性能

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
使用XMLHttp和ADODB.Stream取得远程文件并保存到本地

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

<%
'****************************************************************************
'PageName:GetRemoteFiles.asp
'Function:Download the files to Server
'Author:xiaotian
'Last Modified at:2003-3-19
'****************************************************************************

'取得远程文件并保存到本地
Function GetRemoteFiels(RemotePath, LocalPath, FileName)
Dim strBody
Dim FilePath

    On Error Resume Next

    '取得流
 strBody = GetBody(RemotePath)
 '取得保存的文件名
 if Right(LocalPath, 1) <> "\" then LocalPath = LocalPath & "\"
 FilePath = LocalPath & GetFileName(RemotePath, FileName)
 '保存文件
 if SaveToFile(strBody, FilePath) = true and err.Number = 0 then
     GetRemoteFiles = true
 else
     GetRemoteFiles = false
 end if

End Function

'远程获取内容
Function GetBody(url)
Dim Retrieval
    '建立XMLHTTP对象
    Set Retrieval = CreateObject("Microsoft.XMLHTTP")
    With Retrieval
        .Open "Get", url, False, "", ""
        .Send
        GetBody = .ResponseBody
    End With
    Set Retrieval = Nothing
End Function

'重组文件名
Function GetFileName(RemotePath, FileName)
Dim arrTmp
Dim strFileExt
    arrTmp = Split(RemotePath, ".")
 strFileExt = arrTmp(UBound(arrTmp))
    GetFileName = FileName & "." & strFileExt
End Function

'将流内容保存为文件
Function SaveToFile(Stream, FilePath)
Dim objStream

    On Error Resume Next

    '建立ADODB.Stream对象,必须要ADO 2.5以上版本
    Set objStream = Server.CreateObject("ADODB.Stream")
    objStream.Type = 1  '以二进制模式打开
    objStream.Open
    objstream.write Stream
    objstream.SaveToFile FilePath, 2
    objstream.Close()
    '关闭对象,释放资源
    Set objstream = Nothing

 if err.Number <> 0 then
     SaveToFile = false
 else
     SaveToFile = true
 end if
End Function
%>




相关文章

相关软件