adminareadelete.asp

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

<!-- #include file="..\Top.asp" -->

<!-- #include file="cnOpen.asp" -->
<!-- #include file="AdminTable.htm" -->
<%
Dim rsDelete,rsBoard
Set rsDelete = Server.CreateObject("ADODB.RecordSet")
Set rsBoard = Server.CreateObject("ADODB.RecordSet")
If Request("AreaID") <> "" Then
  Session("AreaID") = Request("AreaID")
%>
  <p align="center"><font color="red">警告！此操作将删除该讨论区、其下所有版面及所有文章与回复，一定要删除该讨论区吗？</font></p>
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="15%" align="center" height="23">
    <tr>
      <td width="50%" height="23" align="center" bgcolor="#C0C0C0"><a href="AdminAreaDelete.asp?submit=Yes">确定</a></td>
      <td width="50%" height="23" align="center" bgcolor="#C0C0C0"><a href="AdminAreaDelete.asp?submit=No">取消</a></td>
    </tr>
  </table>
<%
ElseIf Request("submit") = "Yes" Then
  rsDelete.Open "DELETE FROM Lily_Area WHERE AreaID="&Session("AreaID"),cn
  rsBoard.Open "SELECT BoardName FROM Lily_Board WHERE AreaID="&Session("AreaID"),cn
  Do While Not rsBoard.Eof
    rsDelete.Open "DELETE FROM Lily_Article WHERE BoardName='"&Session("BoardName")&"'",cn
    rsDelete.Open "DELETE FROM Lily_Reply WHERE BoardName='"&Session("BoardName")&"'",cn
    rsBoard.MoveNext
  Loop
  rsBoard.Close
  rsDelete.Open "DELETE FROM Lily_Board WHERE AreaID="&Session("AreaID"),cn
  %>
  <p align="center"><font color="red">成功删除该讨论区及讨论区相关资料</font></p>
  <!-- #include file="AdminAreaList.asp" -->
<%
ElseIf Request("submit") = "Yes" Then
  %>
  <p align="center"><font color="red">取消删除该讨论区</font></p>
  <!-- #include file="AdminAreaList.asp" -->
<%    
End If
Set rsDelete = Nothing
Set rsBoard = Nothing  
%>
<!-- #include file="cnClose.asp" -->

<!-- #include file="..\Bottom.htm" -->