UC知道有关asp分页分列显示记录的问题
来源：百度知道 编辑：UC知道 时间：2024/05/29 18:26:16
asp分页程序分页显示记录，可以规定一页显示多少条记录。现在我的access数据里的gq.mdb数据库里有一个表为：gq,这个表里有一个字段是：歌曲名称，有95条歌曲，也就是说歌曲名称字段有95条记录，现在我想把这95条记录用4页来显示。每页显示30条记录。也就是说第四页显示5条记录。前面三页显示每页30条记录。正常情况下只能用循环程序来用表格的一列在一页中来显示30条记录。能不能在一页中用表格的三列来显示这30条记录。每列显示10条记录。这样前三页每页用三列来显示30条记录。最后一页自动用一列显最后5条记录。当增加歌曲时会自动分列显示。如前面三页一样。请各位热心网友给出详细代码。并加以说明。谢谢！我的按传统的分页显示代码如下：
<html>
<head>
<title>歌曲列表</title>
</head>
<body>
<center>
<font color="red"><h3>歌曲列表</h3></font>
<%
Const adOpenStatic = 3
Const adLockPessimistic = 2
Set cnObj = Server.CreateObject("ADODB.Connection")
dbpath = Server.MapPath("/database/gq.mdb")
cnObj.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath
cnObj.Open
Set rsObj = Server.CreateObject("ADODB.Recordset")
rsObj.Open "SELECT * FROM gq ORDER BY 歌曲编号 DESC",
<html>
<head>
<title>歌曲列表</title>
</head>
<body>
<center>
<font color="red"><h3>歌曲列表</h3></font>
<%
Const adOpenStatic = 3
Const adLockPessimistic = 2
Set cnObj = Server.CreateObject("ADODB.Connection")
dbpath = Server.MapPath("/database/gq.mdb")
cnObj.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath
cnObj.Open
Set rsObj = Server.CreateObject("ADODB.Recordset")
rsObj.Open "SELECT * FROM gq ORDER BY 歌曲编号 DESC",
这样写:
<tr>
<%
dim j
j=3
For i = 1 To rsObj.PageSize
If rsObj.EOF Then Exit For
%>
<td><% = rsObj("歌曲名称") %></td>
<%
if j mod 3 =0 then
response.write "</tr><tr>"
end if %>
</tr>
<%
j=j+1
rsObj.MoveNext
Next
rsObj.Close
cnObj.Close
%>