asp快速取得远程http文件大小
日期：2010-02-08 浏览次数：20953 次
| 以下是引用片段： <% Dim url,aSize Url = "http://www.aiyiweb.com/download/xml.rar" aSize = getRemoteFileSize(Url) Response.Write Url & "<hr>" & aSize(0) & "<hr>" & aSize(1) ’--------------------------------------------------- ’功能: ASP获取远程文件大小 ’参数: Url 目标地址 ’返回: 返回数组 0:文件字节大小 1:格式化的文件大小 ’--------------------------------------------------- Function getRemoteFileSize(Url) Dim obj,a(1),r Set obj = CreateObject("MSXML2.XMLHTTP") obj.Open "GET",url, False obj.setRequestHeader "Range","bytes=-1" obj.send r = Split(obj.GetResponseHeader("Content-Range") & "/0","/") Set Obj = Nothing a(0) = CLng(r(1)) a(1) = a(0) / 1024 If a(1) > 1024 Then a(1) = Round(a(1) / 1024,2) & "MB" Else a(1) = Round(a(1),2) & "KB" End If getRemoteFileSize = a End Function %> |
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
