西安做网站ASP获取本地或者远程文件的大小

2012-06-264959

一、获取远程文件的大小,方法如下:
<%  
Dim url,aSize  
Url   = "http://www.ccap168.cn/d/file/madia/flash/2011-03-10/f05628e6420863714d132fd7b1806b8e.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 
%> 
二 是获取本地文件的大小方法如下:
<%
'asp获取文件大小
'函数作用:获取文件大小
Function getFileSize(FileName)
    '判断文件名是不是为空
 if FileName="" then
  getFileSize="0KB"
  Exit Function
 end if
 Dim oFso,oFile,sFile
 sFile=FileName
 Set oFso=Server.CreateObject("Scripting.FileSystemObject")
  '判断获取文件大小的文件是否存在
 If oFso.FileExists(Server.MapPath(sFile)) Then 
 Set oFile=oFso.GetFile(Server.MapPath(sFile))
  '判断获取文件大小
 getFileSize= CStr( CDbl( FormatNumber( oFile.Size / 1024))) & "KB"
 else
     getFileSize="0KB"
  Exit Function
 end if
 Set oFile=nothing
 Set oFso=nothing
End Function
'运用函数获取文件大小
response.write getFileSize("lvmanba.gif")
%>
完毕!

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:029-89640155 18991365125

公司地址:西安市雁塔区融鑫路丽湾蓝岛1幢3单元16层31605号(近期装修)

临时地址:西安市雁塔区朱雀大街紫郡长安D9

Sitemap 网站地图 手机版

办公电话:029-89640155

服务热线:18991365125

客服信箱:vip@dianmo.cc

3363271342067

西安点墨网络科技有限公司

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1


您可以点击上面的QQ号码直接与客服沟通