📄 matrix3_crrectforumdata.asp
字号:
<!-- #include file="const.asp" -->
<html>
<head>
<title>论坛信息统计并更新</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
td { font-family: "Verdana", "Arial", "Helvetica", "sans-serif"; font-size: 8pt;line-height:18pt;}
</style>
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<%
call opendb()
checkadmin()
dim id,sql,rs,fid,n,rs2,post,topic,today,todaydate,i
todaydate=date()
i=0
response.write("论坛信息统计并更新：<br>")
sql="select * from m3_forum order by cid asc,findex asc"
set rs=server.CreateObject("adodb.recordset")
set rs2=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
do while not rs.eof
topic=0
post=0
today=0
fid=rs("fid")
sql="select pid,addtime from m3_bbs where fid="&fid&" and valid=1"
rs2.open sql,conn,1,1
do while not rs2.eof
if rs2("pid")=0 then
topic=topic+1
end if
if datevalue(rs2("addtime"))=todaydate then
today=today+1
end if
post=post+1
rs2.movenext
loop
rs2.close
rs("topic")=topic
rs("today")=today
rs("post")=post
rs.update
i=i+1
response.write"<br>["&i&"] 论坛名称：<a href=""list.asp?forumid="&fid&""" target=_blank>"&rs("ftitle")&"</a> 总主题数："&topic&" 总帖子数："&post&" 今日帖数："&today&" 更新成功！"
rs.movenext
loop
rs.close
set rs=nothing
set rs2=nothing
response.write"<br><br>开始更新最近一个月内的帖子信息 ...<br>"
i=0
sql="select re,id,topic,addtime from m3_bbs where PID=0 and lasttime > #"& DateAdd("n",-60*24*30,now())&"# order by lasttime desc"
'sql="select re,id,topic,addtime from bbs where PID=0 order by lasttime desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
do while not rs.eof
sql="select count(*) from m3_bbs where PID<>0 and RootID="&rs("id")&" and valid=1"
set rs2=conn.execute(sql)
rs("re")=rs2(0)
rs.update
i=i+1
response.write"<br>["&i&"] 帖子：<a href='bbs.asp?id="&rs("id")&"' target=_blank>"&server.HTMLEncode(rs("topic"))&"</a> 发帖时间："&rs(3)&" 回复数："&rs2(0)&" 更新成功！"
rs.movenext
loop
rs.close
set rs=nothing
response.write"<br><br>开始更新用户信息 ...<br>"
i=0
sql="m3_users"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3
do while not rs.eof
sql="select count(*) from m3_bbs where name='"&rs("name")&"' and valid=1"
set rs2=conn.execute(sql)
rs("post")=rs2(0)
rs.update
i=i+1
response.write"<br>["&i&"] 用户：<a href=""profile.asp?name="&rs("name")&""" target=_blank>"&rs("name")&"</a> 注册时间："&rs("regtime")&" <a href=""search.asp?type=2&keyword="&rs("name")&""" target=_blank>发帖数："&rs2(0)&"</a> 更新成功！"
rs.movenext
loop
rs.close
set rs=nothing
call closedb()
response.write("<br><br>更新结束 ! 当前时间："&now&", 页面执行时间：" & FormatNumber((timer()-starttime)*1000,3) & " 毫秒， <a href='matrix3_admin.asp'>返回</a>")
%></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -