<% 
data_path="../" 'ACC连接数据库路径，对SQL无效
numid="no"
dir="no"
 %>
<!--#include file="../conn/conn.asp"-->
<!--#include file="../inc/safe.asp"-->
 <%
iscanlogin=0
if issession=0 then
%>
<!--#include file="inc.asp"-->
<%
    if boollogin=false then
    iscanlogin=1
    end if 
 else
	 if session("globalecmaster")="" and  session("masterflag")="" then
	 iscanlogin=1
	 end if
 end if
 if iscanlogin=1 then 
%>
<script language="JavaScript" src="../js/Keyboard.js"></script>
<%
else
 set rs=Server.CreateObject("ADODB.recordset")
 sql1="select count(id) from Websen_corporation where flag=0 "
set totle=conn.execute(sql1)
totle=totle(0)
sql1="select count(id) from Websen_corporation where flag=1"
set totle1=conn.execute(sql1)
totle1=totle1(0)
sql1="select count(info_id) from Websen_Info where flag=0"
set news=conn.execute(sql1)
news=news(0)
sql1="select count(info_id) from Websen_Info where flag=1"
set olds=conn.execute(sql1)
olds=olds(0)
sql1="select count(id) from Websen_productshow where flag=0"
set o_news=conn.execute(sql1)
o_news=o_news(0)
sql1="select count(id) from Websen_productshow where flag=1"
set o_olds=conn.execute(sql1)
o_olds=o_olds(0)
sql1="select count(NewsId) from Websen_news "
set n_totle=conn.execute(sql1)
n_totle=n_totle(0)
%>
<%
	Dim theInstalledObjects(17)
    theInstalledObjects(0) = "MSWC.AdRotator"
    theInstalledObjects(1) = "MSWC.BrowserType"
    theInstalledObjects(2) = "MSWC.NextLink"
    theInstalledObjects(3) = "MSWC.Tools"
    theInstalledObjects(4) = "MSWC.Status"
    theInstalledObjects(5) = "MSWC.Counters"
    theInstalledObjects(6) = "IISSample.ContentRotator"
    theInstalledObjects(7) = "IISSample.PageCounter"
    theInstalledObjects(8) = "MSWC.PermissionChecker"
    theInstalledObjects(9) = FS
    theInstalledObjects(10) = "adodb.connection"
     theInstalledObjects(11) = "SoftArtisans.FileUp"
    theInstalledObjects(12) = "SoftArtisans.FileManager"
    theInstalledObjects(13) = "JMail.SMTPMail"
    theInstalledObjects(14) = "CDONTS.NewMail"
    theInstalledObjects(15) = "Persits.MailSender"
    theInstalledObjects(16) = "LyfUpload.UploadFile"
    theInstalledObjects(17) = "Persits.Upload.1"
   
