admin_count.asp

一个美化的论坛程序

<!--#include file="function.asp"-->
<%CheckAdmin%>
<!--#include file="top.asp"-->
<img src="" width="1" height="3"><table width="680" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="<%=tablebackcolor%>">
  <tr>
    <td width="160" bgcolor="<%=tabletitlecolor%>"  valign=top> 
      <!--#include file="admin_left.asp"-->
    </td>
    <td width="622" bgcolor="<%=tablebodycolor%>">
<%
response.write "数据更新中,请稍候......<br><br>"
set rs=server.CreateObject("ADODB.RecordSet")
set rs1=server.CreateObject("ADODB.RecordSet")
set rs2=server.CreateObject("ADODB.RecordSet")
sql="select boardid,topiccount,count,boardtitle from board order by boardid"
rs.open sql,conn,1,3
    do while not rs.eof
	bbscount=0
	replycount=0
	sql="select bbsid from bbs where boardid="&rs("boardid")
	rs1.open sql,conn,1,1
	bbscount=rs1.recordcount
	     do while not rs1.eof
		sql="select replyid from reply where bbsid="&rs1("bbsid")
		rs2.open sql,conn,1,1
		replycount=replycount+rs2.recordcount
		rs2.close
	     rs1.movenext
	     loop
	rs1.close
    rs("topiccount")=bbscount
    rs("count")=bbscount+replycount
    rs.update
    response.write "<li><B>"&rs("boardtitle")&"</b> 共有贴子: <font color=#ff0000>"&rs("count")&" </font> 其中主题贴子: <font color=#ff0000>"&rs("topiccount")&"</font><br><br>"
    rs.movenext
    loop
rs.close
set rs=nothing
set rs1=nothing
set rs2=nothing
conn.close
set conn=nothing
%>
</td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
</body>
</html>