recount.asp

blog 程序 DIV BLOG 0.6 Readme [ http://www.IamTing.com ] DIV BLOG 0.6版更新说明 =====================

<!--#include file="../conn.asp"-->
<%
dim recount 
recount=request.form("recount")

if recount="count" then
dim total_log,total_remark,total_user,rs1,sql1

Set rs=server.CreateObject("ADODB.recordset") 
rs.open "select log_id from [log] order by log_id desc",conn,1,3
total_log=rs.recordcount
rs.close

rs.open "select id from [user_mdb] order by id desc",conn,1,3
total_user=rs.recordcount
rs.close

rs.open "select log_r_id from [log_r] order by log_r_id desc",conn,1,3
total_remark=rs.recordcount
rs.close

sql= "UPDATE log_count Set l_COUNT ="&total_log&",R_COUNT="&total_remark&",U_COUNT="&total_user&" where COUNT_ID = 1"
conn.Execute(sql)

response.write "<font style='font-size:12px'>共有日志："&total_log&"篇，评论："&total_remark&"篇，注册用户："&total_user&"人。重新计数完成！</font><br><br>"

sql= "UPDATE user_mdb Set F_COUNT =0,F_R_COUNT=0"'将用户数据清零,以后将重新计算清零后的数据
conn.Execute(sql)
'--------------核对用户发表日志数目开始
Set rs1=server.CreateObject("ADODB.recordset") 
sql="select log_author from [log] order by log_author desc"
rs.open sql,conn,1,3
  if not ( rs.eof and rs.bof) then
     do while not rs.eof 
        sql1="select F_count from [user_mdb] where username='"&rs("log_author")&"'"
        rs1.open sql1,conn,1,3
	      if not (rs1.eof and rs1.bof) then
             rs1("F_count")=  rs1("F_count")+1
			 rs1.update
			 rs1.close
		  else
		     rs1.close
          end if		  
     rs.movenext
     loop
   end if
rs.close
response.write "<font style='font-size:12px'>用户发表日志数目核对完成！</font><br><br>"
'--------------end

'--------------用户评论计数开始
sql="select log_r_author from [log_r] order by log_id desc"
rs.open sql,conn,1,3
  if not ( rs.eof and rs.bof) then
     do while not rs.eof 
       sql1="select F_r_count from [user_mdb] where username='"&rs("log_r_author")&"'"
       rs1.open sql1,conn,1,3
	      if not (rs1.eof and rs1.bof) then
             rs1("F_r_count")=  rs1("F_r_count")+1
			 rs1.update
             rs1.close
		  else
		     rs1.close
		  end if
     rs.movenext
     loop
   end if
rs.close
response.write "<font style='font-size:12px'>用户发表日志评论数目核对完成！</font><br>"
'---------end
set rs1=nothing
set rs=nothing
else
response.write "<form name='form1' method='post' action='recount.asp'>"&_
" <input type=""hidden"" name=""recount"" value=""count"" checked>"&_
"<input type=""submit"" name=""Submit"" value=""重新统计日志观员数日志数及评论数"" style=""font-size:12px""></form>"

end if
conn.close
set conn=nothing
%>