<!--#include file="../conn/conn1.asp"-->
<!--#include file="inc.asp"-->
<!--#include file="../inc/ubbcode.asp"-->
<!--#include file="../config.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="../css/css.css" rel="stylesheet" type="text/css">
<script>
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>
<style type="text/css">
<!--
.style2 {color: blue}
.style4 {color: #FF3366}
.style5 {	color: #008000;
	font-weight: bold;
}
.style5 {color: #FF0000}
-->
</style>
<SCRIPT LANGUAGE="JavaScript">
<!--//
function check()
{
   if (isNaN(go2to.page.value))
		alert("请正确填写转到页数！");
   else if (go2to.page.value=="") 
	     {
		alert("请输入转到页数！");
		 }
   else
		go2to.submit();
}
//-->
</SCRIPT>
</head>
<body>
<% set rs=server.createobject("adodb.recordset") 
              if not isempty(request("page")) then   
	          pagecount=cint(request("page"))   
              else   
	          pagecount=1   
              end if
              sql="select * from bl order by blid desc"
              rs.open sql,conn,1,1
			  rs.pagesize=40
              if pagecount>rs.pagecount or pagecount<=0 then              
              pagecount=1              
              end if              
              rs.AbsolutePage=pagecount %>
<% if rs.eof and rs.bof then %>
<font size=2><br>
<br>
对不起，还没有任何评论!</font>
<%else%>
<form method="post" action="pil.asp?action=delall">
<TABLE width=80% border=0 align="center" cellPadding=6 cellSpacing=2>
  <TBODY>
  <TR>
      <TD bgcolor="#FFFFFF"><input type=checkbox name=chkall onclick=CheckAll(this.form) value="ON">
        全选 
        <input name="submit"  type="submit" onClick="{if(confirm('您确定要删除您所选的歌曲?')){return true;}return false;}" value=" 删 除 "></TD>
    </TR>
    <% do while not rs.eof %>
    <TR>
      <TD bgcolor="#eeeeee"> <input name='id' type='checkbox' id="id" value='<%=cstr(rs("blid"))%>'>ID：<%=rs("blid")%>
        <%=rs("bltext")%><br>
      <a href="del_gbook.asp?blid=<%=rs("blid")%>">删除</a></TD>
    </TR>
    <TR >
      <TD ></TD>
    </TR>

    <% i=i+1                                                                                                  
          rs.movenext                                                                                                  
          if i>=rs.PageSize then exit do 
		  loop                                                                    
         %>
  </TBODY>
</TABLE>
</form>
<table width="60%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr align="right">
    <% if rs.pagecount=1 then %>
    <td height="30" colspan="2">共 <strong><font color="#ff0000"><%=rs.recordcount%></font></strong> 条留言</td>
  </tr>
  <tr>
    <%else%>
    <td width="41%" height="30" align="center" valign="middle"><font color="#000000">
      <% page_start=(pagecount-1)*rs.pagesize
            if pagecount=1 then page_start=1
		    page_end=rs.pagesize*pagecount
		    if pagecount*rs.pagesize=>rs.recordcount then page_end=rs.recordcount end if%>
      共 <strong><font color="#ff0000"><%=rs.recordcount%></font></strong> 条 &nbsp;&nbsp; 第 <strong><font color=ffoooo><%=pagecount%></font></strong> 页 / 共 <strong><font color=ffoooo><%=rs.pagecount%></font></strong> 页</font></td>
    <td width="59%" height="30" align="right" valign="middle"><font color="#000000">
      <% response.write"<form name=go2to form method=Post action='blgl.asp'>"                                             
		     if pagecount=1 then                                                        
			 response.write "<font color='#000064'>首页 上一页</font>&nbsp;"
			 else                                                        
             response.write "<a href=blgl.asp?page=1><font color='0000BE'>首页</font></a>&nbsp;" 
	         response.write "<a href=blgl.asp?page="+cstr(pagecount-1)+"><font color='0000BE'>上一页</font></a>&nbsp;"
			 end if                                             
             if rs.PageCount-pagecount<1 then                                                        
             response.write "<font color='#000064'>下一页 尾页</font>"                                                    
			 else                                                        
             response.write "<a href=blgl.asp?page="+cstr(pagecount+1)+"><font color='0000BE'>下一页</font></a>&nbsp;"
			 response.write "<a href=blgl.asp?page="+cstr(rs.PageCount)+"><font color='0000BE'>尾页</font></a>"           
             end if 
			response.write "<font color='000064'> 转到<input type='text' name='page' size=2 maxLength=3 style='font-size: 9pt; color:#0E96DF; position: relative; height: 18' value="&PageCount&">页</font>&nbsp;"                               
			response.write "<INPUT style='CURSOR: hand' type='image' onclick=check() height='15' width='24' src='../images/search.gif' name='Image'>" %>
    </font></td>
  <tr>
    <td height="6" colspan="4" valign="bottom"><font color="#000000">&nbsp; </font></td>
  </tr>
  <% end if %>
</table>
<%end if%>
</body>
</html>
