adminfso.asp

系统功能说明： 1 本书库系统专为以文字为主的站点设计

<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="chk.asp"-->

<br><br><br><br>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#F4F6FC" width="100%">
    <tr>
      <td class=td2 width="100%" colspan="2" bgcolor="#F4F6FC" height="32">&nbsp;空间信息：</td>
    </tr>
    <tr>
      <td width="30%" class=td2>
      <p style="margin: 5">服务器时间：</td>
      <td width="70%">　<%=now%></td>
    </tr>
    <tr>
      <td class=td2>
      <p style="margin: 5">IIS 版本：</td>
      <td>　<%=Request.ServerVariables("SERVER_SOFTWARE")%></td>
    </tr>
    <tr>
      <td class=td2>
      <p style="margin: 5">脚本引擎版本：</td>
      <td>　<%=ScriptEngine&":"&ScriptEngineMajorVersion&"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion%></td>
    </tr>
     <tr>
      <td class=td2>
      <p style="margin: 5">数据库的版本：</td>
      <td>　<%=conn.version%></td>
    </tr>
        <tr>
      <td class=td2>
      <p style="margin: 5">session过期：</td>
      <td>　<%=session.Timeout%> 分</td>
    </tr>    <tr>
      <td class=td2>
      <p style="margin: 5">占用空间：</td>
      <td>　<% Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath("/"))
response.write formatnumber(f.size/1048576,2,-1)&"&nbsp;MB"
set f=nothing
set fs=nothing%></td>
    </tr>
    <tr>  <td class=td2>
      <p style="margin: 5">书籍总数：</td>
      <td>　<%
	on error resume next  '找不到站点资料时忽略错误
sql="select * from book  order by bookid desc"
set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,1,1
%>
<%=Rs.recordcount%>种
</td>
    </tr>
    <tr>  <td class=td2>
      <p style="margin: 5">文章总数：</td>
      <td>　<%
	on error resume next  '找不到站点资料时忽略错误
sql1="select * from read order by id desc"
set Rs1 = Server.CreateObject("ADODB.Recordset")
Rs1.open sql1,conn,1,1
%>
<%=Rs1.recordcount%>篇
</td>
    </tr>
    <tr>
      <td class=td2 colspan="2" bgcolor="#F4F6FC" height="25">
      　</td>
    </tr>
  </table>