关于分页的一个问题!!

[wangnian11]

我现在要从两张表中取出数据,进行排序,排序方法我已经写好了，现在的问题就是如何来分页显示,请指教!!谢谢 !
排序方法:
sql="select * from search where keyWord="&keyword&"order by rand //rand 为他要显示的排名
set sub_rs=server.createobject("adodb.recordset")
sub_rs.open sql,conn,1,3
count=sub_rs.recordset



sql="select * from ecom_product_info "&tj_add&" order by dateTime
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3



if sub_rs.eof then
按照原来的输出
end if
for i=0 to count
if sub_rs.eof then exit for
myArray(i)=sub_rs("rand")
sub_rs.movenext
next
end if
j=1
for i=1 to count
if j-myArray(i)<o then
count1=myArray-j
for j=1 to count1
从原来里面输出
rs.movenext
next
j=maArray(i)+1
end if
if j-myArray(i)=o then
从新的里面输出相应的
j++
end if
next

[yb2008]

分页核心代码----------------------------------------------------------------------------
<%
set rs=Server.CreateObject("Adodb.RecordSet")
sqlstr="select * from data" '精品推荐
rs.open sqlstr,conn,1,3

link="CustomerView.asp?SearchText="&SearchText&"&" '翻页
if rs.eof<>true then
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs.pagesize=10
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
rs.AbsolutePage=pagecount
if pagecount=1 then
page_start=1
end if
if pagecount*rs.pagesize=>rs.recordcount then
page_end=rs.recordcount
end if
i=0
end if
%>
----------------------------------------------------------------------------
<%
sub Page '分页
response.write"<form name='go2to' form method=Post action="&link&">"
if pagecount=1 then
response.write "首页 上一页 "
else
response.write "<a class=title href="&link&"page=1>首页</a> "
response.write "<a class=title href="&link&"page="&cstr(pagecount-1)&">上一页</a> "
end if
if rs.PageCount-pagecount<1 then
response.write "下一页 尾页"
else
response.write "<a class=title href="&link&"page="&cstr(pagecount+1)&">下一页</a> "
response.write "<a class=title href="&link&"page="&cstr(rs.PageCount)&"><font class=ver>尾页</font></a>"
end if
response.write " 页次:"&pagecount&"/"&rs.pagecount&"页"
response.write "转到第<input class='inputnormal' type='text' name='page' size=2 maxLength=3 style='font-size: 9pt; color:#00006A; position: relative; height: 18' value="&PageCount&">页 "
response.write ("<input type='button' name='GO' value='GO' onclick=check('"&link&"')>")
response.Write "</form>"
end sub
%>

'楼主记得给分我哦...