一个简单的分页

想用存储过程的 不过现在还不会~ 呵呵
 
============
 
<%
'=最经典最简单的ASP分页程序=

set   rs=server.createobject("adodb.recordset")
conn="DBQ="+server.mappath("check.mdb")+";DefaultDir=;DRIVER={Microsoft   Access   Driver   (*.mdb)};pwd=yaday"
sql="select   *   from   news   order   by   id   desc"
rs.open   sql,conn,1,1
%>

<%
dim   page
page=Clng(request("page"))
rs.pagesize=6
if   page<1   then   page=1
if   page>rs.pagecount   then   page=rs.pagecount
rs.Absolutepage=page
%>
<%
for   i=1   to   rs.pagesize
%>
<a   href=shownews.asp?id=<%   =   rs("id")   %>   target="_blank"><%   =   rs("bt")%></a><br/><br/>
<%
rs.movenext
if   rs.eof   then   exit   for
next
%>
<%
if   page<>1   then
response.write   "<a   href=index.asp?page=1>首页</a>   "
response.write   "<a   href=index.asp?page="&(page-1)&">上一页</a>   "
end   if
if   page<>rs.pagecount   then
response.write   "<a   href=yaday.asp?page="&(page+1)&">下一页</a>   "    
response.write   "<a   href=yaday.asp?page="&rs.pagecount&">尾页</a>   "
end   if
%>
第<%=page%>页/共有<%=rs.pagecount%>页
<form   name="form1"   method="get"   action="index.asp">
<input   name="page"   size="2"   value="<%=page%>">
<input   type="submit"   method="submit"   value="GO">
</form>