%
on error resume next
if request("lb_id")="0" then
response.Write""
response.End()
end if
lb_id=split(request("lb_id"),"-")
for i=0 to ubound(lb_id)
sort_id=lb_id(0)
nsort_id=lb_id(1)
nnsort_id=lb_id(2)
next
if nsort_id="" then
nsort_id=0
end if
if nnsort_id="" then
nnsort_id=0
end if
id=request("id")
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from cp where id="&id,cn,1,3
rs("s1")=request("s1")
rs("es1")=request("es1")
rs("s2")=request("s2")
rs("s3")=request("s3")
rs("s4")=request("s4")
rs("s4z1")=request("s4z1")
rs("s4z2")=request("s4z2")
rs("s5")=request("s5")
rs("s6")=request("s6")
rs("fs7")=request("fs7")
rs("s7")=request("s7")
rs("es7")=request("es7")
rs("s8")=request("s8")
rs("fs1")=request("fs1")
rs("sort_id")=sort_id
rs("nsort_id")=nsort_id
rs("nnsort_id")=nnsort_id
rs("tpdz")=request("tpdz")
rs("tpdz1")=request("tpdz1")
rs("tpdz2")=request("tpdz2")
rs("tpdz3")=request("tpdz3")
rs("tpdz4")=request("tpdz4")
rs("sfmyf")=request("sfmyf")
rs("jhdlb_id")=request("jhdlb_id")
rs("lr")=request("lr")
rs("cbjg")=request("cbjg")
rs("dtpdz")=request("dtpdz")
rs("xwlb_id")=request("xwlb_id")
rs.update
response.write "