📄 adminarealist.asp
字号:
<%
Set rsArea = 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%" align="center" height="30">讨论区名称</td>
<td width="25%" align="center" height="30">修改讨论区</td>
<td width="25%" align="center" height="30">删除讨论区</td>
</tr>
<%
Do While Not rsArea.Eof
%>
<tr>
<td width="25%" align="center" height="30"><%=rsArea("AreaName")%> </td>
<td width="25%" align="center" height="30"><a href="AdminAreaEdit.asp?AreaID=<%=rsArea("AreaID")%>&AreaName=<%=rsArea("AreaName")%>">修改名称</a></td>
<td width="25%" align="center" height="30"><a href="AdminAreaDelete.asp?AreaID=<%=rsArea("AreaID")%>">删除</a></td>
</tr>
<%
rsArea.MoveNext
Loop
%>
</table>
<p align="center"><a href="AdminAreaNew.asp">新增讨论区</a></p>
<%
rsArea.Close
Set rsArea = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -