asp获取文件大小
asp教程获取文件大小 '函数作用：获取文件大小 function getfilesize(filename) '判断文件名是不是为空 if filename= then getfilesize=0kb exit function end if dim ofso,ofile,sfile sfile=filename set ofso=server.createo
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
- 上一篇：ajax asp的二级联动菜单实例
- 下一篇：二款简单实用asp分页实例
精彩图集