拍拍尘土

'==================================================
'过程名：showsize
'获取文件大小
' filesize = GetFileSize("123.rar")
'==================================================
Function GetFileSize(filename)
         FPath=server.mappath(filename) '本目录下
         set fso=server.CreateObject("scripting._fso")
         If fso.fileExists(FPath) Then
                Set f = fso.GetFile(FPath)
                filetype=f.type
                filesize=f.size
                adddate=f.DateCreated
                GetFileSize = filesize
         else
                'Response.Write"文件不存在!"
                GetFileSize = 0
         end if
End Function

<%
Function showFileInfo(filename)
         FPath=server.mappath(filename) '本目录下
         set fso=server.CreateObject("scripting.filesystemobject")
         If fso.fileExists(FPath) Then
                Set f = fso.GetFile(FPath)
                filetype=f.type
                filesize=f.size
                adddate=f.DateCreated
                Select Case true
                Case filesize<1024
                fsize=filesize&" B"
                Case filesize<1048576
                fsize=Round((filesize/1024),2)&" KB"
                Case filesize<1073741824
                fsize=Round((filesize/1024/1024),2)&" MB"
                Case else
                fsize=Round((filesize/1024/1024/1024),2)&" GB"
                End Select
                Response.Write "文件大小："&fsize&"，文件类型："&filetype&"，创建时间："&adddate
         else
                Response.Write"文件不存在!"
         end if
End Function
%>
<%Call showsize("123.rar")%>