<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% call iderror Set rs = server.CreateObject("adodb.recordset") sql = "select * from mj_article_category where id = "&request.QueryString("ID")&"" rs.Open sql, conn, 2, 3 If rs.EOF Then Call close_rs Call close_conn Call infoback("不存在此数据！") Else Set rss = server.CreateObject("adodb.recordset") sql = "select * from mj_article_category where mj_article_category_parent = "&request.QueryString("ID")&"" rss.Open sql, conn, 1, 1 If Not rss.EOF Then rss.close set rss = nothing Call close_conn Call infoback("此分类下包含子类，请先删除子类！") End If rs.Delete rs.Update Call close_rs sql = "delete from mj_article where mj_article_category = "&request.QueryString("ID")&"" conn.Execute ( sql ) Call close_conn Call infohref("删除成功！", "mj_article_category.asp") End If %>