adminboardlist.asp

来自「网站的源码」· ASP 代码 · 共 51 行

<%
Set rsArea = Server.CreateObject("ADODB.RecordSet")
Set rsBoard = Server.CreateObject("ADODB.RecordSet")
rsArea.Open "SELECT * FROM Lily_Area",cn
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="500" align="center">
  <tr>
    <td width="25%" height="22" bgcolor="#336699">
    <font color="#FFFFFF">版面名称</font></td>
    <td width="25%" height="22" bgcolor="#336699">
    <font color="#FFFFFF">修改版面</font></td>
    <td width="25%" height="22" bgcolor="#336699">
    <font color="#FFFFFF">删除版面</font></td>
  </tr>
<%
Do While Not rsArea.Eof
  %>
  <tr>
    <td width="75%" height="22" colspan="3">
      所属讨论区：<%=rsArea("AreaName")%> |
      <a href="AdminBoardNew.asp?AreaID=<%=rsArea("AreaID")%>">新增该讨论区版面</a>
    </td>
  </tr>
  <%
  rsBoard.Open "SELECT * FROM Lily_Board WHERE AreaID="&rsArea("AreaID"),cn
  Do While Not rsBoard.Eof
    %>
    <tr>
      <td width="25%" height="22" bgcolor="#B5C7EC">
        <%=rsBoard("BoardName")%>　
      </td>
      <td width="25%" height="22" bgcolor="#D8E1F5">
        <a href="AdminBoardEdit.asp?BoardID=<%=rsBoard("BoardID")%>&BoardName=<%=rsBoard("BoardName")%>">修改名称</a>
      </td>
      <td width="25%" height="22" bgcolor="#B5C7EC">
        <a href="AdminBoardDelete.asp?BoardID=<%=rsBoard("BoardID")%>">删除</a>
      </td>
    </tr>
    <%
    rsBoard.MoveNext
  Loop
  rsBoard.Close  
  rsArea.MoveNext
Loop
%>
</table>
<%
rsArea.Close
Set rsArea = Nothing
Set rsBoard = Nothing
%>