ASP函數擷取遠程檔案大小，可用於版本更新檢測

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("i.gif"))
%>