ASP获取远程文件大小

完整的代码如下：

<%
Dim url,aSize
Url = "" 
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
%>