<!--#include file="security.asp"-->
<!--#include file="articleconn.asp"--> 
<!--#include file="home1.asp"--> 
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理页</title>
<link rel="stylesheet" href="../../inc/style.css">
<script language="javascript">
function popwin2(id,path)
{		window.open("../../book/openarticle.asp?id="+id+"&ppath="+path,"","height=500,width=600,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
</script>
</head>
<%
   dim rs
   MaxPerPage=rs("duo")
   dim totalPut   
   dim CurrentPage
   dim TotalPages
   dim i,j
   dim typename
   typename=""
   if not isempty(request("page")) then
      currentPage=cint(request("page"))
   else
      currentPage=1
   end if
   dim sql
   dim rstype
   dim typesql
   dim typeid,typename1
   if not isEmpty(request("typeid")) then
	typeid=request("typeid")
   else
	typeid=0
   end if
 set rstype=server.createobject("adodb.recordset")
  typesql="select * from type where typeid="&typeid&""
 rstype.open typesql,conn,1,1
 if not rstype.eof then
	typename1=rstype("type")
 else typename1="全部文章"	
 end if
rstype.close
   set rst=server.CreateObject("ADODB.RecordSet")
  
%> 
<body bgcolor="#FFFFFF" >
<div align="center"> 
  <center>
    <table border="0" width="760" cellspacing="0" cellpadding="0">
      <tr> 
        <td width="100%" > 
          <%
	rst.open "select * from type",conn,1
 if rst.EOF then
	response.write "没有栏目："
	else
%> 
          <div align="center">
         <a href="changepass.asp" title="修改密码名称以及增加修改删除栏目和程序高级设置"><font color=red> 高级管理页面</font></a> ｜<a href="manage.asp?typeid=0">全部文章</a>｜<%do while NOT rst.EOF%><a href="manage.asp?typeid=<%=rst("typeid")%>"><%=rst("type")%></a>｜<%
	rst.MoveNext
	loop
	end if
rst.close
%>
          </div>
          <hr noshade size="1" width="80%"> 
        </td>
      </tr>
    </table>
    <%
if typeid=0 then  
 sql="select * from learning  order by articleid desc"
else  
 sql="select * from learning where typeid="+cstr(typeid)+" order by articleid desc"
end if
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
  if rs.eof and rs.bof then
       response.write "<p align='center'> 还 没 有 任 何 文 章</p>"
   else
	  totalPut=rs.recordcount
      totalPut=rs.recordcount
      if currentpage<1 then
          currentpage=1
      end if
      if (currentpage-1)*MaxPerPage>totalput then
	   if (totalPut mod MaxPerPage)=0 then
	     currentpage= totalPut \ MaxPerPage
	   else
	      currentpage= totalPut \ MaxPerPage + 1
	   end if

      end if
       if currentPage=1 then
           showpage totalput,MaxPerPage,"manage.asp"
            showContent
            showpage totalput,MaxPerPage,"manage.asp"
       else
          if (currentPage-1)*MaxPerPage<totalPut then
            rs.move  (currentPage-1)*MaxPerPage
            dim bookmark
            bookmark=rs.bookmark
           showpage totalput,MaxPerPage,"manage.asp"
            showContent
             showpage totalput,MaxPerPage,"manage.asp"
        else
	        currentPage=1
           showpage totalput,MaxPerPage,"manage.asp"
           showContent
           showpage totalput,MaxPerPage,"manage.asp"
	      end if
	   end if
   rs.close
   end if
	        
   set rs=nothing  
   conn.close
   set conn=nothing
  

   sub showContent
       dim i
	   i=0

%> 
    <div align="center"> 
      <center>
        <table border="0" cellspacing="1" width="600" cellpadding="0" bgcolor="000000">
          <tr height="20" bgcolor="DDDDDD"> 
            <td align="center"><b><font color="#000000">ID号</font></b></td>
            <td align="center"><b><font color="#000000">文章标题</font></b></td>
            <td align="center"><b><font color="#000000">修改</font></b></td>
            <td align="center"><b><font color="#000000">删除</font></b></td>
          </tr>
          <%do while not rs.eof%> 
          <tr height="23" bgcolor="FFFFFF"> 
            <td align="center"> 
              <%=rs("articleid")%> 
            </td>
            <td> 
                <a href="javascript:popwin2(<%=rs("articleid")%>)"><%=rs("title")%></a> 
            </td>
            <td align="center"> 
              <a href="edit.asp?id=<%=rs("articleid")%>">修改</a> 
            </td>
            <td align="center"> 
              <a href="m_delete.asp?id=<%=rs("articleid")%>">删除</a> 
            </td>
          </tr>
          <% i=i+1
	      if i>=MaxPerPage then exit do
	      rs.movenext
	   loop
		  %> 
        </table>
      </center>
    </div>
    <%
   end sub 

function showpage(totalnumber,maxperpage,filename)
  dim n
  if totalnumber mod maxperpage=0 then
     n= totalnumber \ maxperpage
  else
     n= totalnumber \ maxperpage+1
  end if
  response.write "<form method=Post action="&filename&"?typeid="&typeid&">"
    if CurrentPage<2 then
    response.write "<font color='#000000'>首页 上一页</font>&nbsp;"
  else
    response.write "<a href="&filename&"?page=1&typeid="&typeid&">首页</a>&nbsp;"
    response.write "<a href="&filename&"?page="&CurrentPage-1&"&typeid="&typeid&">上一页</a>&nbsp;"
  end if
  if n-currentpage<1 then
    response.write "<font color='#000000'>下一页 尾页</font>"
  else
    response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&typeid="&typeid&">"
    response.write "下一页</a> <a href="&filename&"?page="&n&"&typeid="&typeid&">尾页</a>"
  end if
   response.write "<font color='#000000'>&nbsp;页次：</font> <strong><font color=red>"&CurrentPage&"</font> <font color='#000000'>/ "&n&"</strong> 页</font> "
    response.write "<font color='#000000'>&nbsp;共 <b>"&totalnumber&"</b> 篇文章 <b>"&maxperpage&"</b> 篇文章/页</font> "
   response.write " <font color='#000000'>转到：</font><input type='text' name='page' size=4 maxlength=10 value="&currentpage&" class='put'>"
   response.write "<input type='submit' value='Goto' name='cndok' class='put1'></span></p></form>"
       
end function
%> 
  </center>
</div>
</body>
</html>