| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960 |
- <!--#include file="../bdcommx/connxyz.asp"-->
- <%Function chgenter(str)
- t1=""
- for i=1 to len(str)
- h=mid(str,i,1)
- if asc(h)=10 then h="<br>"
- 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%>
|
