石岩湖度假村:分页问题

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/29 13:51:08
<%
page=request("page")
set rs=server.CreateObject("ADODB.recordset")
SQL="select * from download order by id desc"
rs.Open SQL,conn, 1,2
n=rs.RecordCount
rs.pagesize=5
m=cint(rs.pagecount)
if page="" then
page=1
elseif page<1 then
page=1
end if
if cint(page)>m then
page=m
end if
page=cint(page)
if not rs.eof then
rs.absolutepage=page
end if
if m>page+3 then
endpage=page+3
else
endpage=m
end if
if page>4 then
pagetitle=pagetitle & " " & "...."
end if

for i=page-3 to endpage
if not i<1 then
if i = page then
pagetitle=pagetitle & " " & "<B><font color='#FF9900'>[" & i & "]</font></B>"

else
pagetitle=pagetitle & " " & "[" & "<a href=download.asp?page=" & i & ">" & i & "<a>" & "]"
end if
end if
next
if page+3 < m then
pagetitle=pagetitle & " " & "...."
end if
%>
<%
if not rs.eof then
for i=1 to rs.pagesize
%>
<%
if page>1 then
response.write"<a href=download.asp?page=1><font size='3' face='Webdings' color='#BB7100'>9</font></a> "
end if
if page>1 then
syy=page-1
response.write"<a href=download.asp?page="&syy&"><font size='3' face='Webdings'color='#BB7100'>7</font></a>"
end if
response.write pagetitle

if page<m then
xyy=page+1
response.write"<a href=download.asp?page="&xyy&"><font size='3' face='Webdings' color='#BB7100'>8</font></a> "
end if
if page<m then
response.write"<a href=download.asp?page="&m&"><font size='3' face='Webdings' color='#BB7100'>:</font></a>"
end if
%>

</td>
</tr>
</table>
<%rs.close
set rs=nothing
conn.close
set conn=nothing%>
</td></table>
为什么我的页面不能正常分页.
还有个问题无论我设置rs.pagesize=多少我的页面都是10条记录没有变,当我打开第二页的时候还是那10条记录