在ASP中快速获取远程文件大小技巧

<%pjM中国设计秀
'-----------------------------------------------------------pjM中国设计秀
'功能：获取远程文件大小pjM中国设计秀
'参数：url 远程文件地址pjM中国设计秀
'返回：远程文件大小(单位：字节)pjM中国设计秀
'-----------------------------------------------------------pjM中国设计秀
Function getRemoteFileSize(url)pjM中国设计秀
    Dim xmlHTTPpjM中国设计秀
    Set xmlhttp = Server.CreateObject("MSXML2.XMLHTTP")pjM中国设计秀
    xmlHTTP.open "get", url, falsepjM中国设计秀
    '下一句非常关键，否则要预加载全部的文件信息后才返回header头信息pjM中国设计秀
    xmlHTTP.setRequestHeader "range", "bytes=-1"pjM中国设计秀
    xmlHTTP.send()pjM中国设计秀
    getRemoteFileSize = Split(xmlHTTP.GetResponseHeader("Content-Range"),"/")(1)pjM中国设计秀
    Set xmlHTTP = NothingpjM中国设计秀
End FunctionpjM中国设计秀

Response.Write(getRemoteFileSize("http://js.tongji.cn.yahoo.com/i.gif"))pjM中国设计秀
%>pjM中国设计秀