asp快速取得远程http文件大小_ASP教程_编程技术--HTML5中文学习网

asp快速取得远程http文件大小_ASP教程_编程技术

2013-12-19 13:02:35 [小大] 已经帮助：人解决问题

以下是引用片段：
<%
Dim url,aSize
Url   = "http://www.alixixi.com/download/xml.rar"
aSize = getRemoteFileSize(Url)
Response.Write Url & "<hr>" & aSize(0) & "<hr>" & aSize(1)
’---------------------------------------------------
’功能: ASP获取远程文件大小
’参数: Url 目标地址
’返回: 返回数组 0:文件字节大小 1:格式化的文件大小
’---------------------------------------------------
Function getRemoteFileSize(Url)
    Dim obj,a(1),r
    Set obj = CreateObject("MSXML2.XMLHTTP")
    obj.Open "GET",url, False
    obj.setRequestHeader "Range","bytes=-1"
    obj.send
    r = Split(obj.GetResponseHeader("Content-Range") & "/0","/")
    Set Obj = Nothing
    a(0) = CLng(r(1))
    a(1) = a(0) / 1024
    If a(1) > 1024 Then
        a(1) = Round(a(1) / 1024,2) & "MB"
    Else
        a(1) = Round(a(1),2) & "KB"
    End If
    getRemoteFileSize = a
End Function
%>

（责任编辑：）