gusucode.com > 学校共青团组织网站源代码 > 学校共青团组织网站源代码/626/admin/admin_news_list.asp
<% Response.Buffer = True %> <% ON ERROR RESUME NEXT %> <!--#include file = admin_chk.asp --> <!--#include file = admin_conn.asp --> <!--#include file = titleb.asp --> <html> <head> <!--#include file = language.asp --> <STYLE type="text/css"> <!-- a:link { text-decoration: none; font-family: AdobeSm; color: #000000 } a:visited { text-decoration: none; color: #000000 } A:hover {COLOR: green; FONT-FAMILY: "宋体"; TEXT-DECORATION: underline;} body { font-size: 9pt; font-family: 宋体, Arial;color: #000000} TD {FONT-SIZE: 9pt; FONT-FAMILY: "宋体", "Arial";color: #000000} p {FONT-SIZE: 9pt; FONT-FAMILY: "宋体", "Arial";color: #000000} input {FONT-SIZE: 9pt; FONT-FAMILY: "宋体", "Arial";color: #000000} body { margin-top: 0; margin-bottom: 0; color: #000000 } --></STYLE> <script language="JavaScript"> <!-- function FP_jumpMenu(el,frm,sel) {//v1.0 var href=el.options[el.selectedIndex].value; if(sel) el.selectedIndex=0; if('_new'==frm) open(href); else eval(frm+".location='"+href+"'"); } // --> </script> <base target="_self"> </head> <body topmargin="0" bgcolor="#ffffff" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0"> <% delid=trim(request("delid")) tj=trim(request("tj")) sh=trim(Request("sh")) shsh=trim(Request("shsh")) if sh="" then sh=1 delallid=trim(Request("delallid")) id=trim(request("id")) ontopid=trim(Request("ontopid")) ontoplx=trim(Request("ontoplx")) function hrefIDD(ID,filename) if filename<>"0" then hrefidd="../"&filename else hrefidd="../News_View.asp?NewsID="&ID end if end function if ontopid<>"" and ontoplx<>"" then if ontoplx="1" then set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "select ID,ontop,time,updat from [news] where ID="&ontopid&" order by id asc",conn,1,3 if rs.recordcount<>0 then ontoptime=rs("updat") set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open "select id,ontop,time,updat from [NEWS] where updat>"&ontoptime&" and ontop=3 order by updat asc , id asc",conn,1,3 if rs2.recordcount<>0 then rs("updat")=rs2("updat") rs2("updat")=ontoptime rs2.update rs.update end if rs2.close:set rs2=nothing end if rs.close:set rs=nothing end if if ontoplx="0" then set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "select ID,ontop,time,updat from [news] where ID="&ontopid&" order by id asc",conn,1,3 if rs.recordcount<>0 then ontoptime=rs("updat") set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open "select id,ontop,time,updat from [NEWS] where updat<"&ontoptime&" and ontop=3 order by updat desc , id desc",conn,1,3 if rs2.recordcount<>0 then rs("updat")=rs2("updat") rs2("updat")=ontoptime rs2.update rs.update end if rs2.close:set rs2=nothing end if rs.close:set rs=nothing end if end if if delid<>"" then set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "select id,filename from [news] where ID="&delid&" order by id desc",conn,1,1 if rs.recordcount<>0 then filename=rs("filename") if filename<>"0" then sdDel("../"&rs("filename")) end if end if rs.close:set rs=nothing conn.Execute "delete from [news] where ID="&clng(delid) conn.Execute "delete from [newspl] where newsID="&clng(delid) end if if delallid<>"" then delallid=replace(delallid," ","") delid=split(delallid,",") 'Response.Write DELallID for i=0 to ubound(delid) if (isNumeric(delid(i))) then set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "select id,filename from [news] where ID="&delid(i)&" order by id desc",conn,1,1 if rs.recordcount<>0 then filename=rs("filename") if filename<>"0" then sdDel(rs("filename")) end if end if rs.close:set rs=nothing conn.Execute "delete from [news] where ID="&clng(delid(i)) conn.Execute "delete from [newspl] where newsID="&clng(delid(i)) 'Response.Write DELID(i) end if next end if if shsh<>"" and id<>"" then conn.Execute "update [news] set [sh]="&shsh&",[shUsername]='"&Request.Cookies("adminuser")&"' where id="&clng(id) end if if tj<>"" then conn.Execute = "update news set tj='"&tj&"' where ID="&id end if %> <div align="center"> <table border="0" width="100%" id="table2" cellspacing="0" cellpadding="5" bordercolor="#C0C0C0" > <tr> <td background="../images/bj3.jpg"> <p align="center">分类显示: <select size="1" onchange="FP_jumpMenu(this,'window',false)" id="id1" name="D1" style="font-size: 9pt"> <option value>请选择栏目</option> <option value=admin_news_list.asp?all=all>显示所有新闻信息</option> <% sql = "select * from lm where lm<>'' order by id asc" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql,conn,1,1 while not rs.eof 'response.write "<optgroup label=(ID:"&rs("id")&")"&rs("lm")&">" %> <option value='admin_news_list.asp?lm=<%=rs("id")%>' <% if clng(lmid)=clng(rs("id")) then response.write " selected" %>>(ID:<%=rs("id")%>)<%=rs("lm")%></option> <% sql2 = "select * from lm where lmid='"&rs("id")&"' order by id asc" Set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open sql2,conn,1,1 while not rs2.eof %> <option value='admin_news_list.asp?lm=<%=rs2("id")%>' <% if clng(lmid)=clng(rs2("id")) then response.write " selected" %>> ├(ID:<%=rs2("id")%>)<%=rs2("lm2")%></option> <% Set rs33 = Server.CreateObject("ADODB.RecordSet") rs33.Open "select * from [lm] where lmid='"&rs2("id")&"' and LM3<>'' order by id desc",conn,1,1 while not rs33.eof %> <option value='admin_news_list.asp?lm=<%=rs33("id")%>' <% if clng(lmid)=clng(rs33("id")) then response.write " selected" %>> ├(ID:<%=rs33("id")%>)<%=rs33("lm3")%></option> <% rs33.movenext wend rs2.movenext wend rs.movenext wend rs.close set rs=nothing %> </select> </td> </tr> <%if Request.Cookies("admindj")=1 then%> <tr> <td background="../images/bj3.jpg"> <!--webbot BOT="GeneratedScript" PREVIEW=" " startspan --><script Language="JavaScript" Type="text/javascript"><!-- function FrontPage_Form1_Validator(theForm) { if (theForm.title.value == "") { alert("请在 关键字 域中输入值。"); theForm.title.focus(); return (false); } if (theForm.title.value.length < 1) { alert("在 关键字 域中,请至少输入 1 个字符。"); theForm.title.focus(); return (false); } if (theForm.title.value.length > 10) { alert("在 关键字 域中,请最多输入 10 个字符。"); theForm.title.focus(); return (false); } return (true); } //--></script><!--webbot BOT="GeneratedScript" endspan --><form method="POST" action="admin_news_list.asp" name="FrontPage_Form1" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript"> <center> <table border="0" width="100%" id="table3" cellpadding="0" cellspacing="0"> <tr> <td width="407"> <% set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "select sh,id from [News] where sh=2 order by id desc",conn,1,1 shs=rs.recordcount rs.close:set rs=nothing set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "select sh,id from [News] where sh=0 order by id desc",conn,1,1 hszs=rs.recordcount rs.close:set rs=nothing %> <p align="center"><a href="?sh=0">查看回收站(<%=hszs%>)</a> <a href="?sh=2">待审核文章(<%=shs%>)</a> <a href="?sh=1">正常显示的文章</a></td> <td width="106">按标题搜索新闻</td> <td width="476"> <!--webbot bot="Validation" s-display-name="关键字" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="10" --><input type="text" name="title" size="20" maxlength="10" style="border-style: solid; border-width: 1px"> <input type="submit" value="搜索" name="B1" style="border: 1px solid #000000; background-color: #FFFFFF"></td> </tr> </table> </center> </td> </tr> <%end if%> <% lm=trim(request("lm")) if lm<>"" then sql = "select * from lm where id="&lm Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql,conn,1,1 %> <tr> <td align=center><font color=ff0000><B>查看“<%=rs("lm")&rs("lm2")&rs("lm3")%>”的新闻文章</b></font></td> </tr> <%end if%> </table> </div> </form> <% if sh=0 then Response.Write "<center><font style='font-size:17pt;line-height:160%;color=ff0000'><b>回收站的文章</b></font><BR><font color=ff0000>(回收站的文章就是不会显示在前台的文章!)</font>" elseif sh=2 then Response.Write "<center><font style='font-size:17pt;line-height:160%;color=ff0000'><b>待审核文章</b></font>" end if %> <div align="center"> <form action=?delall=1 method=post> <table border="1" id="table1" cellspacing="0" cellpadding="3" width=800 style="border-collapse: collapse" bordercolor="#C0C0C0"> <% ccc="" if sh=1 then ccc="../images/bj5.jpg" else ccc="../images/bg11.gif" end if %> <tr style="background-image: url('<%=ccc%>')"> <td align="center" height="25" width="269"> <font color="#FFFFFF">(编号)标题(阅读)</font></td> <td align="center" height="25" width="99"> <font color="#FFFFFF">栏目</font></td> <td align="center" height="25" width="141"> <font color="#FFFFFF">加入时间</font></td> <td align="center" height="25" width="79"> <font color="#FFFFFF">加入人员</font></td> <td align="center" height="25" width="178"> <font color="#FFFFFF">操作</font></td> </tr> </table> <% lm=trim(request("lm")) title=trim(request("title")) sql = "select title,adduser,id,lm,lm2,lm3,time,hit,ontop,updat,tj,titlecolor,pic,sh,filename,shusername from news where title<>'' " if lm<>"" then sql = sql & " and (lm2='"&lm&"' or lm='"&lm&"' or lm3='"&lm&"') " end if if title<>"" and lm="" then sql = sql & " and title like '%"&title&"%' " end if if Request.Cookies("admindj")="3" then sql= sql &" and adduser='"&Request.Cookies("adminuser")&"' or sh=2 " end if if Request.Cookies("admindj")="2" then sql=sql & " and ( [sh]=2 or [sh]=3 or [adduser]='"&Request.Cookies("adminuser")&"') or [shusername]='"&Request.Cookies("adminuser")&"' " end if if Request.Cookies("admindj")="1" then sql=sql & " and sh="&sh&" " end if sql= sql& " order by ontop desc , updat desc , id desc" 'sql=" exec NewsListall" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql,conn,1,1 if rs.recordcount<>0 then page=request("page") if page<>"" then page=int(page) rs.PageSize=20 pagecount=rs.pagesize if page<=0 then page=1 if request.QueryString("page")="" then page=1 rs.AbsolutePage=page gg=rs.recordcount/pagecount gh=int(gg) if gh<=1 then gh=1 if gg>gh then gh=gh+1 gg=gh bbb=0 for i=1 to pagecount lm2=trim(rs("lm3")) if lm2="0" or lm2="" then lm2=trim(rs("lm2")) if lm2="0" or lm2="" then lm2=trim(rs("lm")) if lm2="" then lm2=0 if (not isNumeric(lm2)) then lm2=0 end if sql2 = "select * from [lm] where [id]="&lm2 Set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open sql2,conn,1,1 if rs2.recordcount<>0 then fontcolor=rs2("fontcolor") if rs("titlecolor")="默认颜色" then fontcolor=rs2("fontcolor") else fontcolor=rs("titlecolor") end if end if %> <table border="1" id="table1" cellspacing="0" cellpadding="3" width=800 style="border-collapse: collapse" bordercolor="#C0C0C0"> <tr <% if bbb=1 then Response.Write "style='background-color: #F2F2F2'"%>> <td width="267"><%if rs("ontop")="5" then Response.Write "<b><font color=blue>[顶]</font></b>"%>(<%=rs("id")%>)<a href="<%=hrefIDD(rs("ID"),rs("filename"))%>" target=_blank title='<%=rs("title")%>'><font color=<%=trim(fontcolor)%>><%=titleb(rs("title"),18)%></font></a><font color=999999>(<%=rs("hit")%>)<%if trim(rs("pic"))<>"" then Response.Write "[图]"%></font> <% if admindj<>"1" and rs("sh")="2" then Response.Write "<font color=FF0000>[未审]</font>" end if if rs("filename")<>"0" then Response.Write "<font color=blue>[静]</font>" end if if rs("sh")="0" then Response.Write "<font color=bbbbbb>[回收站中]</font>" %> </td> <td align=center width="99"> <% if rs2.recordcount<>0 then response.write rs2("lm")&rs2("lm2")&rs2("lm3") else response.write "<font color=blue>栏目不正确</font>" end if %></td> <td align="center" width="141"><%=datetime(rs("time"))%></td> <td align=center width="79"> <p align="center"><%=rs("adduser")%></td> <td align=center width="178"> <% if Request.Cookies("admindj")="1" then %> <p align="center"> <% if rs("tj")="不推荐" then Response.Write "<a href=admin_news_list.asp?tj=推荐&id="&rs("ID")&"&page="&page&"&lm="&lm&" title='此文章没有推荐'>荐</a> " else Response.Write "<a href=admin_news_list.asp?tj=不推荐&id="&rs("ID")&"&page="&page&"&lm="&lm&" title='此文章已经推荐'><font color=red>荐</font></a> " end if %> <% ontop=rs("ontop") if ontop=3 then response.write "<a href=admin_news_ontop.asp?id="&rs("id")&"&ontop=5&page="&page&"&title="&title&"&lm="&lm&" title='此文章没固顶'>顶</a> " else response.write "<a href=admin_news_ontop.asp?id="&rs("id")&"&ontop=3&page="&page&"&title="&title&"&lm="&lm&" title='此文章已固顶'><font color=red>顶</font></a> " end if end if if rs("adduser")=Request.Cookies("adminuser") or rs("shusername")=Request.Cookies("adminuser") or Request.Cookies("admindj")="1" then %><a href="admin_news_add.asp?id=<%=rs("ID")%>" title='编辑此文章'>编辑</a> <a href="../NewsPL.asp?id=<%=rs("id")%>" title='查看此文章的评论信息' target=_blank>评</a> <%end if if Request.Cookies("admindj")="1" or Request.Cookies("admindj")="2" or rs("adduser")=Request.Cookies("adminuser") then %> <a onclick='{if(confirm("您确定删除吗?此操作将不能恢复!")){return true;}return false;}' href=admin_news_list.asp?delid=<%=rs("id")%>&page=<%=page%>&lm=<%=lm%>&title=<%=title%> title='永久删除此文章'>删</a> <input type="checkbox" name="DELallID" value="<%=rs("id")%>"> <%end if%> <% if Request.Cookies("admindj")="1" or Request.Cookies("admindj")="2" then if rs("sh")="1" then Response.Write "<a href=?id="&rs("id")&"&shsh=0&lm="&lm&"&sh="&sh&"&word="&word&" title='放入回收站中'><img width=16 height=16 border=0 src='../images/isdel2.gif'></a>" elseif rs("sh")=2 then Response.Write "<a href=?id="&rs("id")&"&shsh=1&lm="&lm&"&sh="&sh&"&word="&word&">待审</a>" else Response.Write "<a href=?id="&rs("id")&"&shsh=1&lm="&lm&"&sh="&sh&"&word="&word&">还原</a>" end if end if if Request.Cookies("admindj")="1" then Response.Write " <a href='?ontopid="&rs("id")&"&ontoplx=1&lm="&lm&"&sh="&sh&"&word="&word&"&page="&page&"' title='顺序上升'>↑</a><a href='?ontopid="&rs("id")&"&ontoplx=0&lm="&lm&"&sh="&sh&"&word="&word&"&page="&page&"' title='顺序下降'>↓</a>" end if %> </td> </tr> </table> <% bbb=bbb+1 if bbb>=2 then bbb=0 response.flush rs.movenext if rs.eof then exit for next else Response.Write "<tr><td colspan=4>暂无信息</td></tr>" end if %> </div> <center><br> <% if rs.recordcount<>0 then if page>1 then%> <a href='<%=request.servervariables("URL")%>?page=1&title=<%=title%>&lm=<%=lm%>&sh=<%=sh%>'>首页</a> <a href='<%=request.servervariables("URL")%>?page=<%=page-1%>&title=<%=title%>&lm=<%=lm%>&sh=<%=sh%>'>上一页</a> <%end if%> <%if page<gg then%> <a href='<%=request.servervariables("URL")%>?page=<%=page+1%>&title=<%=title%>&lm=<%=lm%>&sh=<%=sh%>'>下一页</a> <a href='<%=request.servervariables("URL")%>?page=<%=rs.pagecount%>&title=<%=title%>&lm=<%=lm%>&sh=<%=sh%>'>尾页</a> <%end if%> 共<%=rs.recordcount%>条 每页显示<%=pagecount%>条 第<%=page%>页 共<%=rs.pagecount%>页 <script language="JavaScript"> <!-- function FP_jumpMenu(el,frm,sel) {//v1.0 var href=el.options[el.selectedIndex].value; if(sel) el.selectedIndex=0; if('_new'==frm) open(href); else eval(frm+".location='"+href+"'"); } // --> </script> <select size="1" onchange="FP_jumpMenu(this,'window',false)" id="id1" name="D1" style="font-size: 9pt; border-style: solid; border-width: 1px"> <%for i=1 to rs.pagecount%> <option value="<%=request.servervariables("URL")%>?page=<%=i%>&title=<%=title%>&lm=<%=lm%>&sh=<%=sh%>" <%if page=i then response.write "selected"%>>第<%=i%>页</option> <%next%> </select> <input onclick='{if(confirm("您确定删除吗?此操作将不能恢复!")){return true;}return false;}' type="submit" name="" value=批量删除></p> <% end if Response.flush %> </form> </body> </html>