?? admin.asp
字號:
<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Redirect "login.asp"
end if
%>
<!--#include file="../webconfig.asp"-->
<html>
<head>
<title>動感商城系統(tǒng)</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="../img/ip.gif" width="450" height="100"></font></div>
</td>
</tr>
<tr>
<td height="100" valign="top">
<p> </p><table width="450" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
·各個管理項目中需要注意的地方都有標(biāo)明，請注意查看清楚后再進(jìn)行操作。<font color="#FF0000"><br>
·此程序您可以使用但請在后臺保留我的制作版權(quán)，請尊重程序員們的勞動成果。<br>
·如果您需要商業(yè)合作，請聯(lián)系我們。 </font></td>
</tr>
</table>
<br>
<table border="0" align="center" cellpadding="0" cellspacing="0" width="450">
<tr>
<td> <br> <%dim endtime
endtime=timer()
response.Write "客戶服務(wù)中心信箱：<a href=mailto:"&webemail&">"&webemail&"</a> 客戶服務(wù)中心熱線直撥："&dianhua&" <br>"
response.Write "公司地址："&dizhi&" 郵政編碼："&youbian&" <br>"
response.Write "Copyright © "©right
response.Write " <br><a href=http://www.snsn.net/club/>動感購物官方論壇</a>"
%> </td>
</tr>
<%
function dingdan()
dim tmprs
tmprs=conn.execute("Select Count(actionid) from shop_action Where year(actiondate)=year(now()) and month(actiondate)=month(now()) and day(actiondate)=day(now())")
tmprs1=conn.execute("Select Count(actionid) from Shop_Action_FHY Where year(actiondate)=year(now()) and month(actiondate)=month(now()) and day(actiondate)=day(now())")
dingdan=tmprs(0)+tmprs1(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(now()) and month(adddate)=month(now()) and day(adddate)=day(now())")
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
%><%
set rs = server.CreateObject("ADODB.RecordSet")
strsql="SELECT count(new) as num FROM shop_action where zhuangtai<6 and new=1"
if rs.state=1 then rs.close
rs.open strsql,conn,1,1
if rs.Eof or rs.Bof then
else
if rs(0)>1 then
set rs1 = server.CreateObject("ADODB.RecordSet")
strsql="SELECT count(new) as num FROM shop_action_fhy where zhuangtai<6 and new=1"
if rs1.state=1 then rs1.close
rs1.open strsql,conn,1,1
if rs1.Eof or rs1.Bof then
else
if rs1(0)>1 then
ddsl=rs(0)+rs1(0)
%> <script language="javascript">
alert('系統(tǒng)提示:\n\n\n 您有 <%=ddsl%> 條新的訂單尚未處理 \n\n 您可以進(jìn)入訂單管理中查看');
</script><%end if
end if
end if
end if%>
<tr>
<td>
○- 今日新增訂單數(shù)：<font color=red><%=dingdan()%></font>
○- 今日新加商品數(shù)：<font color=red><%=todays()%></font><br> ○- 今日訪問：<font color=red><%=jsqtoday%></font>
○- 訪問總數(shù)：<font color=red><%=jsq%></font><br> </td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<!--#include file="copyright.asp"-->
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -