蓝派网(www.lan27.com)-精选网络资源,分享和交流! 文章首页站内搜索在线手册广告代码酷站欣赏万年历
您现在的位置: 蓝派网 >> 文章中心 >> 网络编程 >> ASP >> 正文

asp获取文件大小的函数

作者:佚名    文章来源:网络    更新时间:2009-1-14 21:12:05

<%
'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("aaa.gif")
%>

本文来自: 海南seo优化(www.wlue.cn) 详细出处参考:http://web.wlue.cn/html/2008514171111.html


发表评论】【打印此文】【关闭窗口】【点击数:
★好玩的休闲小游戏★