执行这个
exec sp_spaceused

测试代码
<%
set rs=server.CreateObject("adodb.recordset")
sqlstr="exec sp_spaceused"
rs.open sqlstr,conn,1,1

if rs.eof=false then
response.write rs(0)&rs(1)&rs(2) '返回的测试值 test25.38 MB6.34 MB
'rs(0)是数据库名称，rs(1)是数据库空间，rs(2)是可用空间
end if

rs.close
conn.close
%>


这样写也可以

<%
set rs=server.CreateObject("adodb.recordset")
sqlstr="exec sp_spaceused"
rs.open sqlstr,conn,1,1

response.write rs("database_name") '数据库名称
response.write rs("database_size") '数据库空间
response.write rs("unallocated_space") '可用空间

%>