<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Conn/conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link rel="stylesheet" href="../css/indexTwo.css" type="text/css">
<title>网站后台</title>
</head>
<body>
<%
SortID=request("SortID")
sql="select id from TbNews where sort="&SortID
rs.open sql,conn,1,1
if not rs.eof then
	response.write "<script> alert('该栏目内有信息数据，不允许删除该栏目，请先删除其信息数据');window.document.location.href='News_Sort_List.asp';   </script>"
	response.End()
end if
rs.close

sql="select * from TbNewsSort where id="&SortID
rs.open sql,conn,1,3
if not rs.eof then
	rs.delete
	rs.update
end if
rs.close
response.write "<script> alert('删除成功');window.document.location.href='News_Sort_List.asp';   </script>"
response.End()
%>
</body>
</html>
<!--#include file="../Conn/conn_close.asp"-->