<!--#include file="articleconn.asp"--> 
<!--#include file="home1.asp"--> 
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理页</title>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<link rel="stylesheet" type="text/css" href="style.css">
<script language="javascript">
function popwin2(id,path)
{		window.open("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 marginwidth="0" leftmargin="0" bgcolor="#0099CC" >
<div align="center"> <center> 
    <table border="0" width="760" cellspacing="5" cellpadding="5" bgcolor="#FFFFFF">
      <tr> 
        <td width="100%" bgcolor="#CCCCCC" > 
          <%
	rst.open "select * from type",conn,1
 if rst.EOF then
	response.write "没有栏目："
	else
%>
          <div align="center"><font color=red> </font>｜<a href="addarticle.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>
          <div align="center"> </div>
        </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="5" width="760" cellpadding="5" bgcolor="#FFFFFF">
          <tr bgcolor="#DDDDDD"> 
            <td width="46" align="center" background="IMAGES/mmto.gif" height="20"><font color="#FFFFFF"><font color="#000000">ID号</font></font></td>
            <td width="400" align="center" background="IMAGES/mmto.gif"><font color="#FFFFFF"><font color="#000000">歌曲列表</font></font></td>
            <td width="50" align="center" background="IMAGES/mmto.gif"><font color="#FFFFFF"><font color="#000000">修改</font></font></td>
            <td width="50" align="center" background="IMAGES/mmto.gif"><font color="#FFFFFF"><font color="#000000">删除</font></font></td>
          </tr>
          <%do while not rs.eof%>
          <tr bgcolor="#FFFFFF"> 
            <td height="23" width="46"> 
              <p align="center"><%=rs("articleid")%> 
            </td>
            <td> 
              <table width="100%">
                <tr> 
                  <td width="300"> 
                    <div align="center">
                      <%  
if not isnull(rs("images")) and rs("images")<> "" then  
			response.write "<img src=" + rs("images") + " border=0 >"  
		end if  
%>
                     </div>
                  </td>
                  <td width="40%" valign="bottom"> 
                    <table width="100%" border="0" cellspacing="0" cellpadding="0" bordercolorlight="#000000" bordercolordark="#FFFFFF">
                      <tr> 
                        <td>歌曲名称：<%=rs("title")%></td>
                      </tr>
                      <tr> 
                        <td>加入日期：<%=rs("dateandtime")%></td>
                      </tr>
                    </table>
                  </td>
                </tr>
              </table>
            </td>
            <td width="50"> 
              <p align="center"><a  
    href="edit.asp?id=<%=rs("articleid")%>">修改</a> 
            </td>
            <td width="50"> 
              <p align="center"><a  
    href="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='#000080'>首页 上一页</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='#000080'>下一页 尾页</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='#000080'>&nbsp;页次：</font> <strong><font color=red>"&CurrentPage&"</font> <font color='#000080'>/"&n&"</strong> 页</font> "  
    response.write "<font color='#000080'>&nbsp;共 <b>"&totalnumber&"</b> 首歌曲 <b>"&maxperpage&"</b> 首歌曲/页</font> "  
   response.write " <font color='#000080'>转到：</font><input type='text' name='page' size=4 maxlength=10 class=put value="&currentpage&">"  
   response.write "<input class=put1 type='submit'  value='Goto'  name='cndok'></span></p></form>"  
         
end function  
%> <p> </center></div>  
</body>  
</html>  
