tjinfo.asp

asp的网上卖东西的..看看还可以的吧

<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td height="22" bgcolor="EDECEC"> 数据统计</td>
  </tr>
  <tr> 
    <td> 
      <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="20"> 
            <%								
function dingdan()
dim tmprs
tmprs=conn.execute("Select Count(actionid) from BJX_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 BJX_goods 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 BJX_Dept set jsqtoday=jsqtoday+1")
	tmprs=conn.execute("Select jsqtoday from BJX_Dept")
	jsqtoday=tmprs(0)
    else
	conn.execute("update BJX_Dept set jsqtoday=1")
	tmprs=conn.execute("Select jsqtoday from BJX_Dept")
	jsqtoday=tmprs(0)
    end if
    application("dntime")=cint(hour(time()))
    set tmprs=nothing
    
	conn.execute("update BJX_Dept set jsq=jsq+1")
	tmprs=conn.execute("Select jsq from BJX_Dept")
	jsq=tmprs(0)
    set tmprs=nothing
    
    session("over")=true
else
    jsqtoday=1
	tmprs=conn.execute("Select jsqtoday from BJX_Dept")
	jsqtoday=tmprs(0)
	
	tmprs=conn.execute("Select jsq from BJX_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>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>