asp问题 查询时候分页显示怎么实现

<%
dim hh
dim ee
Dim ipagecount
Dim ipagecurrent
Dim strorderBy
Dim irecordsshown
if request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(request.querystring("page"))
end if
rs.pagesize =4
rs.cachesize =4
ipagecount = rs.pagecount
Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='5'>"
top=1
if rs.bof and rs.eof then
response.write "<tr><td align='center'>没有任何文件</tr></td></table>"
else
cc=rs("btype")
cb=rs("fanwei")
rs.absolutepage = ipagecurrent
irecordsshown = 0
do while not rs.eof and irecordsshown<4
if not rs.eof then
ee=rs("minipic")
hh=mid(ee,instr(ee,"/")+1)
%>

分页
<%
t

sql="select * from [Users] where uid like '%"&UID&"%'"
end if

rs.open sql,conn,1,2

dim MaxPerPage
MaxPerPage=16
'假如没有数据时
'If rs.eof and rs.bof then
'call showpages
'response.write "<p align='center'><font color='#ff0000'>还没任何用户订单</font></p>"
'response.end
'End if

'取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount