ASP获取文件大小，简单的FSO操作，写成函数更方便使用。函数是基于scripting.FilesyStemObject，返回值是数字（文字大小），参数：FileName ：文件路径及文件名。
Public Function GetFileSize(FileName)
Dim fso,drvpath,d,size,showsize
set fso=server.createobject("scripting.filesystemobject")
filepath=server.mappath(FileName)
if fso.FileExists(filepath) then
set d=fso.getfile(filepath)
size=d.size
GetFileSize=FormatSize(size)
Else
GetFileSize=FileName&"Sorry，指定文件不存在！"
End If
set fso=nothing
End Function青岛星网提示：您可将本函数复制到你的公共函数库中，比如function.asp中，在需要用的页面include，在用到的地方<%=GetFileSize("upload/qdxw.jpg")%>即可。
在线QQ：
