UC知道ASP中分页显示表单出错,在线等答案,谢谢个位大大
来源：百度知道 编辑：UC知道 时间：2024/05/29 18:30:52
<%set rs3=server.CreateObject("adodb.recordset")
sql3="select * from yd_music order by id desc"
rs3.open sql3,conn,1,1
if rs3.bof and rs3.eof then
response.Write("暂时没有歌曲")
else
rs3.pagesize=15
total=rs3.recordcount
page=cint(Request("page"))
if Not IsEmpty(trim(Request("Page"))) then
page = CInt(Request("page"))
if page > rs3.PageCount then
rs3.AbsolutePage = rs3.PageCount
elseif page <= 0 then
page = 1
else
rs3.AbsolutePage = page
end if
End if
page = rs3.AbsolutePage%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
sql3="select * from yd_music order by id desc"
rs3.open sql3,conn,1,1
if rs3.bof and rs3.eof then
response.Write("暂时没有歌曲")
else
rs3.pagesize=15
total=rs3.recordcount
page=cint(Request("page"))
if Not IsEmpty(trim(Request("Page"))) then
page = CInt(Request("page"))
if page > rs3.PageCount then
rs3.AbsolutePage = rs3.PageCount
elseif page <= 0 then
page = 1
else
rs3.AbsolutePage = page
end if
End if
page = rs3.AbsolutePage%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
提示什么错误？
rs3.open sql3,conn,1,1 改为 rs3.open sql3,conn,1,3
就ok了 这样 才能支持分页显示
你可以去下面的博客看看。
http://hi.baidu.com/mppyes/blog/item/8a5dc435063ee81291ef3942.html