ASP快速获取远程文件大小的方法

2010-08-28 10:54:29来源:西部e网作者:

这是一段用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

关键词:ASP

赞助商链接: