<!--#include file="top.asp"-->
<%if userflag1=0 then
response.redirect"ok.asp?action=flag"
end if

did=request("did")
cpname=Request("cpname")
sortid=Request("sortid")
cpjg=Request("cpjg")
cpjl=Request("cpjl")
jgdw=request("jgdw")
cpbh=request("cpbh")
if cpbh="" then cpbh=null
cpcd=request("cpcd")
if cpcd="" then cpcd=null
cpgg=request("cpgg")
if cpgg="" then cpgg=null
cpjm=request("cpjm")
cpsm=request("cpsm")
if cpsm="" then cpsm="暂无"
pic=Request("dlxf_pic")
if pic="" then pic="img/null.gif"

set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from dlxf_cp where dlxf_id="&did
rs.open sql,conn,1,1
aaa=rs("dlxf_ypxxone_id")
bbb=rs("dlxf_ypxxtwo_id")
rs.close
if request("ypxxtwo_id")="" then
ypxxone_id=aaa
ypxxtwo_id=bbb
else
ypxxone_id=request("ypxxone_id")
ypxxtwo_id=request("ypxxtwo_id")
end if

set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from dlxf_cp where dlxf_id="&did&" and dlxf_yp_id="&session("id")
rs.open sql,conn,1,3

if userflag1=0 then
errstyle="·对不起，此功能已对"&vipshow&"关闭！"
scripterr
end if

rs("dlxf_pic")=pic
rs("dlxf_cpname")=cpname
rs("dlxf_sortid")=sortid
rs("dlxf_cpjg")=cpjg
rs("dlxf_cpjgdw")=jgdw
rs("dlxf_cpjl")=cpjl
rs("dlxf_cpbh")=cpbh
rs("dlxf_cpcd")=cpcd
rs("dlxf_cpgg")=cpgg
rs("dlxf_ypxxone_id")=ypxxone_id
rs("dlxf_ypxxtwo_id")=ypxxtwo_id
rs("dlxf_cpjm")=cpjm
rs("dlxf_cpsm")=cpsm
rs("dlxf_key1")=application("citycpkey")
rs.update
rs.close
set rs=nothing

conn.close
set conn = nothing

if application("citycpkey")=1 then
response.redirect"ok.asp?url=cp.asp"
else
response.redirect"ok.asp?url=cp.asp&key=yes"
end if
%>
