updatesitecount.asp

来自「前台完全分离了HTML与ASP」· ASP 代码 · 共 35 行

<%
'***********************************************
'* SiteCount FUNCTION
'* 你可以对以下内容进行任何修改，但请保留版权，谢谢。
'* 零点设计在线  Power by marquee 2004年11月
'***********************************************
Call SiteCount()
Function SiteCount()
  dim AllSoftCount,AllArticleCount,DaySoftCount,DayArticleCount,takeCount
  tmprs=conn.execute("Select Count(id) from ZD_Soft")
  AllSoftCount=tmprs(0)
  tmprs=conn.execute("Select Count(id) from ZD_Soft where addtime like '"&date()&"'")
  DaySoftCount=tmprs(0) 
  tmprs=conn.execute("Select Count(id) from ZD_Article")
  AllArticleCount=tmprs(0)
  tmprs=conn.execute("Select Count(id) from ZD_Article where addtime like '"&date()&"'")
  DayArticleCount=tmprs(0)
  tmprs=conn.execute("Select Count(id) from ZD_Member")
  AllMemberCount = tmprs(0)     
  set tmprs=nothing
  Set Rs = Server.CreateObject("Adodb.Recordset")
  Sql = "select * from ZD_SiteCount"
  Rs.open sql,conn,1,3
  Rs("ArticleSum") = AllArticleCount
  Rs("SoftSum") = AllSoftCount
  Rs("TodayArticleCount") = DayArticleCount
  Rs("TodaySoftCount") = DaySoftCount
  Rs("MemberCount") = AllMemberCount
  Rs.update
  Rs.close
  set Rs = nothing
End Function
%>