deletearticle.asp

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

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

<!-- #include file="cnOpen.asp" -->
<%
Set rsDelete = Server.CreateObject("ADODB.RecordSet")

'如果请求来自ContentList.asp中的删除文章链接，则输出是否确认删除的链接
If Request("ArticleID") <> "" And Request("submit")="" Then
  Session("ArticleID") = Request("ArticleID")
%>
  <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="DeleteArticle.asp?submit=Yes">确定</a></td>
      <td width="50%" height="23" align="center" bgcolor="#C0C0C0"><a href="DeleteArticle.asp?submit=No">取消</a></td>
    </tr>
  </table>
<%
'请求来自本页面，用户确认删除该文章，进行删除操作 
ElseIf Request("submit")="Yes" Then
  rsDelete.Open "DELETE FROM Lily_Article WHERE ArticleID="&Session("ArticleID"),cn
  rsDelete.Open "DELETE FROM Lily_Reply WHERE ArticleID="&Session("ArticleID"),cn
%>
  <p align="center"><font color="red">成功删除文章！</font>
  <!-- #include file="ShowTitle.asp" -->
<%
'请求来自本页面，用户取消删除该文章，提示用户已取消该删除操作 
ElseIf Request("submit")="No" Then
%>
  <p align="center"><font color="red">取消删除文章操作！</font>
  <!-- #include file="ShowContent.asp" -->
<%
End If
Set rsDelete = Nothing
%>
<!-- #include file="cnClose.asp" -->

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