上接:紧急求救,数据库有数据,但查询不出(一)

       <% dim I
          I = 0
          do while not rs.eof and I < rs.pagesize    '利用循环打印记录
          I = I + 1 
        %>  
            
        <tr align="center" bgcolor="#FFFFFF">
        <td height="25"><input name="DelID" type="checkbox" id="DelID" value="<%=rs("id")%>"></td>
        <td width="25%"><div align="left"><%=rs("diskName")%></div></td>
        <td width="9%"><%=rs("diskPrice")%></td>
        <td width="30%" nowrap="nowrap"><%=rs("diskLink")%></td>
        <td width="20%"><%=rs("add_date")%></td>
        <td width="10%"><a href="Admin_DISK.asp?action=mf&id=<%=rs("id")%>">查看修改</a></td>
        </tr>
        <%rs.movenext
        loop
        %>
      <tr align="center" bgcolor="#CCCCCC">
        <td height="35" colspan="6" class="suojin"><input name="Submitdel" type="submit" id="Submitdel" value="删除" onClick="return ConfirmDel();">
        全选 <input type="checkbox" name="checkbox" value="Check All" onClick="mm()">        </td>
        </tr>
        </form>
    </table>
    <table width="98%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="40" align="center">
            <%
        if pageno <> 1 then
            response.write "<a href='Admin_DISK.asp?pageno=1'>第一页</a>&nbsp;"
            response.write "<a href='Admin_DISK.asp?pageno="&cstr(pageno-1)&"'>上一页</a>&nbsp;"
        else
            response.write "第一页&nbsp;"
            response.write "上一页&nbsp;"
        end if
        if pageno<>rs.pagecount then
            response.write "<a href='Admin_DISK.asp?pageno="&cstr(pageno+1)&"'>下一页</a>&nbsp;" 
            response.write "<a href='Admin_DISK.asp?pageno="&cstr(totalpages)&"'>最后页</a>&nbsp;"
        else
            response.write "下一页&nbsp;"
            response.write "最后页&nbsp;"                
        end if
        response.write "[页次:"&pageno&"/"&rs.PageCount&"] [共"&rs.RecordCount&"条&nbsp;"&rs.PageSize&"条/页]"
       %>
       </td>
      </tr>
    </table>
<%
rs.close         
conn.close
set rs=nothing 
set conn=nothing
end if
%>
    </td>
  </tr>
  <tr>
    <td height="16" align="center">&nbsp;</td>
  </tr>
</table>
<script language=javascript>
function mm()
{
   var a = document.getElementsByTagName("input");
   if(a[0].checked==true){
   for (var i=0; i<a.length; i++)
      if (a[i].type == "checkbox") a[i].checked = false;
   }
   else
   {
   for (var i=0; i<a.length; i++)
      if (a[i].type == "checkbox") a[i].checked = true;
   }
}
</script>
</div>
</body>
</html>