sort_del.asp

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

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Config.asp"-->
<%
Dim Language
Language=formatStr(Request("Language"))
table_behind="LinkSort_"
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 LS_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 link where L_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 LS_ID="&ID,conn,1,3
	     conn.execute("update "&table&" set LS_Order=LS_Order-1 where LS_ParentID="&rsdel("LS_ParentID")&" and LS_Order>"&rsdel("LS_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>")
%>