<!--#include file=CONN.ASP-->
<!--#include file=cookies.asp-->

<!--#include file=../config.asp-->
<%
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
%>
<link rel="stylesheet" type="text/css" href="images/fox.css">
<style type=text/css>
BODY{
	margin:0px;
	FONT-SIZE: 12px;
	FONT-FAMILY: "宋体", "Verdana", "Arial", "Helvetica", "sans-serif";
	background-color: #CCCC99; 
	scrollbar-highlight-color: #CC9933; 
	scrollbar-arrow-color: #FFFFFF; 
	scrollbar-base-color: #CC9933
}
table { border:0px; }
td { font:normal 12px 宋体; }
img { vertical-align:bottom; border:0px; }
a { font:normal 12px 宋体; color:#111111; text-decoration:none; }
a:hover { color:#384780;text-decoration:underline; }
.sec_menu { border-left:2px solid #CC3300; border-right:2px solid #CC3300; border-bottom:2px solid #CC3300; overflow:hidden; background:#ffffff; }
.menu_title {background-color: #335EA8;color: white;font-size: 12px;font-weight:bold;height: 25; }
.menu_title span { position:relative; top:2px; left:8px; color:#FFFF00; font-weight:bold; }
.menu_title2 {background-color: #335EA8;color: white;font-size: 12px;font-weight:bold;height: 25; }
.menu_title2 span { position:relative; top:2px; left:8px; color:#FEFEFE; font-weight:bold; }
input,select,Textarea{
font-family:宋体,Verdana, Arial, Helvetica, sans-serif; font-size: 12px;}
</style>

<table border="1" cellspacing="4" cellpadding="3" width="100%" bordercolor="#CC3300" height="354" id="table1" class="db0">
          <tr> 
            <td  width="100%" height="37" bgcolor="#CC0000"> 
              <font color="#FFFFFF"> 
              <b>欢迎您：<%=session("admin_name")%>，祝工作愉快！</b></font></td>
          </tr>
          <tr> 
            <td  width="100%" height="37"> 
<table border="1" width="100%" id="table2" style="border-width: 2px; border-collapse:collapse" cellpadding="0" bordercolorlight="#FFF4E1" cellspacing="0" bordercolordark="#FFF4E1" height="250">
	<tr>
		<td width="92">
		<p align="right">本站现有会员：</td>
		<td width="100"><%
                dim rs
                set rs=conn.execute("select count(id) from [FOX_user]")
                %><font color="#FF0000"><%=rs(0)%></font> 名</td>
		<td width="39">            其中：</td>
		<td><%=aname%> <%
                set rs=conn.execute("select count(id) from [FOX_user] where huitype=0")
                %> <font color="#FF0000"> <%=rs(0)%></font> 名&nbsp;&nbsp;&nbsp;&nbsp;<%=bname%> <%
                set rs=conn.execute("select count(id) from [FOX_user] where huitype=1")
                %> <font color="#FF0000"> <%=rs(0)%></font> 名&nbsp;&nbsp;&nbsp;&nbsp;<%=cname%> <%
                set rs=conn.execute("select count(id) from [FOX_user] where huitype=2")
                %> <font color="#FF0000"> <%=rs(0)%></font> 名</td>
	</tr>
	<tr>
		<td width="92">
		<p align="right">本站共有名片：</td>
		<td width="100"><%
                set rs=conn.execute("select count(id) from [FOX_mp]")
                %> <font color="#FF0000"> <%=rs(0)%></font>张</td>
		<td width="39">            其中：</td>
		<td>未验证<%
                set rs=conn.execute("select count(id) from [FOX_mp] where yz=0")
                %> <font color="#FF0000"> <%=rs(0)%></font></td>
	</tr>
	<tr>
		<td width="92" align="right">本站共有联盟：</td>
		<td width="100"><%
                set rs=conn.execute("select count(id) from [FOX_meng]")
                %> <font color="#FF0000"> <%=rs(0)%></font>个</td>
		<td width="39">            其中：</td>
		<td>未验证<%
                set rs=conn.execute("select count(id) from [FOX_meng] where yz=0")
                %> <font color="#FF0000"> <%=rs(0)%></font></td>
	</tr>
	<tr>
		<td width="92" align="right">本站共有信息：</td>
		<td width="100"><%
                set rs=conn.execute("select count(id) from [FOX_xinxi] where ts=0")
                %> <font color="#FF0000"> <%=rs(0)%></font>条</td>
		<td width="39">            其中：</td>
		<td>未验证<%
                set rs=conn.execute("select count(id) from [FOX_xinxi] where ts=0 and yz=0")
                %> <font color="#FF0000"> <%=rs(0)%></font></td>
	</tr>
	<tr>
		<td width="92" align="right">本站共有张贴：</td>
		<td width="100"><%
                set rs=conn.execute("select count(id) from [FOX_xinxi] where ts=1")
                %> <font color="#FF0000"> <%=rs(0)%></font>条</td>
		<td width="39">            其中：</td>
		<td>未验证<%
                set rs=conn.execute("select count(id) from [FOX_xinxi] where ts=1 and yz=0")
                %> <font color="#FF0000"> <%=rs(0)%></font></td>
	</tr>
	<tr>
		<td width="92" align="right">本站共有网店：</td>
		<td width="100"><%
                set rs=conn.execute("select count(id) from [FOX_dian]")
                %> <font color="#FF0000"> <%=rs(0)%></font>个</td>
		<td width="39">            其中：</td>
		<td>未验证<%
                set rs=conn.execute("select count(id) from [FOX_dian] where yz=0")
                %> <font color="#FF0000"> <%=rs(0)%></font></td>
	</tr>
	<tr>
		<td width="92" align="right">本站共有商品：</td>
		<td width="100"><%
                set rs=conn.execute("select count(id) from [FOX_shop]")
                %> <font color="#FF0000"> <%=rs(0)%></font>个</td>
		<td width="39">            其中：</td>
		<td>未验证<%
                set rs=conn.execute("select count(id) from [FOX_shop] where yz=0")
                %> <font color="#FF0000"> <%=rs(0)%></font></td>
	</tr>
	<tr>
		<td width="92" align="right">本站共有资讯：</td>
		<td width="100"><%
                set rs=conn.execute("select count(id) from [FOX_zixun]")
                %> <font color="#FF0000"> <%=rs(0)%></font>个</td>
		<td width="39">            其中：</td>
		<td>未验证<%
                set rs=conn.execute("select count(id) from [FOX_zixun] where yz=0")
                %> <font color="#FF0000"> <%=rs(0)%></font></td>
	</tr><%rs.close%>
</table>
<table cellpadding="2" cellspacing="1" border="0" width="96%" class="tableBorder" align=center>
<tr>
<th colspan=2 height=25>系统信息统计</th>
</tr>
<tr>
<td class=BodyTitle colspan=2 height=25>系统信息统计</td>
</tr>
<tr>
<td width="50%"  class="TableRow2" height=23>服务器类型：<%=Request.ServerVariables("OS")%>(IP:<%=Request.ServerVariables("LOCAL_ADDR")%>)</td>
<td width="50%" class="TableRow1">脚本解释引擎：<%=ScriptEngine & "/"& ScriptEngineMajorVersion &"."&ScriptEngineMinorVersion&"."& ScriptEngineBuildVersion %></td>
</tr>
<tr>
<td width="50%" class="TableRow2" height=23>站点物理路径：<%=Request.ServerVariables("APPL_PHYSICAL_PATH")%></td>
<td width="50%" class="TableRow1">系统版本：<%=Newasp.ThisEdition%>
</td>
</tr>
<tr>
<td width="50%" class="TableRow2" height=23>FSO文本读写：<%If Not IsObjInstalled(theInstalledObjects(1)) Then%><font color="#FF0066"><b>×</b></font><%else%><b>√</b><%end if%></td>
<td width="50%" 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%></td>
</tr>
<tr>
<td width="50%" class="TableRow2" height=23>Jmail组件支持：<%If Not IsObjInstalled(theInstalledObjects(3)) Then%><font color="#FF0066"><b>×</b></font><%else%><b>√</b><%end if%></td>
<td width="50%" class="TableRow1">CDONTS组件支持：<%If Not IsObjInstalled(theInstalledObjects(4)) Then%><font color="#FF0066"><b>×</b></font><%else%><b>√</b><%end if%></td>
</tr>
</tr>
</table>
</td>
          </tr>
          <tr> 
            <td bgcolor="#F7D8AE"  width="100%" height="37"> 
              《<%=title%>》程序说明：</td>
          </tr>
          <tr> 
            <td  width="100%" height="35"> 
              1.本程序《<%=title%>》原作者为龙城科技（ＱＱ130135234 19315967）</td>
          </tr>
          <tr> 
            <td  width="100%" height="35"> 
              2.程序《<%=title%>》版权归龙城科技所有，你可以使用，但不得用于商业用途，否则请联系购买．</td>
          </tr>
          <tr> 
            <td  width="100%" height="35"> 
              3.本程序《<%=title%>》仅提供使用，使用者任何违反互联网规定的行为，与龙城科技无关．</td>
          </tr>
          <tr> 
            <td  width="100%" height="35"> 
              4.欢迎支持正版程序，打击盗版行为．</td>
          </tr>
          <tr> 
            <td  width="100%" height="35"> 
              5.本套《<%=title%>》程序使用，技术支持请联系龙城科技（www.lc0351.cn）</td>
          </tr>
          <tr> 
            <td  width="100%" height="31"> 
              　<b>《<%=title%>》使用说明：</b>不懂之处请联系作者，如有扩展内容，不再另行通知。</td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF"  width="100%" height="75"> 
              网上汇款：中国工商银行太原支行桥东分理处 <br>
				卡号：9558 8005 0210 7917 283<br>
				户名：阮秋洁<br>
				联系电话：0351-6618875</td>
          </tr>
        </table>
      </body></html>

</body></html>