📄 admin.asp
字号:
<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Redirect "login.asp"
end if
%>
<!--#include file="../webconfig.asp"-->
<html>
<head>
<title>动感商城系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="91%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td height="20">
<div align="center"><font color="#000000"><img src="../images/ip.gif" width="450" height="100"></font></div>
</td>
</tr>
<tr>
<td height="100" valign="top">
<p> </p>
<table border="0" align="center" cellpadding="0" cellspacing="0" width="95%">
<tr>
<td>
<div align="center"> </div>
</td>
</tr>
<%
function dingdan()
dim tmprs
tmprs=conn.execute("Select Count(actionid) from shop_action Where year(actiondate)=year(date()) and month(actiondate)=month(date()) and day(actiondate)=day(date())")
dingdan=tmprs(0)
set tmprs=nothing
if isnull(dingdan) then dingdan=0
end function
function todays()
dim tmprs
tmprs=conn.execute("Select Count(shopID) from shop_snsn Where year(adddate)=year(date()) and month(adddate)=month(date()) and day(adddate)=day(date())")
todays=tmprs(0)
set tmprs=nothing
if isnull(todays) then todays=0
end function
%>
<%
if session("over")="" then
jsqtoday=1
if application("dntime")<=cint(hour(time())) then
conn.execute("update shop_Dept set jsqtoday=jsqtoday+1")
tmprs=conn.execute("Select jsqtoday From shop_Dept")
jsqtoday=tmprs(0)
else
conn.execute("update shop_Dept set jsqtoday=1")
tmprs=conn.execute("Select jsqtoday From shop_Dept")
jsqtoday=tmprs(0)
end if
application("dntime")=cint(hour(time()))
set tmprs=nothing
conn.execute("update shop_Dept set jsq=jsq+1")
tmprs=conn.execute("Select jsq From shop_Dept")
jsq=tmprs(0)
set tmprs=nothing
session("over")=true
else
jsqtoday=1
tmprs=conn.execute("Select jsqtoday From shop_Dept")
jsqtoday=tmprs(0)
tmprs=conn.execute("Select jsq From shop_Dept")
jsq=tmprs(0)
set tmprs=nothing
end if
%>
<tr>
<td>
<div align="center">○- 今日新增订单数：<font color=red><%=dingdan()%></font>
○- 今日新加商品数：<font color=red><%=todays()%></font> ○- 今日访问：<font color=red><%=jsqtoday%></font>
○- 访问总数：<font color=red><%=jsq%></font><br>
</div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<!--#include file="copyright.asp"-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -