<!--#include file="admin_start.asp"-->

<%
dim id
dim qu
dim grade
dim show
dim i_s

id=trim(request("id"))

if not MySys.check.isInteger(id) then
MySys.error.info="请选择您要编辑的广告！"
MySys.error.location="back"
MySys.error.err()
end if

'///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
rs.open "select * from jins_site_ads where object_id="&id&" ",conn,1,3
if rs.eof then
MySys.error.info="您要编辑的广告不存在！"
MySys.error.location="back"
MySys.error.err()
else
rs("ads_alt")=request.form("ads_alt")
rs("ads_url")=request.form("ads_url")

if rs("ads_src")<>request.form("ads_src") then
	if instr(1,rs("ads_src"),"http://")=0 then
		Set fso = CreateObject("Scripting.FileSystemObject")
		if fso.FileExists(server.mappath("../"&rs("ads_src"))) then fso.deletefile server.mappath("../"&rs("ads_src")),true
		Set fso = nothing
    end if
end if

rs("ads_src")=request.form("ads_src")

if rs("ads_src")<>"" then
	if instr(1,rs("ads_src"),"http://")=0 then
		set im=MySys.image
		ims=im.showimage(server.mappath("../"&rs("ads_src")),rs("ads_width"),rs("ads_height"))
		rs("ads_width")=ims(0)
		rs("ads_height")=ims(1)
		set im=nothing
	end if
end if

rs("ads_flash")=int(request.form("ads_flash"))
rs("ads_width")=request.form("ads_width")
rs("ads_height")=request.form("ads_height")
rs("ads_style")=request.form("ads_style")
'rs("ads_addtime")=now()
rs("ads_open")=1
'rs("ads_num")=1
rs.update
end if
rs.close

Session("FB_EM_1_ACC_uppath")=""

MySys.error.info="广告栏目编辑成功！"
MySys.error.location="admin/admin_site_ads_list.asp"
MySys.error.suc()
%>
<!--#include file="admin_end.asp"-->