<!--#include file="ACT.Function.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>ActCMS网站内容管理系统</title>
<link href="Images/css1/css.css" rel="stylesheet" type="text/css">
</head>
 <% Dim theInstalledObjects(4)
theInstalledObjects(0) = "Gatherer.VBProcess"
theInstalledObjects(1) = "Scripting.FileSystemObject"
theInstalledObjects(2) = "adodb.connection"

theInstalledObjects(3) = "JMail.SMTPMail"
theInstalledObjects(4) = "CDONTS.NewMail"
Function IsObjInstalled(ByVal strClassString)
	Dim xTestObj,ClsString
	On Error Resume Next
	IsObjInstalled = False
	ClsString = strClassString
	Err = 0
	Set xTestObj = Server.CreateObject(ClsString)
	If Err = 0 Then IsObjInstalled = True
	If Err = -2147352567 Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
	Exit Function
End Function %>


<body>
<table class="table" cellspacing="1" cellpadding="2" width="100%" align="center" 
border="0">
  <tbody>
    <tr>
      <th class="bg_tr" align="left" colspan="2" height="25">系统信息统计
     </th>
    </tr>
    <tr>
      <td width="50%" height="23">服务器类型：<span class="TableRow2"><%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</span></td>
      <td width="50%">脚本解释引擎：<span class="TableRow1"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></span></td>
    </tr>
    <tr>
      <td width="50%" height="23">站点物理路径：<span class="TableRow2"><%=Request.ServerVariables("APPL_PHYSICAL_PATH")%></span></td>
      <td width="50%">ADO无组件上传：</td>
    </tr>
    <tr>
      <td width="50%" height="23">FSO文本读写：<span class="TableRow2">
        <%If Not IsObjInstalled(theInstalledObjects(1)) Then%>
        <font color="#FF0066"><b>×</b></font>
        <%else%>
        <b>√</b>
        <%end if%>
      </span></td>
      <td width="50%">数据库使用：<span class="TableRow1">
        <%If Not IsObjInstalled(theInstalledObjects(2)) Then%>
        <font color="#FF0066"><b>×</b></font>
        <%else%>
        <b style="color:blue">
          <%If IsSqlDataBase = 1 Then%>
          MS SQL
          <%else%>
          ACCESS
          <%end if%>
        </b>
        <%end if%>
      </span></td>
    </tr>
    <tr>
      <td width="50%" height="23">Jmail组件支持：<span class="TableRow2">
        <%If Not IsObjInstalled(theInstalledObjects(3)) Then%>
        <font color="#FF0066"><b>×</b></font>
        <%else%>
        <b>√</b>
        <%end if%>
      </span></td>
      <td width="50%">CDONTS组件支持：<span class="TableRow1">
        <%If Not IsObjInstalled(theInstalledObjects(4)) Then%>
        <font color="#FF0066"><b>×</b></font>
        <%else%>
        <b>√</b>
        <%end if%>
      </span></td>
    </tr>
  
    <tr>
      <td  colspan="2" id="service">
        正获取官方信息，请稍候……
      </td>
    </tr>
  </tbody>
</table>
<table class="table" cellspacing="1" cellpadding="2" width="100%" align="center" 
border="0">
  <tbody>
    <tr>
      <th class="bg_tr" align="left" colspan="2" height="25">网站管理系统版本</th>
    </tr>
    <tr>
      <td width="17%" height="23">当前版本<span class="TableRow2"></span></td>
      <td width="83%"><strong>ACT网站内容管理系统 免费版 (Free Edition)<span class="TableRow1"></span></strong></td>
    </tr>
    <tr>
      <td width="17%" height="23">版权声明<span class="TableRow2"></span></td>
      <td width="83%">1、本软件为共享软件,未经书面授权，不得向任何第三方提供本软件系统; <br>        
        2、用户自由选择是否使用,在使用中出现任何问题和由此造成的一切损失作者将不承担任何责任; <br>      
        3、您可以对本系统进行修改和美化，但必须保留完整的版权信息;  　<br>
      4、本软件受中华人民共和国《著作权法》《计算机软件保护条例》等相关法律、法规保护，作者保留一切权利。</td>
    </tr>
  </tbody>
</table>
    <table class="table" cellspacing="1" cellpadding="2" width="100%" align="center"
        border="0">
        <tbody>
            <tr  height="25px">
                <td class="bg_tr" colspan="4" align=left>
                    <b>&nbsp;联系我们</b></td>
            </tr>
            <tr >
                <td height="20">
                    <div align="center">
                        产品开发</div>
                </td>
                <td height="20">
                    安川网络（合肥）</td>
                <td>
                    <div align="center">
                        定制开发</div>
                </td>
                <td>
                    QQ：5382862
                </td>
            </tr>
            <tr>
                <td width="13%" height="20">
                    <div align="center">
                        总机电话</div>
                </td>
                <td width="30%" height="20">
                   0551-</td>
                <td width="12%">
                    <div align="center">
                        产品咨询</div>
                </td>
                <td width="45%">
                    TEL：13739265040   QQ：5382862</td>
            </tr>
            <tr>
                <td width="13%" height="20">
                    <div align="center">
                        官方网站</div>
                </td>
                <td width="30%" height="20">
                    <a href="http://www.actcms.com/">www.actcms.com</a></td>
                <td width="12%">
                    <div align="center">
                        帮助中心</div>
                </td>
                <td width="45%">
                    <a href="http://help.actcms.com/" target="_blank">Help.actcms.com</a> 论坛：<a href="http://bbs.actcms.com/">bbs.actcms.com</a></td>
            </tr>
            <tr>
                <td colspan="4" height="20">
                    <div align="center">
                        &copy;  2007-2010 <a href="http://www.actcms.com">安川网络</a>  Inc. All Rights Reserved</div>
                </td>
            </tr>
        </tbody>
    </table>




<div id="ShowPack" style="display:none">
<script charset="utf-8"  src="http://www.actcms.com/sys/service.asp" language="JavaScript" type="text/javascript"></script>
&nbsp;</div>
<script language="JavaScript" type="text/javascript">
document.getElementById("service").innerHTML=document.getElementById("ShowPack").innerHTML;
</script>
</body>
</html>
