'-----------------------------------------------------------
'功能：获取远程文件大小
'参数：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://www.one0769.cn/images/logo.png"))
上一篇：不用防火墙自动对付CC攻击
