<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->

<%
call head()
Call saycarda("社区统计")
dim smsCount
Set rs = Server.CreateObject("ADODB.Recordset")

'计算今天贴子
rs.open "SELECT ID from SELL where  yc=0 AND  tm >= '"&date()&"'",Conn,1,1
smsCount = rs.RecordCount
rs.close
DIM SELLYESTERDAY
'计算昨天贴子
rs.open "SELECT ID from SELL where  yc=0 AND  tm >= '"&date()-1&"'",Conn,1,1


SELLYESTERDAY = rs.RecordCount
rs.close

'计算本月贴子
dim monCount
rs.open "SELECT ID from SELL where  yc=0 AND  Year(tm) = "&Year(date())&" and Month(tm) = "&Month(date()),conn,1,1
monCount = rs.RecordCount
rs.close
set rs=nothing

Set rs = Server.CreateObject("ADODB.Recordset")
'计算总贴子
dim monCounts
rs.open "SELECT ID from SELL where yc=0",conn,1,1
monCounts = rs.RecordCount
rs.close
set rs=nothing

dim REsmsCount
Set rs = Server.CreateObject("ADODB.Recordset")

'计算今天贴子
rs.open "SELECT ID from relist where  yc=0 AND  Htm >= '"&date()&"'",Conn,1,1
REsmsCount = rs.RecordCount
rs.close
DIM relistLYESTERDAY
'计算昨天贴子
rs.open "SELECT ID from relist where  yc=0 AND  Htm >= '"&date()-1&"'",Conn,1,1
relistLYESTERDAY = rs.RecordCount
rs.close


'计算本月贴子
dim REmonCount
rs.open "SELECT ID from relist where  yc=0 AND  Year(Htm) = "&Year(date())&" and Month(Htm) = "&Month(date()),conn,1,1
REmonCount = rs.RecordCount
rs.close
set rs=nothing

Set rs = Server.CreateObject("ADODB.Recordset")
'计算总贴子
dim REmonCounts
rs.open "SELECT ID from relist where yc=0",conn,1,1
REmonCounts = rs.RecordCount

rs.close
set rs=nothing

'计算社区总文件数
dim upfilenums
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "SELECT ID from upfile ",conn,1,1
upfilenums = rs.RecordCount

rs.close
set rs=nothing

response.write "今天贴子"&smsCount&""
response.write "<br/>-------<br/>昨天贴子"&SELLYESTERDAY-smsCount&""
response.write "<br/>-------<br/>本月贴子"&monCount&""

response.write "<br/>-------<br/>贴子总数"&monCounts

response.write "<br/>-------<br/>今天回复"&REsmsCount&""
response.write "<br/>-------<br/>昨天回复"&relistLYESTERDAY-REsmsCount&""
response.write "<br/>-------<br/>本月回复"&REmonCount&""

response.write "<br/>-------<br/>回复总数"&REmonCounts

response.write "<br/>-------<br/>社区文件总数"&upfilenums

response.write "<br/>-------"
conn.close
set conn=Nothing
%><!--#include file="fanhui.asp"-->
<%call headsay()%>