admin_board.asp

一个美化的论坛程序

<!--#include file="function.asp"-->
<%CheckAdmin%>
<script language="javascript">
<!--
   function test(n) {
      result=confirm("警告！\n将同时删除该论坛的所有帖子！是否继续？");
	  if (result){
	  window.open('admin_boardsave.asp?boardid='+n+'&action=del','_self');
	  }
    }
//-->
</script>
<!--#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%>" height="129" valign=top> 
      <!--#include file="admin_left.asp"-->
    </td>
    <td width="622" bgcolor="<%=tablebodycolor%>" valign="middle" height="129"> 
      <%
set rs1=server.CreateObject("ADODB.RecordSet")
sql="select board.bgcolor,board.images,board.ads,board.tablebackcolor,board.tabletitlecolor,board.tablebodycolor,board.tablebodyacolor,board.boardid,board.logo,board.boardtype,board.boardmaster,board.boardtitle,board.bgimage,board.boardintro,board.classid,class.classid,class.classname from board,class where class.classid=board.classid order by board.classid,board.boardid asc"
rs.open sql,conn,1,1
do while not rs.eof
if classname<>rs("classname") then
response.write "<br><b>"&rs("classname")&"</b>"
classname=rs("classname")
end if%>
      <table width="98%" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="<%=tabletitlecolor%>">
        <form method="post" action="admin_boardsave.asp?action=edit&boardid=<%=rs("boardid")%>">
          <tr align="center" bgcolor="<%=tabletitlecolor%>"> 
            <td colspan="4" height="20">编辑 <b><font color="#000000"><%=rs("boardtitle")%></font></b> 
              论坛</td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td width="12%" align="right">论坛序号:</td>
            <td width="30%"> 
              <input type="text" name="boardid" size="4" maxlength="2" value="<%=rs("boardid")%>">
              不能和别的论坛序号相同</td>
            <td width="12%" align="right">论坛LOGO:</td>
            <td width="44%"> 
              <input type="text" name="logo" size="30" maxlength="255" value="<%=rs("logo")%>">
            </td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">论坛分类:</td>
            <td> 
              <select name="classid">
                <%
			  sql="select classid,classname from class order by classid"
			  rs1.open sql,conn,1,1
			  do while not rs1.eof
			  response.write "<option value="&rs1("classid")
			  if rs1("classid")=rs("classid") then response.write " selected"
			  response.write ">"&rs1("classname")&"</option>"
			  rs1.movenext
			  loop
			  rs1.close
			  %>
              </select>
            </td>
            <td align="right">版主:</td>
            <td> 
              <input type="text" name="boardmaster" size="15" maxlength="100" value="<%=rs("boardmaster")%>">
              多斑竹用|分隔,如:书僮|wava </td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">论坛类型:</td>
            <td> 
              <select name="boardtype">
                <option value="1"<%if rs("boardtype")="1" then response.write" selected" end if%>>开放论坛</option>
                <option value="2"<%if rs("boardtype")="2" then response.write" selected" end if%>>正规论坛</option>
              </select>
            </td>
            <td align="right">背景色:</td>
            <td> 
              <input type="text" size="15" maxlength="100" name="bgcolor" value="<%=rs("bgcolor")%>">
            </td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">论坛名称:</td>
            <td> 
              <input type="text" name="boardtitle" size="20" maxlength="20" value="<%=rs("boardtitle")%>">
            </td>
            <td align="right">背景图片:</td>
            <td> 
              <input type="text" name="bgimage" size="40" maxlength="255" value="<%=rs("bgimage")%>">
            </td>
          </tr>
		 <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">论坛标志图:</td>
            <td> 
              <input type="text" name="images" size="20" maxlength="255" value="<%=rs("images")%>">
            </td>
            <td align="right">论坛广告:</td>
            <td> 
              <input type="text" name="ads" size="40" maxlength="255" value="<%=rs("ads")%>">
            </td>
          </tr>
	  <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">表格边框色:</td>
            <td> 
              <input type="text" name="tablebackcolor" size="20" maxlength="20" value="<%=rs("tablebackcolor")%>">
            </td>
            <td align="right">表格标题色:</td>
            <td> 
              <input type="text" name="tabletitlecolor" size="20" maxlength="255" value="<%=rs("tabletitlecolor")%>">
            </td>
          </tr>
		  <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">表格内容色:</td>
            <td> 
              <input type="text" name="tablebodycolor" size="20" maxlength="20" value="<%=rs("tablebodycolor")%>">
            </td>
            <td align="right">表格穿插色:</td>
            <td> 
              <input type="text" name="tablebodyacolor" size="20" maxlength="255" value="<%=rs("tablebodyacolor")%>">
            </td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">论坛简介:</td>
            <td colspan=3> 
              <input type="text" name="boardintro" size="80" maxlength="255" value="<%=rs("boardintro")%>">
            </td>
          </tr>
          <tr align="center" bgcolor="<%=tablebodycolor%>"> 
            <td colspan="4"> 
              <input type="submit" value=" 提 交 ">
              <input type="reset" value=" 清 空 ">
              <input type="button" value=" 删除此论坛 " onclick="return test(<%=rs("boardid")%>);">
            </td>
          </tr>
        </form>
      </table>
      <br>
      <%
