求一段ASP 的分页代码

看下这张页面 。记录现在稍微多了点 ，没有做分页。我找了几份分页代码 ，太复杂。求一段ASP 的分页代码，希望有详细的说明 。在那里替换字段都说明下 .
http://www.boshengtz.com/more.asp
就是这里
<script language="javascript" src="owen.asp?n=50"></script>
看来是调用的另外一个页面，在more.asp这里可以更改吗？

<!--#include file=conn1.asp-->
<%
dim m,n
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from message order by time desc"
rs.open sqlstr,conn,3,3
rs.pagesize=10 '定义一页显示的记录数目
tatalrecord=rs.recordcount '获取记录总数目
tatalpages=rs.pagecount '获取分页的数目
rs.movefirst
----------------------------
nowpage=request("page") '用request获取当前页数，注意page是自己定义的变量并非函数
--------------------------
if nowpage&"x"="x" then '处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage) '将页码转换成数字型
end if
--------------------------------
rs.absolutepage=nowpage '将指针移动到当前显示页的第一条记录
-------------------------------
%>
---------------------------------------------
<%
n=1
while not rs.eof and n<=rs.pagesize
response.Write(rs("user") & "<br>")