<!--#include file="fy.Function.asp"-->
<!doctype html>
<html>
<head>
<meta charset="gb2312">
<title>right</title>
<link rel="stylesheet" type="text/css" href="css/base.css">
<link rel="stylesheet" type="text/css" href="css/content.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 class="rightpage">
<table cellspacing="0" cellpadding="0" class="right_table">
  <thead>
    <tr><th colspan="2">系统信息统计</th></tr>
  </thead>
  <tbody>
    <tr>
      <td>服务器类型：(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
      <td>脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
    </tr>
    <tr>
      <td>站点物理路径：<%=Request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
      <td>ADO无组件上传：</td>
    </tr>
    <tr>
      <td>FSO文本读写：<span class="t_success"><%If Not IsObjInstalled(theInstalledObjects(1)) Then%>
      ×
        <%else%>
        <b>√</b>
        <%end if%></span></td>
      <td>数据库使用： <%If Not IsObjInstalled(theInstalledObjects(2)) Then%>
        <font color="#FF0066"><b>×</b></font>
        <%else%>
        <b style="color:blue">
          <%If DataBaseType="mssql" Then%>
          MS SQL
          <%else%>
          ACCESS
          <%end if%>
        </b>
        <%end if%></td>
    </tr>
    <tr>
      <td>Jmail组件支持：<span class="t_warning"><%If Not IsObjInstalled(theInstalledObjects(3)) Then%>
        <font color="#FF0066"><b>×</b></font>
        <%else%>
        <b>√</b>
        <%end if%></span></td>
      <td>CDONTS组件支持：<span class="t_warning"> <%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>
 <script  charset='gb2312'  src="check.asp" language="JavaScript" type="text/javascript"></script>
 <style type="text/css">
<!--
.tips {
	height: 30px;
	line-height:30px;
	background-color: #fffdaa;
	border:1px solid #F38E05;
	width: 100%;
	padding: 0px 10px;
	color:red;
	font-size:12px;
	margin-bottom:5px;

}
-->
</style><table cellspacing="0" cellpadding="0" class="right_table">
  <thead>
    <tr><th>论坛新帖</th></tr>
  </thead>
  <tbody>
    <tr class="unhover">
        <td>
        	<ul class="bbslist"  id="servicebbs"><img src="Images/loading.gif" />
         </ul>
         </td>
   	</tr>
  </tbody>
</table>

<table cellspacing="0" cellpadding="0" class="right_table">
  <thead>
    <tr><th colspan="2">FYCMS网站管理系统 我们的目标是让您使用更方便!</th></tr>
  </thead>
  <tbody>

	<tr>
      <th>当前版本</th>
      <td>
      	FYCMS <%= fycms.Version %> 
      </td>
    </tr>


    <tr>
      <th>未审核信息</th>
      <td>
	  
	    <% Dim MX_Sys,ii,rs
		MX_Sys=fycms.Act_MX_Sys_Arr()
		If IsArray(MX_Sys) Then
			For iI=0 To Ubound(MX_Sys,2)
  				echo " <span class=""t_info""><a class='orange' href='fy_Mode/fy.Manage.asp?ModeID="&MX_Sys(0,Ii)&"&Action=ListNoAccept'>"&MX_Sys(1,Ii)&"模型待审信息(<font color=red>"&fycms.actexe("select count(id) from "&MX_Sys(2,Ii)&"  where isAccept<>0 ")(0)&"</font>)</a> &nbsp;</span>"
 			next
		end if 

  				echo "<span class=""t_info""><a class='orange' href='Sys_fy/Book/Index.asp'>留言信息(<font color=red>"&fycms.actexe("select count(id) from book_fy")(0)&"</font>)</a></span>"

 %>
	  
	  
	  
	  
	 <A class="ACT_F"  href="include/fy.Map.asp"   >生成google地图</A>
	模版定制:<a target="_blank" href="http://wpa.qq.com/msgrd?v=3&uin=1033098230&site=qq&menu=yes"><img border="0" src="http://wpa.qq.com/pa?p=2:1033098230:41" alt="模版定制" title="模版定制"></a>   fycms交流群:9712667 </td>
    </tr>
	<tr>
      <th>版权声明</th>
      <td>
      	<ol>
      	 	<li>1、本软件为免费软件,可以免费使用;</li>
        	<li>2、用户自由选择是否使用,在使用中出现任何问题和由此造成的一切损失作者将不承担任何责任;</li>
        	<li>3、您可以对本系统进行修改和美化，但必须保留完整的版权信息; 　</li>
        	<li>4、本软件受中华人民共和国《著作权法》《计算机软件保护条例》等相关法律、法规保护，作者保留一切权利。</li>
        </ol>
      </td>
    </tr>
  </tbody>
</table>

<table cellspacing="0" cellpadding="0" class="right_table">
  <thead>
    <tr><th colspan="4">FYCMS网站管理系统 我们的目标是让您使用更方便!</th></tr>
  </thead>
  <tbody>
    <tr>
      <th>产品开发</th>
      <td>安川网络（合肥）</td>
      <th>定制开发</th>
      <td>QQ：5382862 </td>
    </tr>
	<tr>
      <th>总机电话</th>
      <td>TEL：13721031387 陶先生</td>
      <th>产品咨询</th>
      <td>QQ：5382862</td>
    </tr>
    <tr>
      <th>官方网站</th>
      <td><a href="http://www.fycms.com" target="_blank">www.fycms.com</a></td>
      <th>帮助中心</th>
      <td>论坛：<a href="http://bbs.fycms.com" target="_blank">bbs.fycms.com</a></td>
    </tr>
    <tr>
      <td colspan="4" class="tc">2007-2013 安川网络 Inc. All Rights Reserved</td></tr>
  </tbody>
</table>

<div id="ShowPack" style="display:none">
<script  charset='gb2312'  src="http://www.fycms.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>


<div id="Showbbs" style="display:none">
<script  charset='gb2312'  src="http://www.fycms.com/sys/bbs2.asp" language="JavaScript" type="text/javascript"></script>
</div>
<script language="JavaScript" type="text/javascript">
document.getElementById("servicebbs").innerHTML=document.getElementById("Showbbs").innerHTML;
</script>


</body>
</html>
