分页显示方式输出的具体ASP代码？

set rs=Server.CreateObject("ADODB.Recordset")
sqlliuxue="select * from tablename"
rs.open sqlliuxue, conn,1,3
rs.pagesize=20
if not isempty(request("topage")) then
topage=cint(request("topage"))
if topage > rs.pagecount then
rs.absolutepage=rs.pagecount
elseif topage <=0 then
rs.absolutepage =1
else
rs.absolutepage=topage
end if
end if
intcurpage=rs.absolutepage%>
for i=1 to rs.pagesize
if rs.eof then
exit for
end if
rs.movenext
next

<table width="80%" border="0" cellpadding="3" cellspacing="3" class="table2">
<tr>
<td align="right">共 <font color="#FF3300"><%=rs.recordcount%></font> 条新闻
<% if intcurpage <>1 then%>
| <a href="/new/zxnew/morelist.asp?listtype=os1" class="s