adminarealist.asp

来自「ASPTest 网络基础网页设计」· ASP 代码 · 共 28 行

<%
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
%>