<!--#include file="sdcms_check.asp"-->
<%
set sdcms=new Sdcms_Admin
sdcms.Check_admin
set sdcms=nothing
sdcms_head
Function get_passnum(t0)
select case t0
	   case "1":t1="sd_info"
	   case "2":t1="sd_comment"
	   case "3":t1="sd_link"
	   case else:exit function
End select
 get_passnum=conn.execute("select count(id) from "&t1&" where ispass=0")(0)
End Function
%>
<div class="sdcms_notice"><!--<span class="right"><img src="images/close.gif" hspace="6" vspace="6"></span>--><span>官方通知：</span><marquee direction="left" scrollamount="2" onMouseOut="start()" onMouseOver="stop()" height="22" width="86%"><div id="sdcms_notice">载入中</div></marquee></div>
<br>
<ul id="sdcms_sub_title">
	<li class="sub"><a href="javascript:void(0)" onClick="selectTag('tagContent0',this)">信息统计</a></li><li class="unsub"><a href="javascript:void(0)" onClick="selectTag('tagContent1',this)">系统探针</a></li>
</ul>
<div id="sdcms_right_b">
 <script></script>
  <table border="0" align="center" cellpadding="3" cellspacing="1" class="table_b" id="tagContent0">
    <tr>
      <td width="50" class="title_bg">项目</td>
      <td class="title_bg">公告</td>
      <td class="title_bg">信息</td>
      <td class="title_bg">评论</td>
      <td class="title_bg">连接</td>
    </tr>
   
    <tr>
      
      <td align="center" class="tdbg">数量 </td>
	  <%set rs=conn.execute("select notice_num,info_num,comment_num,link_num from sd_count where id=1"):for i=0 to 3%>
      <td align="center" class="tdbg"><%=rs(i)%><%if i>0 then%> <span>(待审：<%=get_passnum(i)%>)</span><%end if%></td>
	 <%next%>
    </tr>
	<tr><td colspan="5" class="tdbg"><input onClick="location.href='?action=counts'"  type="button" class="bnt" value="重新统计">　<span id="counts">如果发现统计不准确，可以重新统计数据</span>
	<%select case action
case "counts":all_count
end select

sub all_count
allnotice=conn.execute("select count(id) from sd_notice ")(0)
allinfo=conn.execute("select count(id) from sd_info ")(0)
allcomment=conn.execute("select count(id) from sd_comment ")(0)
alllink=conn.execute("select count(id) from sd_link ")(0)
sql="update sd_count set notice_num="&allnotice&",info_num="&allinfo&",comment_num="&allcomment&",link_num="&alllink&" where id=1"
set rs=conn.execute(sql)
echo "　<script>counts.innerHTML=""统计成功"";</script>"
echo "<script>setTimeout(""document.getElementById('counts').style.display = 'none'"",""5000"");</script>"
end sub%>
	</td></tr>
  </table>
 
  <table border="0" align="center" cellpadding="3" cellspacing="1" class="table_b dis" id="tagContent1">
    <tr>
      <td class="title_bg">服务器类型</td>
      <td class="title_bg">物理路径</td>
      <td class="title_bg">脚本引擎</td>
      <td class="title_bg">FSO 读写</td>
      <td class="title_bg">Jmail组件</td>
    </tr>
	<tr>
      <td align="center" class="tdbg"><%=Request.ServerVariables("OS")%></td>
      <td align="center" class="tdbg"><%=request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
      <td align="center" class="tdbg"><%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion%></td>
      <td align="center" class="tdbg"><%If Not IsObjInstalled("Scripting.FileSystemObject") Then%>×<%else%>√<%end if%></td>
      <td align="center" class="tdbg"><%If Not IsObjInstalled("JMail.SMTPMail") Then%>×<%else%>√<%end if%></td>
    </tr>
  </table>
 </div>
<br>
<ul id="sdcms_sub_title">
	<li class="sub">版权信息</li>
</ul>
<div id="sdcms_right_b">

  <table border="0" align="center" cellpadding="3" cellspacing="1" class="table_b">
    
   
    <tr onmouseover=this.bgColor='#EBFFDC'; onmouseout=this.bgColor='#ffffff';  bgcolor='#ffffff'>
      <td width="150" height="30" align="center">程序名称：</td>
      <td>SEO CMS网站信息管理系统</td>
    </tr>
    
    <tr onmouseover=this.bgColor='#EBFFDC'; onmouseout=this.bgColor='#ffffff';  bgcolor='#ffffff'>
      <td height="30" align="center">官方网站：</td>
      <td><a href="http://www.sseoo.net" target="_blank">www.sseoo.net</a></td>
    </tr>
    <tr onmouseover=this.bgColor='#EBFFDC'; onmouseout=this.bgColor='#ffffff';  bgcolor='#ffffff'>
      <td height="30" align="center">当前版本：</td>
      <td><%=sdcms_version%></td>
    </tr>
    <tr onmouseover=this.bgColor='#EBFFDC'; onmouseout=this.bgColor='#ffffff';  bgcolor='#ffffff'>
      <td height="30" align="center">版权所有：</td>
      <td><a href="http://www.sseoo.net" target="_blank">搜索互联网站开发部</a></td>
    </tr>
  </table>
</div>

</body>
</html>
