/admin/art/delscl.asp

https://github.com/74hu/74hujz · ASP · 34 lines · 32 code · 2 blank · 0 comment · 1 complexity · 169c231676a47f82c2ad4d48d01e1a6c MD5 · raw file

  1. <!-- #include file="../ding.asp" -->
  2. <!-- #include file="mymin.asp" -->
  3. <%Call Head()%>
  4. <card title="文章删除结果">
  5. <p>
  6. <% dim rs,sql,id
  7. id=request.QueryString("id")
  8. if id="" or IsNumeric(id)=False then
  9. Call Error("ID无效!")
  10. end if
  11. classid=int(request.QueryString("classid"))
  12. call conndata
  13. set rs=server.createobject("adodb.recordset")
  14. rs.open "Select * from 74hu_article where id="&id ,conn,2,3
  15. If Not rs.eof Then
  16. rs.delete
  17. Response.Write "文章删除成功!"
  18. else
  19. Response.Write "文章删除失败!可能已删除或者文章不存在"
  20. rs.close
  21. set rs=nothing
  22. conn.close
  23. set conn=nothing
  24. end if
  25. %>
  26. <br/>----------<br/>
  27. <a href="adminsmscl.asp?sid=<%=sid%>&amp;id=<%=classid%>">[文章列表]</a><br/>
  28. <a href="wzclass.asp?sid=<%=sid%>&amp;id=<%=id%>">[文章分类]</a><br/>
  29. <a href="../index.asp?sid=<%=sid%>">[后台管理]</a>
  30. </p>
  31. </card>
  32. </wml>