xuanjuAsp/xafch315/News/NCBdel.asp

<!--#include file="../bdcommx/connxyz.asp"-->
<%
		call log_chk()
		theX=trim(request("theX"))
		if theX<>"" then
'-----------------判断小类是否为空！
		set rs1=conn.execute("select * from nsclass where nb_id="&theX&"")
		if not rs1.eof and not rs1.bof then
		call backurl("该大类下小类有信息，您不能删除！")
		rs1.close
		set rs1=nothing
		end if
'-----------------删除大类！为彻底，也删除小类以及相关新闻
		conn.Execute("delete from nbclass where nb_id="&theX&"")
		conn.Execute("delete from nsclass where nb_id="&theX&"")
		conn.Execute("delete from bdnews where nb_id="&theX&"")
		conn.Close
		Set conn=Nothing
        response.write"<SCRIPT language=JavaScript>alert('删除成功！');"
		response.write"this.location.href='NCMag.asp';</SCRIPT>" 
		response.end
		end if
%>