<!--#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>欢迎您：【
              <font color=white>
      <%dim rsq,sqlq,shengc,shic
      set rsq=server.createobject("adodb.recordset") 
sqlq = "select sheng from [FOX_sheng] where id="&session("admin_sheng")&""
rsq.open sqlq,conn,1,1
shengc=rsq("sheng")
rsq.close
set rsq=nothing
set rsq=server.createobject("adodb.recordset") 
sqlq = "select shi from [FOX_shi] where id="&Session("admin_shi")&""
rsq.open sqlq,conn,1,1
shic=rsq("shi")
rsq.close
set rsq=nothing%><%=shengc%>-<%=shic%>
                </font>】管理员，祝工作愉快！</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="106">
		<p align="right">本地区现有会员：</td>
		<td width="86"><%
                dim rs
                set rs=conn.execute("select count(id) from [FOX_user] where sheng="&session("admin_sheng")&" and shi="&session("admin_shi")&"")
                %><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 and sheng="&session("admin_sheng")&" and shi="&session("admin_shi")&"")
                %> <font color="#FF0000"> <%=rs(0)%></font> 名&nbsp;&nbsp;&nbsp;&nbsp;<%=bname%> <%
                set rs=conn.execute("select count(id) from [FOX_user] where huitype=1 and sheng="&session("admin_sheng")&" and shi="&session("admin_shi")&"")
                %> <font color="#FF0000"> <%=rs(0)%></font> 名&nbsp;&nbsp;&nbsp;&nbsp;<%=cname%> <%
                set rs=conn.execute("select count(id) from [FOX_user] where huitype=2 and sheng="&session("admin_sheng")&" and shi="&session("admin_shi")&"")
                %> <font color="#FF0000"> <%=rs(0)%></font> 名</td>
	</tr>
	<tr>
		<td width="106">
		<p align="right">本地区共有名片：</td>
		<td width="86"><%
                set rs=conn.execute("select count(id) from [FOX_mp] where sheng="&session("admin_sheng")&" and shi="&session("admin_shi")&"")
                %> <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 and sheng="&session("admin_sheng")&" and shi="&session("admin_shi")&"")
                %> <font color="#FF0000"> <%=rs(0)%></font></td>
	</tr>
	<tr>
		<td width="106" align="right">本地区共有联盟：</td>
		<td width="86"><%
                set rs=conn.execute("select count(id) from [FOX_meng] where sheng="&session("admin_sheng")&" and shi="&session("admin_shi")&"")
                %> <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 and sheng="&session("admin_sheng")&" and shi="&session("admin_shi")&"")
                %> <font color="#FF0000"> <%=rs(0)%></font></td>
	</tr>
	<tr>
		<td width="106" align="right">本地区共有信息：</td>
		<td width="86"><%
                set rs=conn.execute("select count(id) from [FOX_xinxi] where ts=0 and sheng="&session("admin_sheng")&" and shi="&session("admin_shi")&"")
                %> <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 and sheng="&session("admin_sheng")&" and shi="&session("admin_shi")&"")
                %> <font color="#FF0000"> <%=rs(0)%></font></td>
	</tr>
	<tr>
		<td width="106" align="right">本地区共有张贴：</td>
		<td width="86"><%
                set rs=conn.execute("select count(id) from [FOX_xinxi] where ts=1 and sheng="&session("admin_sheng")&" and shi="&session("admin_shi")&"")
                %> <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 andsheng="&session("admin_sheng")&" and shi="&session("admin_shi")&"")
                %> <font color="#FF0000"> <%=rs(0)%></font></td>
	</tr>
	<tr>
		<td width="106" align="right">本地区共有网店：</td>
		<td width="86"><%
                set rs=conn.execute("select count(id) from [FOX_dian] where sheng="&session("admin_sheng")&" and shi="&session("admin_shi")&"")
                %> <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 and sheng="&session("admin_sheng")&" and shi="&session("admin_shi")&"")
                %> <font color="#FF0000"> <%=rs(0)%></font></td>
	</tr>
	<tr>
		<td width="106" align="right">本地区共有商品：</td>
		<td width="86"><%
                set rs=conn.execute("select count(id) from [FOX_shop] where sheng="&session("admin_sheng")&" and shi="&session("admin_shi")&"")
                %> <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 and sheng="&session("admin_sheng")&" and shi="&session("admin_shi")&"")
                %> <font color="#FF0000"> <%=rs(0)%></font></td>
	</tr>
	<%rs.close%>
</table>
</td>
          </tr>
          <tr> 
            <td bgcolor="#F7D8AE"  width="100%" height="37"> 
              《<%=title%>》程序说明：</td>
          </tr>
          <tr> 
            <td  width="100%" height="35"> 
              1.本程序《<%=title%>》原作者为龙城科技（ＱＱ130135234）</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>
          </table>
      