如何克服契可尼效应:用asp 与access写的网站,有没有查看数据库大小的代码?

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/29 19:29:36
如题,题目如果有,具体应该怎样写?谢谢

<%
Dim objFSO,objFolder
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set objFolder=objFSO.GetFile(Server.MapPath("/db.mdb"))'文件相对路径
Response.Write "X文件的大小为:"&objFolder.Size
Set objFolder=Nothing
Set objFSO=nothing
%>