<% option explicit %> <% if session("purview")="" then response.write "错误!!您没有权限或者连接超时,请重新登陆." %> 登陆 <% response.end end if dim isedit '是否在修改状态 dim color '表格颜色 dim sql,rs,rsc dim border dim borderid,bordername dim number '每页显示的文章数目 dim auditer '审核员是否有编辑文章的权限 dim articlefrom '文章来源 dim status '新文章添加时的状态 dim curpage, i,page border="" color=1 function invert(str) invert=replace(replace(replace(replace(str,"<","<"),">",">"),"
",chr(13))," "," ") end function if session("purview")<"99998" then '检查录入员是否有操作该版面的权限 if not cstr(request("typeid"))=cstr(session("purview")) then response.write "错误!!您没有权限或者连接超时,请重新登陆." %> 登陆 <% response.end end if end if set rs=server.createobject("adodb.recordset") '查找每页显示文章数目,审核员权限,文章来源,新文章添加时的状态 rs.open "select * from news_parameter where parameterid=1",conn,1,1 if not rs.bof and not rs.eof then number=rs("newsnumber") articlefrom=rs("articlefrom") status=rs("newsstatus") if rs("auditer")=1 then auditer=1 else auditer=0 end if else number=5 '默认值 auditer=0 articlefrom="" status=0 end if rs.close set rs=nothing isedit=false if request("action")="edit" then isedit=true end if if request("bordername")="无专栏文章" and request("typeid")<>"" then '查找无专栏文章所属的type set rs=server.createobject("adodb.recordset") rs.open "select * from border where bordername='无专栏文章' and typeid=" & cstr(request("typeid")),conn,1,1 if not rs.bof and not rs.eof then borderid=cstr(rs("borderid")) end if rs.close set rs=nothing else borderid=cstr(request("borderid")) end if if request("isaudit")="ok" then '*******通过审核********** sql="update news set audit=1" & ",auditer='" & cstr(session("name")) & "' where newsid=" & cstr(request("newsid")) conn.execute sql end if if request("isaudit")="cancel" then '*******取消审核********** sql="update news set audit=0" & ",auditer='" & cstr(session("name")) & "' where newsid=" & cstr(request("newsid")) conn.execute sql end if if request("action")="del" then '*****************删除文章****************** sql="delete from news where newsid=" & cstr(request("newsid")) conn.execute sql sql="delete from review where newsid=" & cstr(request("newsid")) conn.execute sql %> <% end if %> 新闻管理 <% set rs=server.createobject("adodb.recordset") rs.open "select * from news where borderid=" & cstr(borderid) & " order by ntime desc ",conn,1,1 if err.number <> 0 then response.write "数据库出错" else if rs.bof and rs.eof then rs.close response.write "该专栏目前没有新闻" else %> <% if request("page")="" then curpage = 1 else curpage = cint(request("page")) end if rs.pagesize=cint(number) rs.absolutepage = curpage for i = 1 to rs.pagesize %> <% rs.movenext color=color+1 if rs.eof then i = i + 1 exit for end if next %>
新闻标题
加入时间
状态
最后修改
最后审核
操作
">" target=_blank><%=rs("topic")%> ">
<%=rs("ntime")%>
 ">
<% if rs("audit")=1 then response.write "已审核" else response.write "未审核" end if %>
 ">
<%=rs("modify")%>
 ">
<%if rs("auditer")<>"" then response.write rs("auditer") else response.write "-----" end if %>
 ">
<% if session("purview")>="99998" then if rs("audit")=1 then %> &typeid=<%=rs("typeid")%>&borderid=<%=rs("borderid")%>&isaudit=cancel&page=<%=request("page")%>">取消审核  <% else %> &typeid=<%=rs("typeid")%>&borderid=<%=rs("borderid")%>&isaudit=ok&page=<%=request("page")%>"> 通过审核  <% end if end if %>编辑 删除
<% response.write "
" response.write "第" + cstr(curpage) + "页/总" + cstr(rs.pagecount) + "页 " response.write "本页" + cstr(i-1) + "条/总" + cstr(rs.recordcount) + "条 " if curpage = 1 then response.write "首页 前页 " else response.write "首页 前页 " end if if curpage = rs.pagecount then response.write "后页 末页" else response.write "后页 末页" end if end If end if 'rs.close set rs=nothing %>
<%if auditer=1 or session("purview")="99999" or cstr(request("typeid"))=cstr(session("purview")) then '审核员有编辑文章的权限 if isedit then set rs=server.createobject("adodb.recordset") rs.open "select * from news where newsid=" & cstr(request("newsid")),conn,1,1 response.write "

编 辑 文 章

" else response.write "

添 加 新 文 章

" end if %>

*标题:

所属专栏:                                                   

*关键字:

<% if isedit then response.write "*" end if%>时 间: >

图片:
<% if isedit then if cstr(rs("imgsize"))<>0 then %> 不改变现有的图片 修改图片 <% end if end if %> (图片限*.jpg和*.gif格式)

文章来源:

文章作者:

*

<% if session("purview")>="99998" then %>

状态:        >已审核        1 then response.write "checked" end if end if%>>未审核           

<% end if %>

<%end if 'if auditer=1 or session("purview")="99999" %>