<% 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 "


修改成功,返回

谢谢您使用本系统
" rs.close set rs=nothing cn.close set cn=nothing response.end %>