<% dim page,bbsid,tid,newContent,TP,newtitle,act act=clng(request("act")) if page="" then page="1" bbsid=request("bbsid") tid=request("tid") newtitle=Forbbs(request("newtitle")) newContent=forbbs(request("newContent")) if tid="" or IsNumeric(tid)=False then Call Error("ID无效！") end if if bbsid="" or IsNumeric(bbsid)=False then Call Error("ID无效！") end if TP=request("TP") if TP<>"" then if act=2 then if newtitle="" then Call Error("标题不能为空！") end if end if if newContent="" then Call Error("内容不能为空！") end if newContent=replace(newContent,"sid=sid","sid=@@sid@@") set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from sell where id="&tid,conn,1,2 if rs("fid")<>myid and keys<>1 and adminzone<>abs(bbsid) then Call Error("权限不足！") end if if act=1 then rs("txt")=rs("txt")+"[续]"+newContent else rs("name")=newtitle rs("txt")=newContent+"[br]["&fordate(now)&"被"&myni&"编辑]" end if rs.update rs.close set rs=nothing response.write"编辑成功！
" else set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from sell where id="&tid,conn,1,1 if rs("fid")<>myid and keys<>1 and adminzone<>abs(bbsid) then Call Error("权限不足！") end if if act=1 then Response.Write "续写内容：
" Response.Write "
" else dim V_content V_content=rs("txt") V_content=replace(V_content,"sid=@@sid@@","sid=sid") Response.Write "帖子标题：
" Response.Write "
" Response.Write "帖子内容：
" Response.Write "
" end if rs.close set rs=nothing conn.close set conn=nothing Response.Write "[确定提交]" Response.Write "" if act=2 then Response.Write "" end if Response.Write "" Response.Write "" Response.Write "" Response.Write "
" Response.Write "编辑附件帖子
" end if Response.Write "返回上级" %>