all_list.asp

网页酷吧全站系统在此之前提供了一个新闻系统V1.0,反应十分热烈,并有不少网友提供了不少意见例如在线编辑器等问题,并强烈要求本部提供全部程序,顺应广大网友的强烈要求,并希望本人的QQ能够闲下来(因为实

<%if session("username")="" or session("userkey")="" then
response.redirect "../../"
end if%>
<!--#include file="mozeenconn.asp"-->
<link href=../css/main.css rel=stylesheet>
<!--#include file="./inc/const.asp"-->
<!--#include file="./inc/char.asp"-->
<script language="JavaScript">

<!--


function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.name != 'chkall')
e.checked = form.chkall.checked;
}
}
//-->

</script>

<%
Aclassid=request("classid")
Aboardid=request("boardid")
if request("classid")<>0 then
set rs = server.CreateObject ("Adodb.recordset")
sql="select * from class where classid="& cstr(request("classid"))
rs.open sql,conn,1,1
classname=rs("classname")
classMaster=rs("classMaster")
rs.close
end if


if request("boardid")<>0 then
set rs = server.CreateObject ("Adodb.recordset")
sql="select * from board where boardid="& request("boardid")
rs.open sql,conn,1,1
boardname=rs("boardname")
boardMaster=rs("boardmaster")
rs.close
end if
%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#999999">
  <tr> 
    <td height="20" bgcolor="#eeeeee">当前位置：<a href=main.asp>管理首页</a> >> <a href=all_list.asp?classid=<%=request("classid")%>&boardid=0><%=classname%></a> 
      <%if request("boardid")<>0 then%>
      >> <a href=all_list.asp?classid=<%=request("classid")%>&boardid=<%=request("boardid")%>><%=boardname%>
      <%end if%>
      </a></td>
  </tr>
</table>
<form name="form1" method="post" action="admin_article.asp?action=delarticle">
  <table width="95%" cellspacing="1" cellpadding="5" bgcolor=#999999 align=center>
    <tr bgcolor=#cccccc><td colspan=8><center><b>文章列表</b></td></tr>
  <tr bgcolor=#ffffff><td colspan=8 height=20><%if request("boardid")=0 then%><%else%><%end if%></td></tr>
    <tr bgcolor=#eeeeee align=center> 
      <td width=16></td>
      <td width=255>文章标题</td>
      <td width=69>发表时间</td>
      <td width=44>作 者</td>
      <td width=49>头条</td>
      <td width=48>焦点</td>
      <td width=44>图片</td>
      <td width=114>操作</td>
    </tr>
<%
dim pagecount,page,Spage,Epage,recordcount,i
page = request.querystring("page")
if page = "" or IsNull(page) then page = 1
if not IsNumeric(page) then page = 1
page = Cint(page)
set rs = server.CreateObject ("Adodb.recordset")
if request("boardid")=0 then
sql="select * from article where classid="&Aclassid&" order by addtime desc"
elseif request("boardid")<>0 then
sql="select * from article where boardid="&Aboardid&" order by addtime desc"
elseif request("classid")=""   then
sql="select * from article order by addtime desc"

end if
rs.open sql,conn,1,1
recordcount = RS.RecordCount
RS.PageSize = PAGESIZE
pagecount = RS.PageCount
if page < 1 then
    page = 1
elseif page > pagecount then
    page = pagecount
end if
if RS.EOF  then
    Response.Write("<tr bgcolor=#ffffff><td colspan=8 height=20><center><br><font color=red>目前还没有文章</font></td></tr>")
else
  if recordcount > 0 then RS.AbsolutePage = page
  for i = 1 to PAGESIZE
  if RS.EOF then exit for
%>



<tr bgcolor=#eeeeee>
   <td bgcolor=#ffffff><img src=./img/folder.gif></td>
   <td><a class=list href=../<%=rs("fpath")%>/<%=rs("fname")%> target=_blank><%=HTMLencode(rs("title"))%></a> <font color=#666666>(<%=len(rs("content"))%>字节)</td>
   <td><center><%=rs("addtime")%></td>
   <td><center><a href=userinfo.asp?username=<%=rs("username")%>><%=rs("username")%></a></td>
      <td width="49" bgcolor=#dddddd><center> 
        <%if session("userkey")=4 or session("username")=classmaster or session("username")=boardmaster then %>
        <%if rs("ifhead")=1 then%>
        <a href=admin_article.asp?action=headno&id=<%=rs("id")%>><font color=red>是</font></a> 
        <%else%>
        <a href=admin_article.asp?action=headyes&id=<%=rs("id")%>>否</a> 
        <%end if%>
        <%else%>
        <%if rs("ifhead")=1 then%>
        <font color=red>是</font> 
        <%else%>
        否 
        <%end if%>
        <%end if%>
      </td>
      <td width="48"><center> 
        <%if session("userkey")=4 or session("username")=classmaster or session("username")=boardmaster then %>
        <%if rs("ifgood")=1 then%>
        <a href=admin_article.asp?action=goodno&id=<%=rs("id")%>><font color=blue>是</font></a> 
        <%else%>
        <a href=admin_article.asp?action=goodyes&id=<%=rs("id")%>>否</a> 
        <%end if%>
        <%else%>
        <%if rs("ifgood")=1 then%>
        <font color=blue>是</font> 
        <%else%>
        否 
        <%end if%>
        <%end if%>
      </td>
      <td width="44" bgcolor=#dddddd><center> 
        <%if session("userkey")=4 or session("username")=classmaster or session("username")=boardmaster then %>
        <%if rs("ifimg")=1 then%>
        <a href=admin_article.asp?action=imgno&id=<%=rs("id")%>><font color=green>是</font></a> 
        <%else%>
        <a href=admin_article.asp?action=imgyes&id=<%=rs("id")%>>否</a> 
        <%end if%>
        <%else%>
        <%if rs("ifimg")=1 then%>
        <font color=red>是</font> 
        <%else%>
        否 
        <%end if%>
        <%end if%>
      </td>
  
      <td width="114"><center> 
        <%if session("userkey")=4 or session("username")=classmaster or session("username")=boardmaster then %>
        <%if rs("ifshow")=1 then%>
        <a href=admin_article.asp?action=showno&id=<%=rs("id")%>><font color=red>已审</font></a> 
        <%else%>
        <a href=admin_article.asp?action=showyes&id=<%=rs("id")%>>待审</a> 
        <%end if%>
        <%else%>
        <%if rs("ifshow")=1 then%>
        <font color=red>已审</font> 
        <%else%>
        待审 
        <%end if%>
        <%end if%>
        <%if session("userkey")=4 or session("username")=classmaster or session("username")=boardmaster or session("username")=rs("username") then%>
        | <a href=admin_edit.asp?id=<%=rs("id")%>><font color=green>修改</font></a> 
        <%end if%>
        <%if session("userkey")=4 or session("username")=classmaster or session("username")=boardmaster or session("username")=rs("username") then%>
        | 
        <input type="hidden" name="PassID" value="<%=rs("id")%>" > <input name="DelID" type="checkbox" id="DelID" value="<%=rs("id")%>">
        <%end if%>
      </td>
   </tr>
<%
RS.MoveNext()
next
end if
%>
</table>
  <div align="center">
    <input type="checkbox" name="chkall" onclick="CheckAll(this.form)">
    全部选中 
    <input type="submit" name="Submit" value="删除所选文章">
  </div>
</form>


<%
if pagecount > 0 then
    response.write("<table width=""95%"" align=center cellspacing=3 cellpadding=3><tr><td align=right>")
    response.write("页次：<font color=red><b>" & page & "</font>/" & pagecount & "</b>&nbsp;&nbsp;每页<b>" & pagesize & "</b>&nbsp;&nbsp;共<b>" & recordcount & "</b>篇文章&nbsp;&nbsp;分页：")
    Spage = page mod PARTSIZE
    if page > PARTSIZE then
        if Spage = 0 then Spage = PARTSIZE
        Spage = page - Spage + 1
    else
        Spage = 1
    end if
    Epage = Spage + PARTSIZE - 1
    if Epage > pagecount then Epage = pagecount
    if page > PARTSIZE then
        response.write("<a href=""all_list.asp?classid=" & Aclassid & "&boardid=" & Aboardid & "&page=" & Spage - 1 & """>[<<]</a>")
    end if
    for i = Spage to Epage
        if i = page then
            response.write("[<font color=red><b>" & i & "</b></font>]")
        else
            response.write("[<a href=""all_list.asp?classid=" & Aclassid & "&boardid=" & Aboardid & "&page=" & i & """>" & i & "</a>]")
        end if
    next
    if Epage < pagecount then
        response.write("<a href=""all_list.asp?classid=" & Aclassid & "&boardid=" & Aboardid & "&page=" & Epage + 1 & """>[>>]</a>")
    end if
    if Spage <> 1 then response.write("[<a href=""all_list.asp?classid=" & Aclassid & "&boardid=" & Aboardid & "&page=1"">首页</a>]")
    if Epage <> pagecount then response.write("[<a href=""all_list.asp?classid=" & Aclassid & "&boardid=" & Aboardid & "&page=" & pagecount & """>尾页</a>]")
    response.write("</td></tr></table><br>")    
end if
rs.close
set rs=nothing
%>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>