如何获得已经上传到服务器的文件大小
我上传了文件到服务器上,
地址为 <%=rs( "New_Source ")%>  
我如何获得该文件大小??

最好贴出代码

------解决方案--------------------
Visual Basic Scripting Edition 语言参考

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

Size 属性
对于文件，返回指定文件的字节数；对于文件夹，返回该文件夹中所有文件和子文件夹的字节数。

object.Size

object 应为 File 或 Folder 对象的名称。

说明
以下代码举例说明如何使用 Folder 对象的 Size 属性：

Function ShowFolderSize(filespec)
Dim fso, f, s
Set fso = CreateObject( "Scripting.FileSystemObject ")
Set f = fso.GetFolder(filespec)
s = UCase(f.Name) & " 大小为 " & f.size & " 字节。 "
ShowFolderSize = s
End Function

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

我给你写出访问文件的大小函数
Function ShowFileSize(filespec)
Dim fso, f, s
Set fso = CreateObject( "Scripting.FileSystemObject ")
Set f = fso.GetFile(filespec)
s = UCase(f.Name) & " 大小为 " & f.size & " 字节。 "
ShowFolderSize = s
End Function

------解决方案--------------------
set fso=CreateObject( "Scripting.FileSystemObject ")
set file=fso.getfile(server.mappathrs( "New_Source ")))
filesize=file.size
大概就是这样的。
------解决方案--------------------
可以试试 XMLHTTP HEADER
------解决方案--------------------
同 basanovic(巴萨诺维奇)
------解决方案--------------------
我少了个括号，楼主记得加上
------解决方案--------------------
Microsoft VBScript 编译器错误 错误 '800a0401 '

语句未结束

/test/DownLoad.asp，行 221

set fso=CreateObject( "Scripting.FileSystemObject "))

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

多了个括号都没有看出来？
------解决方案--------------------
len(***)
------解决方案--------------------
注意路径要正确。
函数都给你写出来了，你直接用就是了，搞得这么麻烦。再给你写一遍：

Function ShowFileSize(filespec)
Dim fso, f
Set fso = CreateObject( "Scripting.FileSystemObject ")
Set f = fso.GetFile(filespec)
ShowFolderSize = f.size
End Function

一定要注意路径正确。