ASP快速获取远程文件大小的方法

这是一段用ASP程序获取远程文件大小的函数， 看起来很简单， icech推荐给大家学习一下：

<%

'-----------------------------------------------------------

'功能：获取远程文件大小

'参数：url 远程文件地址

'返回：远程文件大小(单位：字节)

'-----------------------------------------------------------

Function getRemoteFileSize(url)

    Dim xmlHTTP

    Set xmlHTTP = Server.CreateObject("MSXML2.XMLHTTP")

    xmlHTTP.open "get", url, false

    '下一句非常关键， 否则要预加载全部的文件信息后才返回header头信息

    xmlHTTP.setRequestHeader "range", "bytes=-1"

    xmlHTTP.send()

    getRemoteFileSize = Split(xmlHTTP.GetResponseHeader("Content-Range"),"/")(1)

    Set xmlHTTP = Nothing

End Function

Response.Write(getRemoteFileSize("http://js.tongji.cn.yahoo.com/i.gif"))

%>