📄 admin_updateboard.asp

📁 应用于高等院校党团思想教育
💻 ASP
字号:
<%@ LANGUAGE="VBSCRIPT" %>


<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file=inc/char.asp-->
<!--#include file=admin_left.asp-->
<title><%=ForumName%>--管理页面</title>
<link rel="stylesheet" type="text/css" href="forum.css">

<BODY bgcolor="#ffffff" alink="#333333" vlink="#333333" link="#333333" topmargin="20">
<%
	if session("masterlogin")<>"superadmin" then
		Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=elogin.asp>登陆管理</a>后进入。"
		call Error()
	else
%>
<%
		dim rs,sql
		dim tmprs
		dim allarticle
		dim Maxid
		dim topic,username,dateandtime,body
		call main()
		set rs=nothing
		conn.close
		set conn=nothing
	end if

	sub main()
%>
<table cellpadding=0 cellspacing=0 border=0 width=95% bgcolor=<%=atablebackcolor%> align=center>
  <tr>
    <td>
      <table cellpadding=3 cellspacing=1 border=0 width=100%>
        <tr bgcolor='<%=aTabletitlecolor%>'>
        <td align=center colspan="2">欢迎<b><%=session("mastername")%></b>进入管理页面
        </td>
        </tr>
            <tr bgcolor=<%=tablebodycolor%>>
              <td width="20%" valign=top>
<%call left()%>
	      </td>
              <td width="80%" valign=top><p>
<%
	if request("action")="update" then
		call update()
		response.write ""&body&""
	else
%>
              <table width="100%" border="0" cellspacing="3" cellpadding="0">
                <tr> 
                  <td bgcolor=<%=atabletitlecolor%>> 
                    <p><b>更新论坛数据</b>：<br>
                      注意：这里将重新统计所有论坛的最新贴子、最新发表时间、发表贴子数等信息。</p>
                  </td>
                </tr>
                <tr> 
                  <td> 
            <form action="admin_updateboard.asp?action=update" method=post>
<input type="submit" name="Submit" value="更新">
	    </form>
                  </td>
                </tr>
<%
	end if
%>
</p></td>
            </tr>
        </table>
        </td>
    </tr>
</table>
<%
'	response.write ""&body&""
	end sub

	sub update()
	set rs=server.createobject("adodb.recordset")
	sql="select boardid,boardtype from board"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
		Errmsg=Errmsg+"<br>"+"<li>论坛还没有版面，请先添加版面。"
		call error()
		exit sub
	else
	do while not rs.eof
    	tmprs=conn.execute("Select count(announceid) from bbs1 where boardid="&rs("boardid")&"")
    	allarticle=tmprs(0)
	set tmprs=nothing
	if isnull(allarticle) then allarticle=0
    	tmprs=conn.execute("Select count(announceid) from bbs1 where boardid="&rs("boardid")&" and parentID=0")
    	alltopic=tmprs(0)
	set tmprs=nothing
	if isnull(alltopic) then alltopic=0

	Ers=conn.execute("select Max(announceid) from bbs1 where boardid="&rs("boardid")&"")
	Maxid=Ers(0)

	if not isnull(Maxid) then
	Ers=conn.execute("select username,dateandtime from bbs1 where announceid="&Maxid&"")
	username=Ers("username")
	dateandtime=Ers("dateandtime")
	Esql="update board set lastpostuser='"&username&"',lastposttime='"&dateandtime&"',lastbbsnum="&allarticle&",lasttopicnum="&alltopic&" where boardid="&rs("boardid")&""
	conn.execute(Esql)
	else
	Esql="update board set lastpostuser='无',lastposttime=Now(),lastbbsnum=0,lasttopicnum=0 where boardid="&rs("boardid")&""
	conn.execute(Esql)
	end if
	body=body &"更新论坛数据成功，"&rs("boardtype")&"共有"&allarticle&"篇贴子，"&alltopic&"篇主题<br>"
	rs.movenext
	loop
	end if
	rs.close
	end sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -