<%
'------------------------------------------------- ----------
'功能：取得遠端檔案大小
'參數：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(" %>