sort_del.asp

这是一个物流网站的源代码

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Config.asp"-->
<%
Dim Language
Language=formatStr(Request("Language"))
table_behind="NewsSort_"
table=Get_Table(table_behind,Language)
id=Request("id")
If id="" or not isnumeric(id) then Check_Alert "非法操作","Sort_admin.asp"

rs.open"select * from "&table&" where NS_ParentID="&id,conn,1,3
if not rs.eof then
   check_alert "此分类下面还有子类，请先把子类删掉",request.ServerVariables("HTTP_REFERER")
else
   set rspro=server.CreateObject("adodb.recordset")
   rspro.open"select * from News where N_Sortid="&id,conn,1,3
   if not rspro.eof then
      check_alert "此分类下面还有新闻，请先把产品删掉",request.ServerVariables("HTTP_REFERER")
   else
      set rsdel=server.CreateObject("adodb.recordset")
	  rsdel.open"select * from "&table&" where NS_ID="&ID,conn,1,3
	     conn.execute("update "&table&" set NS_Order=NS_Order-1 where NS_ParentID="&rsdel("NS_ParentID")&" and NS_Order>"&rsdel("NS_Order"))
	  rsdel.delete
	  rsdel.update 

	  rsdel.close
	  set rsdel=nothing
   end if
   rspro.close
   set rspro=nothing
end if
rs.close
set rs=nothing

Response.Write("<center>删除分类成功，<a href='Sort_Admin.asp?Language="&Language&"'>返回</a>")
%>