怎么写分页的存储过程？oracle的

分页函数:
<%
'每页最大显示数
const maxperpage=16
'接收页数的参数
if request("page") <> "" then
  currentpage=cint(request("page"))
else
  currentpage=1
end if
sql1= "SELECT * FROM BBS"
set rs=server.CreateObject ("adodb.recordset")
rs.Open sql1,conn,1,1
if rs.EOF and rs.BOF then
  Response.Write "<p aligh='center'> 还没有任何文章</p>"
else
'数据库中文章总数totalput
totalput = rs.RecordCount 
if currentpage=1 then
'在上面显示分页页码
  showpage totalput,maxperpage
'显示本页记录内容
   showcontent
'在下面显示分页页码
  showpage totalput,maxperpage
else
'转到指定的页数
  rs.Move (currentpage-1)*maxperpage
  showpage totalput,maxperpage
  showcontent  
  showpage totalput,maxperpage
end if
rs.Close ()'本页的记录内容
sub showcontent
   i=0
Response.Write "<table width='750' border='1' cellspacing='1' cellpadding='1'>"
Response.Write "<tr bgcolor='#7D9DC0'>"
Response.Write "<td width='80'><font color=white>ID</font></td>"
Response.Write "<td width='490'><font color=white>主题</font></td>"
Response.Write "<td nowrap width='80'><font color=white>作者</font></td>"    
Response.Write "<td nowrap width='100'><font color=white >时间</font></td>"
Response.Write "</tr>" 
Response.Write "</table>"
Response.Write "<table width='750' border='0' cellspacing='1' cellpadding='1'>"
  do while not rs.EOF 
Response.Write "<tr>"
Response.Write "<td width='80'><font color=black size='2'>"&rs("BH")&"</font></td>"
Response.Write "<td width='490'>"
Response.Write "<font color=navy size=2><a href='openarticle.asp?BOARDID="&request("BOARDID")&"&BH="&rs("BH")&"&RYBM="&request("RYBM")&"'>"&rs("TITLE")&"</a></font><font size=2>[字数："&rs("LENGTH")&"]</font><font size=2>[点击数："&rs("VISIT")&"]</font>"
if datediff("d",rs("RQ"),dateadd("d",-1,now())) < 3 then
Response.Write "<img src='emote/new.gif' width='33' height='17'>"&vbcrlf
end if
if rs("COOL") = "1" then
Response.Write "<font color=Orange size=2><b>酷！</b></font>"&vbcrlf
end if
Response.Write "</td>"
Response.Write "<td nowrap width='80'><font color=navy size=2>"&rs("RYBB")&"</font></td>"    
Response.Write "<td nowrap width='100'><font color=black size=2>"&rs("RQ")&"</font></td>"
Response.Write "</tr>" 
  i=i+1
  if i>=maxperpage then 
     exit do
  end if
  rs.MoveNext
  loop
Response.Write "</table>"
end sub'分页页码函数
function showpage(totalnumber,maxperpage)
dim n
if totalnumber mod maxperpage=0 then
  n=totalnumber\maxperpage
else
  n=totalnumber\maxperpage + 1
end if
Response.Write "<table width=750 border=1 cellspacing=0 cellpadding=0>"  
Response.Write "<tr>"
Response.Write "<td width=40 nowrap><a href='list.asp?page="&currentpage&"&BOARDID="&request("BOARDID")&"&RYBM="&request("RYBM")&"'>刷新</a></td>"
Response.Write "<td width=40 nowrap><a href='announce.asp?BOARDID="&request("BOARDID")&"&RYBM="&request("RYBM")&"'>发言</a></td>"   
Response.Write "<td nowrap width=300>第"&request("page")&"页，共"&n&"页&nbsp;&nbsp;总帖数："&totalnumber&"</td>"
Response.Write "<td width=370 align=right>"
if currentpage < 2 then
  Response.Write "<font color=gray>首页 上一页 </font>"
else
  Response.Write "<font color=gray><a href='list.asp?page=1&BOARDID="&request("BOARDID")&"&RYBM="&request("RYBM")&"'>首页 </a><a href='list.asp?page="&currentpage-1&"&BOARDID="&request("BOARDID")&"&RYBM="&request("RYBM")&"'>上一页 </a></font>"
end if
if n-currentpage < 1 then
  Response.Write "<font color=gray>下一页 尾页</font>"
else
  Response.Write "<font color=gray><a href='list.asp?page="&currentpage+1&"&BOARDID="&request("BOARDID")&"&RYBM="&request("RYBM")&"'>下一页 </a><a href='list.asp?page="&n&"&BOARDID="&request("BOARDID")&"&RYBM="&request("RYBM")&"'>尾页</a></font>"
end if
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
end function   
%>
<%end if%>  
----------------------------------------------------------------------------------------------------------------------
延迟函数
<html>
<body onload="TimeDelaySeconds(3)">
</html>
<script language="vbscript">
Sub TimeDelaySeconds(DelaySeconds)
SecCount = 0
Sec2 = 0
While SecCount < DelaySeconds + 1
Sec1 = Second(Time())
If Sec1 <> Sec2 Then
Sec2 = Second(Time())
SecCount = SecCount + 1
End If
Wend
window.location="xxx.asp"
End Sub
</script>这是一个单独的延迟函数,送俾你
-------------------------------------------------------------------
<SCRIPT LANGUAGE="javascript">
<!--
var i=0;
function wait(n){
i = i + 1;
if(i<=n){
 setTimeout("wait("+ n +")",1000);
}
else{
 return;
}
}wait(5);
//-->
</SCRIPT>