ASP快速获取远程文件大小

<%
'-----------------------------------------------------------
'功能：获取远程文件大小
'参数：url 远程文件地址
'返回：远程文件大小(单位：字节)
'-----------------------------------------------------------
Function getRemoteFileSize(url)
    Dim xmlHTTP
    Set xmlHTTP = Se***r.CreateObject("MS***2.XMLHTTP")
    xm***TP.open "get", url, false
    '下一句非常关键，否则要预加载全部的文件信息后才返回header头信息
    xm***TP.setRequestHeader "range", "bytes=-1"
    xm***TP.send()
    getRemoteFileSize = Split(xm***TP.GetResponseHeader("Content-Range"),"/")(1)
    Set xmlHTTP = Nothing
End Function

Re***nse.Write(getRemoteFileSize("%>