info_stat2.asp

一个ASP做的购物车

<table width="23%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td background="images/bj_x.gif" height="1"> </td>
  </tr>
  <tr> 
    <td height="22"> 
      <table cellspacing=0 cellpadding=0 width=170 height="20">
        <tr> 
          <td> <img src="images/main/stat.gif" width="178" height="34"></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td height="1" background="images/bj_x.gif"></td>
  </tr>
  <tr> 
    <td> 
      <table width="91%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="6"></td>
        </tr>
        <tr> 
          <td height="20"> 
            <%								
function dingdan()
dim tmprs
tmprs=conn.execute("Select Count(actionid) from wq_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(bookID) from wq_books 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 wq_dept set jsqtoday=jsqtoday+1")
	tmprs=conn.execute("Select jsqtoday from wq_dept")
	jsqtoday=tmprs(0)
    else
	conn.execute("update wq_dept set jsqtoday=1")
	tmprs=conn.execute("Select jsqtoday from wq_dept")
	jsqtoday=tmprs(0)
    end if
    application("dntime")=cint(hour(time()))
    set tmprs=nothing
    
	conn.execute("update wq_dept set jsq=jsq+1")
	tmprs=conn.execute("Select jsq from wq_dept")
	jsq=tmprs(0)
    set tmprs=nothing
    
    session("over")=true
else
    jsqtoday=1
	tmprs=conn.execute("Select jsqtoday from wq_dept")
	jsqtoday=tmprs(0)
	
	tmprs=conn.execute("Select jsq from wq_dept")
	jsq=tmprs(0)
    set tmprs=nothing
end if
%>
            ○- 今日新增订单数：<font color=red><%=dingdan()%></font> <br>
            ○- 今日新加商品数：<font color=red><%=todays()%></font> <br>
            ○- 今日访问：<font color=red><%=jsqtoday%></font> <br>
            ○- 访问总数：<font color=red><%=jsq%></font><br>
            <br>
          </td>
        </tr>
        <tr> 
          <td></td>
        </tr>
        <tr> 
          <td height="1"></td>
        </tr>
        <tr> 
          <td height="1"></td>
        </tr>
      </table>
    </td>
  </tr>
</table>