sort_del.asp

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

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Config.asp"-->
<%
Dim Language
Language=formatStr(Request("Language"))
table_behind="ProductSort_"
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 PS_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 Product where P_Language='"&Language&"' and P_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 PS_ID="&ID,conn,1,3
	     conn.execute("update "&table&" set PS_Order=PS_Order-1 where PS_ParentID="&rsdel("PS_ParentID")&" and PS_Order>"&rsdel("PS_Order"))
		 set delImg=createobject("scripting.filesystemobject")
		 if left(rsdel("PS_Pic"),4)=cstr(year(now())) then		 
		   delsImg=trim(rsdel("PS_Pic"))
		   delsImg=server.mappath("../../uploadfile/product_sort/"&delsImg)
		   if delimg.fileexists(delsImg) then
		      delImg.deletefile(delsImg)
		   end if
		 end if   

	  rsdel.delete
	  rsdel.update 
	  
	  set delImg=nothing 
	  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>")
%>