中科新闻网comedy副词:请问如何把读出来的数据分页?
来源：百度文库 编辑：中科新闻网 时间：2024/05/13 02:52:52
查询keyword
读取T_Ring表中 字段Ring_type中含有keyword的歌曲
每页显示20首 超过20首则分页显示
请问如何写
如果这里不方便回答
请联系QQ1282818
悬赏分照给
知道的朋友麻烦帮个忙``谢谢!
下面是一个查询keyword,读取100首歌的例子,但我不知道怎么分页显示
<%
keyword=trim(request("keyword"))
set rs=server.CreateObject("adodb.recordset")
set rs=conn.execute("SELECT top 100 Ring_ID,Ring_Name,Ring_singer,Ring_Type,Hits,StrTemp FROM T_Ring where Ring_type='"&keyword&"' order by Ring_ID desc")
if not Rs.eof then
%>
<!--#include file="conn.asp" -->
<%
SQL="select top 100 * from T_Ring order by ID desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
If rs.recordcount>0 Then '记录集不为空则处理记录
rs.pagesize = 20 ' 设置每页显示的记录数
num=rs.recordcount ' 记录总数
pagenum=rs.pagecount ' 页总数
page=request("page") ' 获取页码的原始信息
' 处理页码原始信息的开始！
If page <> "" then
page = cint(page)
if err.number <> 0 then
err.clear
page = 1
end if
if page < 1 then
page = 1
end if
else
page = 1
End if
if page*rs.pagesize > num and not((page-1)*rs.pagesize < num)then
page=1
end if
' 处理页码原始信息的结束！设置当前页码
rs.absolutepage = page
if page<>pagenum then
lablenum=rs.pagesize
else
lablenum=num-(page-1)*rs.pagesize
end if
for i=1 to lablenum
%>
----------<%=rs("keyword")%>
<%
rs.movenext
if rs.eof then exit for
next
End if
%>
共有 <%=num%>首歌| <a href="song.asp?page=1" >首页</a> |
<%if page>1 then%>
<a href="song.asp?page=<%=page-1%>">
<%end if%>
上一页</a> |
<%if page<pagenum then%>
<a href="song.asp?page=<%=page+1%>">
<%end if%>
下一页</a> | <a href="song.asp?page=<%=pagenum%>" >尾页</a> |
页次:<%=page%>/<%=pagenum%>页 |
共<%=pagenum%>页
用嵌套查询
例如select top 20 * from tables where id not in (select top 10 id from tables)
好像是这样的吧，好久没用SQL Server了，记不清楚MSSQL的数据库方言了。