rs.movenext
loop
rs.close
set rs=nothing
%>
      <table width="98%" border="0" cellspacing="1" cellpadding="1" align="center" bgcolor="<%=tabletitlecolor%>">
        <form method="post" action="admin_boardsave.asp?action=add">
          <tr align="center" bgcolor="<%=tabletitlecolor%>"> 
            <td colspan="4" height="20">新增论坛</td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td width="12%" align="right">论坛序号:</td>
            <td width="30%"> 
              <input type="text" name="boardid" size="4" maxlength="2">
              不能和别的论坛序号相同</td>
            <td width="12%" align="right">论坛LOGO:</td>
            <td width="44%"> 
              <input type="text" name="logo" size="30" maxlength="255">
            </td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">论坛分类:</td>
            <td> 
              <select name="classid">
                <%
			  sql="select classid,classname from class order by classid"
			  rs1.open sql,conn,1,1
			  do while not rs1.eof
			  response.write "<option value="&rs1("classid")&">"&rs1("classname")&"</option>"
			  rs1.movenext
			  loop
			  rs1.close
			  set rs1=nothing
			conn.close
			set conn=nothing %>
              </select>
            </td>
            <td align="right">版主:</td>
            <td> 
              <input type="text" name="boardmaster" size="15" maxlength="100">
              多斑竹用|分隔,如:书僮|wava </td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">论坛类型:</td>
            <td> 
              <select name="boardtype">
                <option value="1" selected>开放论坛</option>
                <option value="2">正规论坛</option>
              </select>
            </td>
            <td align="right">背景色:</td>
            <td> 
              <input type="text" size="15" maxlength="100" name="bgcolor">
            </td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">论坛名称:</td>
            <td> 
              <input type="text" name="boardtitle" size="20" maxlength="20">
            </td>
            <td align="right">背景图片:</td>
            <td> 
              <input type="text" name="bgimage" size="40" maxlength="255">
            </td>
          </tr>
		  <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">论坛标志图:</td>
            <td> 
              <input type="text" name="images" size="20" maxlength="255" value="<%=images%>">
            </td>
            <td align="right">论坛广告:</td>
            <td> 
              <input type="text" name="ads" size="40" maxlength="255" value="<%=ads%>">
            </td>
          </tr>
	  <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">表格边框色:</td>
            <td> 
              <input type="text" name="tablebackcolor" size="20" maxlength="20" value="<%=tablebackcolor%>">
            </td>
            <td align="right">表格标题色:</td>
            <td> 
              <input type="text" name="tabletitlecolor" size="20" maxlength="255" value="<%=tabletitlecolor%>">
            </td>
          </tr>
		  <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">表格内容色:</td>
            <td> 
              <input type="text" name="tablebodycolor" size="20" maxlength="20" value="<%=tablebodycolor%>">
            </td>
            <td align="right">表格穿插色:</td>
            <td> 
              <input type="text" name="tablebodyacolor" size="20" maxlength="255" value="<%=tablebodyacolor%>">
            </td>
          </tr>
          <tr bgcolor="<%=tablebodycolor%>"> 
            <td align="right">论坛简介:</td>
            <td colspan=3> 
              <input type="text" name="boardintro" size="80" maxlength="255">
            </td>
          </tr>
          <tr align="center" bgcolor="<%=tablebodycolor%>"> 
            <td colspan="4"> 
              <input type="submit" value=" 提 交 ">
              <input type="reset" value=" 清 空 ">
            </td>
          </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
</body>
</html>