<%id = request("id")
wz = request("wz")
mc = request("mc")
code = request("dcode")
show = request("show")
if mc <> "" then
set rs = server.CreateObject("adodb.recordset")
if id <> "" then
sql = "select * from yrwl_ad_dhl where id = " + id
rs.open sql,conn,1,3
else
sql = "select * from yrwl_ad_dhl"
rs.open sql,conn,1,3
rs.addnew
end if
rs("wz") = wz
rs("mc") = mc
rs("cl") = show
rs("dcode") = code
rs.update
rs.close
response.redirect "ad_admin.asp"
end if
if id <> "" then
exec="select * from yrwl_ad_dhl where id="+id
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,3,1
wz = rs("wz")
mc = rs("mc")
code = rs("dcode")
show = rs("cl")
rs.close
call close_conn
end if%>