·您现在的位置： 云翼网络 >> 文章中心 >> 网站建设 >> 网站建设开发 >> ASP网站建设 >> ASP快速获取远程文件大小

【如有意向点此提交需求】关于我们

ASP快速获取远程文件大小

作者：佚名      ASP网站建设编辑：admin      更新时间：2022-07-23

<%
'-----------------------------------------------------------
'功能：获取远程文件大小
'参数：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"))
%>