<%Function chgenter(str) t1="" for i=1 to len(str) h=mid(str,i,1) if asc(h)=10 then h="
" if asc(h)=13 then h="" t1=t1+h next str=t1 chgenter=str End Function%> <%call log_chk() dim thex,title,npdcla,picpath,tlink,note,tj,d_content,Bname,Sname,odr thex=request("thex") Bname=request("Bname") Sname=request("Sname") title=trim(request("title")) npdcla=request("npdcla") picpath=request("picpath") tlink=request("tlink") note=request("note") tj=request("tj") dt=request("select_date") dianji=request("dianji") 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 bdnews where nws_id="&thex&"" rs.open sql,conn,1,3 rs("nws_title")=title myA=split(npdcla,"|") rs("nb_id")=myA(0) rs("ns_id")=myA(1) rs("nws_zd")=zd if tj<>"" then rs("nws_tj")=1 else rs("nws_tj")=0 end if if odr<>"" then rs("nws_order")=odr end if rs("Fileurl")=picpath rs("nws_link")=tlink rs("nws_note")=chgenter(note) rs("nws_cont")=d_content rs("nws_Author")=session("adminxxx") rs("nws_time")=dt rs("nws_click")=dianji rs.update rs.close set rs=nothing call GoUrl("Nmod.asp?thex="&thex&"&Bname="&Bname&"&Sname="&Sname&"","修改成功") end if%>