<% call log_chk() dim thex,title,npdcla,picpath,tlink,note,d_content,Bname,Sname,odr,zhaiyao,canshu,cppz,jscs thex=request("thex") Bname=request("Bname") Sname=request("Sname") title=trim(request("title")) npdcla=request("npdcla") picpath=request("picpath") tlink=request("tlink") zhaiyao=request("zhaiyao") canshu=request("canshu") jscs=request("note") cppz=request("cppz") tj=request("tj") odr=request("odr") d_content=request("d_content") if title="" or npdcla="" then call backurl("标题或者类别不能为空!") else Set rs=Server.Createobject("Adodb.Recordset") sql="select * from bdcp where cxp_id="&thex&"" rs.open sql,conn,1,3 rs("cxp_name")=title myA=split(npdcla,"|") rs("cb_id")=myA(0) rs("cs_id")=myA(1) rs("cxp_zd")=zd if odr<>"" then rs("cxp_order")=odr end if rs("Fileurl")=picpath rs("cxp_link")=tlink rs("cxp_zy")=request("zhaiyao") rs("cxp_cppz")=request("cppz") rs("cxp_note")=jscs rs("cxp_cs")=request("canshu") rs("cxp_cont")=d_content rs("cxp_Author")=session("adminxxx") rs("cxp_time")=now() rs.update rs.close set rs=nothing call GoUrl("Pmod.asp?thex="&thex&"&Bname="&Bname&"&Sname="&Sname&"","修改成功") end if %>