我想实现数据分页

[slamddunk]

Set rs = Server.CreateObject("ADODB.RECORDSET")
rs.Open SQL,conn,3,1
if request.QueryString("pageNo")="" then
pageNo=1
else
select case request("pageNo")
case "前頁"
pageNo=cint(request("pageNo"))
case "後頁"
pageNo=cint(request("pageNo"))
end select
end if
If rs.EOF and rs.BOF then
response.write("<tr>")
response.write("<td align='center'>")
response.Write("no data")
response.write("</tr>")
response.write("</td>")
%>
<%
else
inpagesize=8
rs.pagesize=inpagesize
if not rs.EOF then
rs.absolutepage=pageNo
end if
inttotalpage=rs.pagecount
incurrentcount=0
i=1
'do until rs.EOF
while not rs.EOF and incurrentcount<inpagesize
%>
<tr>
<td align="left">
<%
response.Write i
response.Write " "
response.Write("<a href=''>")
response.Write rs.fields("CONSTRUCTION_NAME").value
response.Write("</a>")
rs.MoveNext
i=i+1
%>
</td>
</tr>
<%
wend
'loop
end if
rs.close
'conn.close
set rs=nothing
set conn=nothing
%><tr><td> </td></tr>
<tr><td><% if intcur>1 then %><a href="process.asp?pageNo=<%=pageNo - 1%>">前頁</a><% end if %>    <% if intcur<>inttotal then %><a href="process.asp?pageNo=<%=pageNo + 1%>">後頁</a><% end if %></td></tr>
这段代码是我调用的数据语句,,我想实现数据集的分页,,不知道那里应该加语句,希望了解的朋友告诉一下!!谢谢

[slamddunk]

自己先顶一下!~