asp快速取得远程http文件大小

作者:网络 来源:佚名 更新时间:2009-01-30 20:16:14 点击:

以下是引用片段:
<%
dim url,asize
url   = "http://www.html.org.cn/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
%>