ad_main.asp 凡人网络购物系统 2008源码程序 - ASP源码程序

www.gusucode.com > 凡人网络购物系统 2008源码程序 > Admin/ad_main.asp
    <!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>
<body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5">
<%
admin_name=Request.Cookies("venshop")("admin_name")
admin_class=Request.Cookies("venshop")("admin_class")
%>
<table border="0" cellpadding="5" cellspacing="0" class="st">
<tr>
<td colspan="2" class="sa"><b>网站统计信息：</b></td></tr>
<tr><td bgcolor="#FFFFFF" width="100" align="right" class="s1">商品</td>
	<td bgcolor="#FFFFFF" class="s1"><%=Conn.Execute("Select count(*) from venshop_hw")(0)%>件</td></tr>
<tr><td bgcolor="#FFFFFF" align="right" class="s0">分类</td>
	<td bgcolor="#FFFFFF" class="s0"><%=Conn.Execute("Select count(*) from venshop_sort")(0)%>大类, <%=Conn.Execute("Select count(*) from venshop_nsort")(0)%>小类</td></tr>
<tr><td bgcolor="#FFFFFF" align="right" class="s1">品牌</td>
	<td bgcolor="#FFFFFF" class="s1"><%=Conn.Execute("Select count(*) from venshop_pinpai")(0)%></td></tr>
<tr><td bgcolor="#FFFFFF" align="right" class="s0">访问量</td>
	<td bgcolor="#FFFFFF" class="s0"><script src="../tj_ven.asp?style=text"></script>次</td></tr>
<tr><td bgcolor="#FFFFFF" align="right" class="s1">用户</td>
	<td bgcolor="#FFFFFF" class="s1"><%=Conn.Execute("Select count(*) from venshop_user")(0)%>位</td></tr>
<tr><td bgcolor="#FFFFFF" align="right" class="s0">管理员</td>
	<td bgcolor="#FFFFFF" class="s0"><%=Conn.Execute("Select count(*) from venshop_admin where admin_class=0")(0)%>总管理员, <%=Conn.Execute("Select count(*) from venshop_admin where admin_class=1")(0)%>产品管理员, <%=Conn.Execute("Select count(*) from venshop_admin where admin_class=2")(0)%>订单管理员</td></tr>
<tr><td bgcolor="#FFFFFF" align="right" class="s1">订单</td>
	<td bgcolor="#FFFFFF" class="s1"><%=Conn.Execute("Select count(*) from venshop_sub")(0)%></td></tr>
<tr><td bgcolor="#FFFFFF" align="right" class="s0">新闻</td>
	<td bgcolor="#FFFFFF" class="s0"><%=Conn.Execute("Select count(*) from venshop_article")(0)%></td></tr>
</table>
<br>
<table border="0" cellpadding="5" cellspacing="0" class="st"><tr>
<td class="sa"><b>最新登录记录：</b></td></tr>
<tr><td bgcolor="#FFFFFF">
<table border="0" cellpadding="3" cellspacing="0" width="100%" id="table2">
<tr><td bgcolor="#FFFFFF" class="s0">时间</td><td bgcolor="#FFFFFF" class="s0">用户</td>
	<td bgcolor="#FFFFFF" class="s0">IP</td><td bgcolor="#FFFFFF" class="s0">状态</td></tr>
<%set rs=Conn.Execute("Select top 10 * from venshop_adminlog order by log_id desc")
i=0
do while not rs.eof
i=i+1%>
<tr><td class="s<%=i mod 2%>"><%=rs("log_date")%></td>
<td class="s<%=i mod 2%>"><%=rs("log_name")%></td>
<td class="s<%=i mod 2%>"><%=rs("log_ip")%></td>
<td class="s<%=i mod 2%>"><%=rs("log_result")%></td></tr>
<%rs.movenext
loop
rs.close
set rs=nothing
%>
</table>

<p><a href="ad_log.asp">查看所有登录日志>></a></p>
</td></tr></table>
<br>

<table border="0" cellpadding="5" cellspacing="0" class="st">
<tr><td class="sa"><b>管理选项：</b></td></tr>
<tr><td bgcolor="#FFFFFF">
	<p style="line-height: 200%; margin-top: 0; margin-bottom: 0">
欢迎<%=admin_name%>，您的等级为
<%
if admin_class="0" then response.write"总管理员，拥有所有管理权限"
if admin_class="1" then response.write"产品管理员，拥有产品及分类品牌的管理权限"
if admin_class="2" then response.write"订单管理员，拥有订单及相关管理权限"
%>。<br>
<%
subc=Conn.Execute("Select count(*) from venshop_sub where sub_zt=1")(0)
if subc=0 then
response.write "没有新订单，<a href=ad_sub.asp>点击查看历史订单</a>"
else
response.write subc&"个未处理订单，<a href=ad_sub.asp?zt=1><font color=red>点击查看</font></a>，<a href=ad_sub.asp>点击查看所有订单</a><br>"
end if


tousuc=Conn.Execute("Select count(*) from venshop_sub where sub_tousu=1")(0)
if tousuc>0 then
response.write tousuc&"个投诉订单，<a href=ad_subr.asp><font color=red>点击查看</font></a><br>"
end if

commentc=Conn.Execute("Select count(*) from venshop_comment where c_c=0")(0)
if commentc>0 then
response.write commentc&"个未处理商品评论，<a href=ad_mly.asp><font color=red>点击查看</font></a><br>"
end if


hwc=Conn.Execute("Select count(*) from venshop_hw where hw_kucun<=0")(0)

if hwc>0 then
response.write hwc&"个缺货产品请及时补货，<a href=ad_delhw.asp?quehuo=yes><font color=red>点击查看</font></a><br>"
end if
%></p>
</td></tr></table><!--#include file="ad_bottom.asp"-->