asp分页方法

if Rs.RecordCount>0 then
page=clng(request("page"))
rszs=rs.recordcount Rs.PageSize=15
if page=0 then page=1
pages=Rs.pagecount
if page > pages then page=pages
Rs.AbsolutePage=page
For i=1 to Rs.PageSize
循环数据
rs.movenext
j=j+i
if rs.eof then exit for
next
end if

分页代码在下：
<%
url=Request.ServerVariables("SCRIPT_NAME")
function fy()
dim temp
for each name1 in Request.form
if name1<>"page" then
temp=temp&"&"&name1&"="&Request.Form(name1)
end if
next

for each name1 in Request.QueryString
if name1<>"page" then
temp=temp&"&"&name1&"="&Request.QueryString(name1)
end if
next
fy=temp
end function
%>
<script language="jscript">
function chec()
{
if(isNaN(document.fyForm.Page.value))
{
alert("请输入数字!");
document.fyForm.Page.value=1;
return false;
}
}
</script>
<table border="0" cellspacing="0" cellpadding="0" width="100%" style="border:0px;">
<tr ><form name="fyForm" action="?<%=url%>?<%=fy()%>" method="post" onsubmit="return chec();">
<td style="border:0px; text-align:right; padding-right:25px;height:20px;">
<a href="<%=url%>?page=1<%=fy()%>">首 页</a> <a href="<%=url%>?page=<%=page-1%><%=fy()%>">上一页</a> 第 <%=page%> 页 <a href="<%=url%>?page=<%=page+1%><%=fy()%>">下一页</a> <a href="<%=url%>?page=<%=pages%><%=fy()%>">尾 页</a> 共 <%=pages%> 页
<input name="Page" type="text" id="Page" size="5" />
<input type="submit" name="Submit" value="跳转" /></td>
</form>
</tr>
</table>