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"))
%>