ASP快速获取远程文件大小

<%

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

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

'参数：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"))

%>