<!--#include file="admin_start.asp"-->
<%
dim object_id
Set fso = CreateObject("Scripting.FileSystemObject")

object_id=trim(request("id"))

if not MySys.check.isInteger(object_id) then
MySys.error.info="请提交合法的广告id！"
MySys.error.location="back"
MySys.error.err()
end if

conn.execute("delete from jins_object_list where object_id="&object_id&" and object_ads=1 ")
rs.open"select ads_src from jins_site_ads where object_id="&object_id&" ",conn,1,1
do while not rs.eof

	if fso.FileExists(server.mappath("../"&rs("ads_src"))) then fso.deletefile server.mappath("../"&rs("ads_src")),true
 
rs.movenext
loop
rs.close
conn.execute("delete from jins_site_ads where object_id="&object_id&" ")

MySys.error.info="广告栏目删除成功！"
MySys.error.location="back"
MySys.error.suc()
%>
<!--#include file="admin_end.asp"-->