%>
<LINK href="css/style.css" rel=stylesheet type=text/css>
<table width="100%" border="0" align=center cellpadding=3 cellspacing=1 bordercolor="#FFFFFF" bgcolor="#C4D8ED">
  <tbody>
    <tr>
      <td height=23  colspan=2 bgcolor="#FFFFFF">&nbsp;&nbsp;<font color="#135294"> <strong> 网站信息统计</strong></font></td>
    </tr>
  <td height=23  colspan=2 class="plen">&nbsp; 网站信息:待审核会员<font color=#ff0000> <%=totle%> </font>名[已审<font color=#ff0000><%=totle1%></font>名]&nbsp;&nbsp;&nbsp;待审核供求信息<font color=#ff0000> <%=news%> </font>条 [已审<font color=#ff0000><%=olds%></font>条]&nbsp;&nbsp;&nbsp;待审核产品信息<font color=#ff0000> <%=o_news%> </font>条 [已核<font color=#ff0000><%=o_olds%></font>条]</td>
  </tr>
  <tr>
    <td width="46%"  height=23  class="plon">&nbsp;&nbsp;服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
　
    <td width="54%" class="plan">当前使用版本：网胜B2B行业商务网站管理系统2008<font color="#FF0000">sp6.3</font>普及版<font color="red"><b></b></font>(
      <%if Database_type=1 then response.Write("MSSQL版") else response.Write("ACCESS版") end if%>
    )</td>
  </tr>
  <tr>
    <td width="46%" height=23 class="plon">&nbsp;&nbsp;数据库使用：
      <%If Not IsObjInstalled(theInstalledObjects(10)) Then%>
        <font color="red"><b>×</b></font>
        <%else%>
        <b>√</b>
        <%end if%></td>
    <td class="plan">&nbsp;&nbsp;WebEasyMail组件支持：
      <%If Not IsObjInstalled("easymail.MailSend") Then%>
        <font color="red"><b>×</b></font>
        <%else%>
        <b>√</b>
        <%end if%></td>
  </tr>
  <tr>
    <td width="46%" height=23 class="plon">&nbsp;&nbsp;Jmail组件支持：
      <%If Not IsObjInstalled(theInstalledObjects(13)) Then%>
        <font color="red"><b>×</b></font>
        <%else%>
        <b>√</b>
        <%end if%></td>
    <td width="54%" class="plan">&nbsp;&nbsp;CDONTS组件支持：
      <%If Not IsObjInstalled(theInstalledObjects(14)) Then%>
        <font color="red"><b>×</b></font>
        <%else%>
        <b>√</b>
        <%end if%></td>
  </tr>
  <tr>
    <td width="46%" height=23 class="plon">&nbsp;&nbsp;AspJpeg组件支持：
      <%If Not IsObjInstalled("Persits.Jpeg") Then%>
        <font color="red"><b>×</b></font>
        <%else%>
        <b>√</b>
        <%end if%>    </td>
    <td width="54%" class="plan">&nbsp;&nbsp;ASPEMAIL组件支持：
      <%If Not IsObjInstalled("Persits.MailSender") Then%>
        <font color="red"><b>×</b></font>
        <%else%>
        <b>√</b>
        <%end if%>    </td>
  </tr>
  <tr>
    <td height=25 colspan=2 class="plen">&nbsp; <A href="admin_Database.asp?Action=Backup" target="main"><font color="#FF0000">数据定期备份：</font></A>请注意做好定期数据备份，数据的定期备份可最大限度的保障您网站数据的安全 &nbsp;&nbsp; </td>
  </tr>
  <tr>
    <td height=25 colspan=2 align="right" class="plen"><a href="Admin_ServerInfo.asp">点此查看更详细的服务器信息>>></a></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#C4D8ED">
  <tr>
    <td width="46%" height="25" bgcolor="#FFFFFF">&nbsp;&nbsp; <font color="#135294"><strong><a href="http://www.websen.net" target="_blank">网胜动态新闻</a></strong></font></td>
    <td width="54%" height="25" bgcolor="#FFFFFF"><a href="http://bbs.websen.net" target="_blank"><strong><font color="#135294">网胜论坛贴子</font></strong></a></td>
  </tr>
  <tr>
    <td height="110" valign="top" class="forumRow"><iframe frameborder=0 id=frmright name=main scrolling=no src="http://websen.net/Html/wangsheng/" height="110" width="100%"></iframe></td>
    <td height="110" valign="top" class="forumRow"><script language="JavaScript" src="http://bbs.websen.net/api/javascript.php?key=threads_rX6"></script></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<table width="100%" border="0" align=center cellpadding="3" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#C4D8ED">
  <tr>
    <td height=25 colspan=2 bgcolor="#FFFFFF">&nbsp;&nbsp; <font color="#135294"><strong>论坛管理帮助</strong></font></td>
  </tr>
  <tr>
    <td width="120" height=25 align="right" valign=middle class="forumRow"><B>产品开发：</B></td>
    <td width="846" height=25 valign="top" class="forumRow">&nbsp;<a href="http://www.websen.net" target="_blank"><font color="#135294">山西省太原市网胜网络科技有限公司</font></a></td>
  </tr>
  <tr>
    <td width="111" height=25 align="right" valign=middle class="forumRow"><B>联系方式：</B> </td>
    <td width="846" height=25 class="forumRow"><p>客服　QQ：23299946　25015979　707389278　24019996<br>
            <br>
      联系电话：0351－5697662　5697663　3868882<br>
      <br>
      传　　真：0351－5697662　 </p></td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>
<table width="100%" border="0" align=center cellpadding="3" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#C4D8ED">
<tr>
  <td height=25 colspan=2 bgcolor="#FFFFFF">&nbsp;&nbsp; <font color="#135294"><strong><a href="http://www.websen.net" target="_blank">网胜官方网站</a></strong></font></td>
</tr>
 <tr>
  <td height=154 colspan="2" valign=top class="forumRow"><iframe frameborder=0 id=frmright name=main scrolling=no src="http://www.websen.net" style=" width: 100%; height: 300px"></iframe></td>
  </tr>
</table>
<% 
Function IsObjInstalled(strClassString)
	on error resume next
	IsObjInstalled = False
	Err = 0
	Dim xTestObj
	Set xTestObj = Server.CreateObject(strClassString)
	If 0 = Err Then IsObjInstalled = True
	Set xTestObj = Nothing
	Err = 0
End Function
conn.close
set conn=nothing
end if
%>