bbs_board.asp

树型ASP论坛下载

	             set rscust=Server.Createobject("ADODB.Recordset")
                 rscust.open sql,conn,1,3%>
                    <select name="board_name" class="input">
                      <%do while not rscust.eof  %>
                      <option value="<%= rscust("bid") %>"><%= rscust("board")  %></option>
                      <%  rscust.movenext 
					loop
					set rscust=nothing%>
                    </select></td>
                </tr>
                <tr> 
                  <td align="right">改为为:</td>
                  <td><input name="board_rename" type="text" class="input" maxlength="20"> 
                  </td>
                </tr>
                <tr> 
                  <td align="right">&nbsp;</td>
                  <td><input type="submit" name="Submit4" value="改名"></td>
                </tr>
                <tr> 
                  <td align="right">&nbsp;</td>
                  <td>&nbsp;</td>
                </tr>
              </table>
            </form> </td>
        </tr>
      </table></td>
  </tr>
</table>
<br>
<table width="96%" border="0" align="center" class="px14">
  <tr valign="top"> 
    <td width="33%"><table width="100%" border="0">
        <tr> 
          <td align="center" bgcolor="#B5DAFF">删除子版块</td>
        </tr>
        <tr> 
          <td height="100" valign="top" bgcolor="#EFEFEF"> <form name="form3" method="post" onsubmit="return cform()">
              <table width="100%" border="0">
                <tr> 
                  <td width="33%" align="right">选择子版块</td>
                  <td width="67%"> <select name="del_suboard" class="input" id="del_suboard">
                      <% 
				sql="select * from bbs_board order by bid"
				set rscust=Server.Createobject("ADODB.Recordset")
  			    rscust.open sql,conn,1,3
				 do while not rscust.eof%>
                      <% 
				sqlstr="select * from bbs_suboard where bid="&rscust("bid")&" order by subid"
				set rs=Server.Createobject("ADODB.Recordset")
        		 rs.open sqlstr,conn,1,3
    			do while not rs.eof
				 %>
                      <option value="<%= rs("subid") %>"><%= rscust("board")%> -&gt; <%= rs("suboard")%></option>
                      <% rs.movenext
	                 loop
	                 set rs=nothing
                     %>
                      <% rscust.movenext
	                 loop
	                 set rscust=nothing
                     %>
                    </select></td>
                </tr>
                <tr> 
                  <td align="right">&nbsp;</td>
                  <td>&nbsp; </td>
                </tr>
                <tr> 
                  <td align="right">&nbsp;</td>
                  <td><input name="Submit" type="submit" id="Submit" value="删除子版"></td>
                </tr>
                <tr> 
                  <td align="right">&nbsp;</td>
                  <td>&nbsp;</td>
                </tr>
              </table>
            </form></td>
        </tr>
      </table></td>
    <td width="33%"><table width="100%" border="0">
        <tr> 
          <td align="center" bgcolor="#B5DAFF">增加子版块</td>
        </tr>
        <tr> 
          <td height="100" valign="top" bgcolor="#EFEFEF"> <form name="form4" method="post" action="">
              <table width="100%" border="0">
                <tr> 
                  <td width="34%" align="right">所属大版块</td>
                  <td width="66%"> <% 
	             sql="select * from bbs_board order by bid"
	             set rscust=Server.Createobject("ADODB.Recordset")
                 rscust.open sql,conn,1,3%> <select name="board" class="input" id="board">
                      <%do while not rscust.eof%>
                      <option value="<%= rscust("bid") %>"><%= rscust("board")  %></option>
                      <%  rscust.movenext 
					loop
					set rscust=nothing%>
                    </select> </td>
                </tr>
                <tr> 
                  <td align="right">输入新子版块</td>
                  <td><input name="add_suboard" type="text" class="input" id="add_suboard" maxlength="20"></td>
                </tr>
                <tr> 
                  <td align="right">&nbsp;</td>
                  <td><input name="Submit" type="submit" id="Submit" value="增加子版"></td>
                </tr>
                <tr> 
                  <td align="right">&nbsp;</td>
                  <td>&nbsp;</td>
                </tr>
              </table>
            </form></td>
        </tr>
      </table></td>
    <td width="33%"><table width="100%" border="0">
        <tr> 
          <td align="center" bgcolor="#B5DAFF">子版块改名</td>
        </tr>
        <tr> 
          <td height="100" valign="top" bgcolor="#EFEFEF"> <form method="post" name="form_subren" onsubmit="return subren_form()()">
              <table width="100%" border="0">
                <tr> 
                  <td width="33%" align="right">选择子版块</td>
                  <td width="67%"> <select name="suboard_name" class="input">
                      <% 
				sql="select * from bbs_board order by bid"
				set rscust=Server.Createobject("ADODB.Recordset")
  			    rscust.open sql,conn,1,3
				 do while not rscust.eof%>
                      <% 
				sqlstr="select * from bbs_suboard where bid="&rscust("bid")&" order by subid"
				set rs=Server.Createobject("ADODB.Recordset")
        		 rs.open sqlstr,conn,1,3
    			do while not rs.eof
				 %>
                      <option value="<%= rs("subid") %>"><%= rscust("board")%> 
                      -&gt; <%= rs("suboard")%></option>
                      <% rs.movenext
	                 loop
	                 set rs=nothing
                     %>
                      <% rscust.movenext
	                 loop
	                 set rscust=nothing
                     %>
                    </select></td>
                </tr>
                <tr> 
                  <td align="right">改为为:</td>
                  <td><input name="suboard_rename" type="text" class="input" maxlength="20"> 
                  </td>
                </tr>
                <tr> 
                  <td align="right">&nbsp;</td>
                  <td><input name="Submit3" type="submit" id="Submit3" value="改名"></td>
                </tr>
                <tr> 
                  <td align="right">&nbsp;</td>
                  <td>&nbsp;</td>
                </tr>
              </table>
            </form></td>
        </tr>
      </table></td>
  </tr>
</table>
<br>
<table width="96%" border="0" align="center">
  <tr> 
    <td align="center" bgcolor="#B5DAFF">锁定版块,不能发表贴子</td>
  </tr>
  <tr> 
    <td height="100" valign="top" bgcolor="#EFEFEF"> <form name="form7" method="post">
        <table width="100%" border="0">
          <tr> 
            <td width="33%" align="right">&nbsp;</td>
            <td width="67%"> 
              <% 
				sql="select * from bbs_board order by bid"
				set rscust=Server.Createobject("ADODB.Recordset")
  			    rscust.open sql,conn,1,3
				 do while not rscust.eof%>
              <% 
				sqlstr="select * from bbs_suboard where bid="&rscust("bid")&" order by subid"
				set rs=Server.Createobject("ADODB.Recordset")
        		 rs.open sqlstr,conn,1,3
    			do while not rs.eof
				 %>
              <input name="stopflag" type="checkbox" value="<%= rs("subid") %>" <% if rs("stopflag")=true then%>checked<%end if%>> 
              <%= rscust("board")%> -&gt; <%= rs("suboard")%> <br> 
              <% rs.movenext
	                 loop
	                 set rs=nothing
                     %>
              <% rscust.movenext
	                 loop
	                 set rscust=nothing
                     %>
            </td>
          </tr>
          <tr> 
            <td align="right">&nbsp;</td>
            <td>&nbsp; </td>
          </tr>
          <tr> 
            <td align="right">&nbsp;</td>
            <td><input type="submit" name="Submit" value="锁定版块"></td>
          </tr>
          <tr> 
            <td align="right">&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
        </table>
      </form></td>
  </tr>
</table>
</body>
</html>