<!--#INCLUDE FILE="conn.asp" -->
<!--#include file="admin_Checkuser.asp"-->
<HTML><HEAD><title><%=StrVar(1)%>--管理页面</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<!--#include file="inc/admin_main.css"-->
</HEAD>
<BODY leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<%
	if  not sysadmin or session("adminlogin")<>"0K" Then
	Errmsg=Errmsg+"<br>"+"<li>本页面为管理员专用，请<a href=admin_index.asp target=_top>登陆</a>后进入。"
	Call Error("Information",ErrMsg)
	else
		call main()
		call endconnection()
end if
	sub main()
%>
<table cellpadding=5 cellspacing=1 border=0 width=90% Class=TableBorder align=center>
  <tr>
	<th>欢迎<b><%=membername%></b>进入管理页面</th>
</tr></table>
<br>
<table width="90%" border="0" cellspacing="1" cellpadding="3" align=center Class=TableBorder>
<tr><th colspan="2">校友录论坛版面管理</th></tr>
<tr><td width="25%" align="center"><font color="#FF0000">版面名称</font></td>
          <td width="75%" align="center"><font color="#FF0000">相关操作</font></td>
        </tr>
		<%
dim rs,sql,boardid
	set rs=server.createobject("adodb.recordset")
	sql="select * from bbs order by dateandtime desc"
	rs.open sql,conn,1,1
if rs.bof and rs.eof then%>
        <tr> 
          <td colspan="2" align="center" class=forumrow>还没有任何版面</td>
        </tr>
        <%else
do until rs.eof%>
        <tr> 
          <td width="25%" align="center" class=forumrow><img src="images/nofollow.gif" width="15" height="15" border="0">&nbsp;<%=rs("boardname")%></td>
          <td width="75%" class=forumrow><a href="admin_boardmodify.asp?boardid=<%=rs("boardid")%>" target="main">修改参数</a> 
            | <a href="admin_boardupdate.asp?boardid=<%=rs("boardid")%>" target="main">更新数据</a> 
            | <a href="admin_boarddeltop.asp?boardid=<%=rs("boardid")%>" target="main" onclick="javascript:if(confirm('确定要删除版面-<%=rs("boardname")%>的所有贴子吗?')){;return true;}else{return false;}">清空贴子</a> 
            | <a href="admin_boarddel.asp?boardid=<%=rs("boardid")%>" target="main" onclick="javascript:if(confirm('确定要删除版面-<%=rs("boardname")%>吗?')){;return true;}else{return false;}"">删除版面</a></td>
        </tr>
        <%rs.movenext
 loop
 %>
        <tr > 
          <td width="25%" align="center" Class=forumrowhighlight><font color="#FF0000">操作说明</font></td>
          <td width="75%" Class=forumrowhighlight> <p>1、修改参数：修改版面的名称，版面说明，版面版主。<br>
              2、更新数据：重新统计版面贴子数目。<br>
              3、清空贴子：删除所有关于此版面的贴子（但版面不删除）。<br>
              4、删除版面：删除所有关于此版面的贴子（并删除版面）。</p></td>
        </tr>
        <%end if%>
      </table>
<%
rs.close
set rs=nothing
end sub
%>