Access数据库，使用FSO组件：
'文件字节大小
Function GetFileSize(FileName)
Dim Fso,drvpath,d,size,showsize
set Fso = Server.Createobject("Scripting.FileSystemObject")
drvpath = Server.mappath(FileName)
set d = Fso.getfile(drvpath)
size = d.size
showsize = size & " Byte"
if size > 1024 then
size = (Size/1024)
showsize = size & " KB"
end if
if size>1024 then
size = (size/1024)
showsize = Formatnumber(size,2) & " MB"
end if
if size > 1024 then
size = (size/1024)
showsize = formatnumber(size,2) & " GB"
end if
set Fso = Nothing
GetFileSize = showsize
End Function
'strAccessDBName为数据库路径
response.write "Access数据库占用空间：" & GetFileSize(strAccessDBName)
Sql Server数据库，使用SP_Spaceused存储过程：
On error Resume Next
Set rso = Obj.Execute("Exec SP_Spaceused")
If Err <> 0 Then
Err.Clear
Response.Write "未 知"
Else
Response.Write rso(1)
End If
rso.close : Set rso = Nothing
你现在的位置：