<% 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 "
-------
昨天贴子"&SELLYESTERDAY-smsCount&"" response.write "
-------
本月贴子"&monCount&"" response.write "
-------
贴子总数"&monCounts response.write "
-------
今天回复"&REsmsCount&"" response.write "
-------
昨天回复"&relistLYESTERDAY-REsmsCount&"" response.write "
-------
本月回复"&REmonCount&"" response.write "
-------
回复总数"&REmonCounts response.write "
-------
社区文件总数"&upfilenums response.write "
-------" conn.close set conn=Nothing %>