ASP中怎么分页显示数据库里的数据

Sub show()
logusername = replace(trim(request.Querystring("logusername")),"'","")
if logusername <> "" then
sql="select * from JB_log where username='"+ logusername +"' order by logid desc"
logpage = "&logusername="& logusername
logtext = "当前显示<font color=red>"& logusername &"</font>的操作日志 | <a href=""logs.asp"">显示全部</a>"
else
sql="select * from JB_log order by logid desc"
End if
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table height="29" border="0" align="center" cellpadding="0" cellspacing="0" class="table-noColor">
<form name="form2" method="Get" action="logs.asp"><tr>
<td>输入操作