sort_del.asp

来自「这是一个物流网站的源代码」· ASP 代码 · 共 39 行

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Config.asp"-->
<%
Dim Language
Language=formatStr(Request("Language"))
if Language="" then Language="C"
if Language="C" then
	table="hfrom"
	zid="hf_id"
	ziduan="hf_name"
	ziduan2="h_from"
elseif Language="E" then
	table="hto"
	zid="ht_id"
	ziduan="ht_name"
	ziduan2="h_to"
else
	table="harea"
	zid="ha_id"
	ziduan="ha_name"
	ziduan2="h_area"
end if  
id=Request("delid")
If id="" then Check_Alert "非法操作","Sort_admin.asp"
   set rspro=server.CreateObject("adodb.recordset")
   rspro.open"select * from houyun where "&ziduan2&"="&id,conn,1,3
   if not rspro.eof then
      check_alert "此分类下面还有路线，请先把路线删掉",request.ServerVariables("HTTP_REFERER")
   else
      conn.execute("delete from "&table&" where "&zid&" in("&id&")")
	  check_alert "删除成功!","Sort_Admin.asp?Language="&Language
   end if
   rspro.close
   set rspro=nothing
%>