<%
if request("page")="" then
page=1
else
page=request("page")
end if
page=clng(page)'把字符转换成数字
rs.pagesize=4
if page<1 then
page=1
else
if page>rs.pagecount then
page=rs.pagecount
else
page=page
end if
end if
rs.absolutepage=page
for i=1 to rs.pagesize'循环显示代码
if rs.eof then
exit for
end if
%>
<%=(page-1)*rs.pagesize+i%>'循序显示第几条记录的代码
<% rs.movenext
next %> ’读取下一条记录
<form action="index.asp?page=<%=page%>" method="GET">
<table width="630" height="20" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"> 共有<%=rs.RecordCount%>条留言
<% if page<>1 then
response.Write"<a href=index.asp?page=1>第一页</a>"&" "
response.Write"<a href=index.asp?page="&(page-1)&">上一页</a>"&" "
end if
if page<>rs.pagecount then
response.Write"<a href=index.asp?page="&(page+1)&">下一页</a>"&" "
response.Write"<a href=index.asp?page="&rs.pagecount&">最后一页</a>"
end if
%>
当前页:<%=page%>/总页数:<%=rs.pagecount%> </div></td>
<td width="160">输入页数:
<input type="text" size="3" name="Page"> <input type="submit" name="Submit3" value="确定"><a href="index.asp">
返回</td>
</tr>
</table>
</FORM>
'循环代码
<%do while not rs.eof%>
<%rs.movenext
loop%>
if request("page")="" then
page=1
else
page=request("page")
end if
page=clng(page)'把字符转换成数字
rs.pagesize=4
if page<1 then
page=1
else
if page>rs.pagecount then
page=rs.pagecount
else
page=page
end if
end if
rs.absolutepage=page
for i=1 to rs.pagesize'循环显示代码
if rs.eof then
exit for
end if
%>
<%=(page-1)*rs.pagesize+i%>'循序显示第几条记录的代码
<% rs.movenext
next %> ’读取下一条记录
<form action="index.asp?page=<%=page%>" method="GET">
<table width="630" height="20" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"> 共有<%=rs.RecordCount%>条留言
<% if page<>1 then
response.Write"<a href=index.asp?page=1>第一页</a>"&" "
response.Write"<a href=index.asp?page="&(page-1)&">上一页</a>"&" "
end if
if page<>rs.pagecount then
response.Write"<a href=index.asp?page="&(page+1)&">下一页</a>"&" "
response.Write"<a href=index.asp?page="&rs.pagecount&">最后一页</a>"
end if
%>
当前页:<%=page%>/总页数:<%=rs.pagecount%> </div></td>
<td width="160">输入页数:
<input type="text" size="3" name="Page"> <input type="submit" name="Submit3" value="确定"><a href="index.asp">
返回</td>
</tr>
</table>
</FORM>
'循环代码
<%do while not rs.eof%>
<%rs.movenext
loop%>