adminboarddelete.asp

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

<!-- #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("BoardID") <> "" Then
  Session("BoardID") = Request("BoardID")
%>
  <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="AdminBoardDelete.asp?submit=Yes">确定</a></td>
      <td width="50%" height="23" align="center" bgcolor="#C0C0C0"><a href="AdminBoardDelete.asp?submit=No">取消</a></td>
    </tr>
  </table>
<%
ElseIf Request("submit") = "Yes" Then
  rsBoard.Open "SELECT BoardName FROM Lily_Board WHERE BoardID="&Session("BoardID"),cn
  rsDelete.Open "DELETE FROM Lily_Article WHERE BoardName='"&Session("BoardName")&"'",cn
  rsDelete.Open "DELETE FROM Lily_Reply WHERE BoardName='"&Session("BoardName")&"'",cn
  rsBoard.Close
  rsDelete.Open "DELETE FROM Lily_Board WHERE BoardID="&Session("BoardID"),cn
  %>
  <p align="center"><font color="red">成功删除该版面及版面相关资料</font></p>
  <!-- #include file="AdminBoardList.asp" -->
<%
ElseIf Request("submit") = "Yes" Then
  %>
  <p align="center"><font color="red">取消删除该版面</font></p>
  <!-- #include file="AdminBoardList.asp" -->
<%    
End If
Set rsDelete = Nothing
Set rsBoard = Nothing  
%>
<!-- #include file="cnClose.asp" -->

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