admin_right.asp

BBS源码 利用ASP的一个功能齐全的BBS论坛源码

<!--#include file="admin_check.asp"--><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%AdminHead()%>
<table width="98%" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark=#FFFFFF bgcolor="#DEF0FE">
    <tr>
      <th height="28" colspan="9" bgcolor="#4D65A4"><font color="#FFFFFF">论坛系统信息</font></th>
    </tr>
    <tr>
      <td colspan="9" align=center >
        <table width="100%" height="112"  border="1" cellpadding="3" cellspacing="1" bordercolor="#63A8ED">
          <tr>
            <td width="50%">总帖数：<font color=blue><%=BBS94KK.AllEssayNum%></font></td>
            <td width="50%">主题数：<font color=blue><%=BBS94KK.TopicNum%></font></td>
          </tr>
          <tr>
            <td>注册人数：<font color=blue><%=BBS94KK.userNum%></font></td>
            <td>最新加入：<font color=blue><%=BBS94KK.NewUser%></font></td>
          </tr>
          <tr>
            <td>创建时间：<font color=blue><%=BBS94KK.BuildDate%></font></td>
            <td>执行次数：<font color=blue><%=BBS94KK.hits%></font></td>
          </tr>
          <tr>
            <td>目前在线人数：<font color=blue><%=BBS94KK.Execute("Select Count(ID) From[KK_online]")(0)%></font></td>
            <td>最大在线人数：<font color=blue><%=BBS94KK.MaxOnlineNum%></font> (<%=BBS94KK.MaxOnlineTime%>)</td>
          </tr>
          <tr>
            <td>论坛版本：94kkbbs2005 v <%=BBS94KK.ver%> </td>
            <td>【就是快快】ASP 论坛 <font color=red>BBS.94kk.com</font> </td>
          </tr>
        </table>
      </td>
    </tr>
    <tr></table><br>
	<table width="98%" border="2" align="center" cellpadding="2" cellspacing="0" bordercolor="#999999" bordercolordark=#FFFFFF bgcolor="#E8F4EF"><tr><td width="48%"  valign="top">

		<table width='100%' border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark=#FFFFFF bgcolor="#DEF0FE">
		<tr bgcolor="#4D65A4"><th height="28" colspan="3"><font color="#FFFFFF">服务器的有关参数</font></th></tr>
    <tr>

      <td width="17%">&nbsp;服务器名：</td>
      <td width="32%">&nbsp;
          <%response.write Request.ServerVariables("SERVER_NAME")%></td>
      </tr>
    <tr>
      <td>&nbsp;服务器IP：</td>
      <td>&nbsp;
          <%response.write Request.ServerVariables("LOCAL_ADDR")%></td>
    </tr>
    <tr>
      <td>&nbsp;服务器端口：</td>
      <td>&nbsp;
          <%response.write Request.ServerVariables("SERVER_PORT")%></td>
      </tr>
    <tr>
      <td>&nbsp;服务器时间：</td>
      <td>&nbsp;
          <%response.write now%></td>
    </tr>
    <tr>
      <td>&nbsp;服务器IIS版本：</td>
      <td>&nbsp;
          <%response.write Request.ServerVariables("SERVER_SOFTWARE")%></td>
      </tr>
    <tr>
      <td>&nbsp;服务器操作系统：</td>
      <td>&nbsp;<%if Request.ServerVariables("OS")="" then
	response.write "Windows 2003"
	else
	response.write Request.ServerVariables("OS")
	end if%></td>
    </tr>
    <tr>
      <td>&nbsp;脚本超时时间：</td>
      <td>&nbsp;<%response.write Server.ScriptTimeout%>秒</td>
      </tr><tr>
      <td>&nbsp;站点物理路径：</td>
      <td>&nbsp;<%response.write request.ServerVariables("APPL_PHYSICAL_PATH")%></td></tr>
    <tr><td>&nbsp;服务器CPU数量：</td><td>&nbsp;<%response.write Request.ServerVariables("NUMBER_OF_PROCESSORS")%>个</td>
      </tr>
    <tr>
      <td>&nbsp;服务器解译引擎：</td>
      <td>&nbsp;
          <%response.write ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
    </tr>
</table>
    </td>
        <td width="52%" valign="top">		
<table width='100%' height="272" border="2" align="center" cellpadding="3" cellspacing="0" bordercolor="#999999" bordercolordark=#FFFFFF bgcolor="#DEF0FE">
  <th  width='50%' height="26" colspan=2 bgcolor="#4D65A4"><font color="#FFFFFF">组件支持有关参数</font></th>
  </tr>
  <tr>
    <td width="25%">数据库(ADO)支持：</td>
    <td width="25%">&nbsp;
        <%if object_install("adodb.connection")=false then%>
        <font color=red><b>×</b></font> （不支持）
        <% else %>
        <b>√</b> （支持）
        <% end if %></td>
  </tr>
  <tr>
    <td>&nbsp;FSO文本读写：</td>
    <td>&nbsp;
        <%if object_install("scripting.filesystemobject")=false then
	Session(BBS94KK.CacheName&"fso")="no"%>
        <font color=red><b>×</b></font> （不支持）
        <% else
	Session(BBS94KK.CacheName&"fso")="" %>
        <b>√</b> （支持）
        <% end if %></td>
  </tr>
  <tr>
    <td>&nbsp;Stream文件流：</td>
    <td>&nbsp;
        <%if object_install("Adodb.Stream")=false then%>
        <font color=red><b>×</b></font> （不支持）
        <% else %>
        <b>√</b> （支持）
        <% end if %></td>
  </tr>
  <tr>
    <td>&nbsp;Jmail组件支持：</td>
    <td>&nbsp;
        <%If object_install("JMail.SMTPMail")=false Then%>
        <font color=red><b>×</b></font> （不支持）
        <% else %>
        <b>√</b> （支持）
        <% end if %></td>
  </tr>
  <tr>
    <td>&nbsp;CDONTS组件支持：</td>
    <td>&nbsp;
        <%If object_install("CDONTS.NewMail")=false Then%>
        <font Color=red><b>×</b></font> （不支持）
        <% else %>
        <b>√</b> （支持）
        <% end if %></td>
  </tr>
        </table></td>
	</tr>
  </table>
<%AdminFooter()
function object_install(strclassstring)
  on error resume next
  object_install=false
  dim xtestobj
  err=0
  set xtestobj=server.createobject(strclassstring)
  if err=0 then object_install=true
  set xtestobj=nothing
  err=0
End function
%>