📄 adminboardlist.asp
字号:
<%
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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -