'函数作用:获取文件大小
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