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

%>

原文：http://www.dlstu.cn/code/article.asp?id=1672