<% call log_chk() dim title,picpath,Bid,Sid,Bname,Sname,d_content,note,tlink,odr,zhaiyao,canshu,cppz,jscs title=trim(request("title")) picpath=request("picpath") Bid=request("Bid") Sid=request("Sid") Bname=request("Bname") Sname=request("Sname") 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="" then call backurl("标题不能为空!") else Set rs=Server.Createobject("Adodb.Recordset") sql="select * from bdcp order by cxp_id desc" rs.open sql,conn,1,3 rs.addnew rs("cxp_name")=title rs("Fileurl")=picpath rs("cb_id")=Bid if Sid<>"" then rs("cs_id")=Sid end if if tj<>"" then rs("cxp_tj")=tj end if if odr<>"" then rs("cxp_order")=odr end if rs("cxp_cont")=d_content rs("cxp_zy")=request("zhaiyao") rs("cxp_cppz")=request("cppz") rs("cxp_note")=jscs rs("cxp_cs")=request("canshu") rs("cxp_link")=tlink rs("cxp_Author")=session("adminxxx") rs("cxp_time")=now() rs.update rs.close set rs=nothing call GoUrl("Padd.asp?Bid="&Bid&"&Sid="&Sid&"&Bname="&Bname&"&Sname="&Sname&"","添加成功") end if %>