脚本运行时库   

Size 属性
请参阅
Attributes 属性 | DateCreated 属性 | DateLastAccessed 属性 | DateLastModified 属性 | Drive 属性 | Files 属性 | IsRootFolder 属性 | Name 属性 | ParentFolder 属性 | Path 属性 | ShortName 属性 | ShortPath 属性 | SubFolders 属性 | Type 属性

应用于：File 对象 | Folder 对象
语言
JScript

VBScript

显示所有语言
对于文件，以字节为单位返回指定文件的大小。对于文件夹，以字节为单位返回文件夹中包含的所有文件和子文件夹的大小。

object.Size
object 应为 File 或 Folder 对象。

说明
下面的代码通过一个 Folder 对象说明了 Size 属性的用法：

[JScript]
function ShowFolderSize(filespec)
{
   var fso, f, s;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFolder(filespec);
   s = f.Name + " uses " + f.size + " bytes.";
   return(s);
}
[VBScript]
Function ShowFolderSize(filespec)
   Dim fso, f, s
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(filespec)
   s = UCase(f.Name) & " uses " & f.size & " bytes."
   ShowFolderSize = s
End Function
请参阅
Attributes 属性 | DateCreated 属性 | DateLastAccessed 属性 | DateLastModified 属性 | Drive 属性 | Files 属性 | IsRootFolder 属性 | Name 属性 | ParentFolder 属性 | Path 属性 | ShortName 属性 | ShortPath 属性 | SubFolders 属性 | Type 属性

应用于：File 对象 | Folder 对象



--------------------------------------------------------------------------------

© 2001 Microsoft Corporation. 保留所有权利。

用文件对象啊！
然后用它的方法就行

fso

什么文件大小?就是有多少兆?用LenB语句呀

<%
Function GetFileSize(strFile)
' =================================================
'| 功能：获取文件的大小，单位是KB
'| 输入：strFile     字符串     文件的相对路径
'| 输出：整数  文件的大小
'| 通用函数，可用于任何页面
'| 作者：张偶
'| 日期      备注
'| -----------------------------
'| 04-1-8
' =================================================
   dim strFilePath,fo,objFile
   strFilePath=Server.mappath(strFile)
   set fo=Server.CreateObject("Scripting.FileSystemObject")

   if strFile<>"" and fo.FileExists(strFilePath) then
    set objFile=fo.GetFile(strFilePath)
    GetFileSize=objFile.Size\1000
   else
    GetFileSize=0
  end if
End Function
%>

我也是不知道,帮你顶.
同时学习中------

Function GetFileSize()

   dim strFilePath,fo,objFile
   xx = request.servervariables("path_info")
   YY = split(xx,"/")
   For i =0 to Ubound(YY)
    strFile = YY(i)
   Next

   strFilePath=Server.mappath(strFile)
   set fo=Server.CreateObject("Scripting.FileSystemObject")

   if strFile<>"" and fo.FileExists(strFilePath) then
    set objFile=fo.GetFile(strFilePath)
    GetFileSize=objFile.Size
   else
    GetFileSize=0
  end if

End Function

使用FSO

楼主不看书啊！
稍微看书，看到ASP文件管理就知道了