<%
dim db
set db=server.CreateObject("adodb.connection")
db.open "dbq="& server.MapPath("×.mdb")&";driver={microsoft access driver (*.mdb)}"

%>

分页技术：


dim page_size,page_total,page_num
page_size=10
  if request("page_num")="" then
     page_num=1
    else
     if isnumeric(request("page_num")) then
   page_num=request("page_num")
   else
   response.Write("数据出错！请联系管理员！")
   response.End()
  end if
    end if
rs.pagesize=page_size
page_total=rs.pagecount
rs.absolutepage=page_num
if cint(page_num)>cint(page_total) then
response.write"请联系管理员"
response.end()
end if
   
   num=page_size
   do while not rs.eof and num>0
   num=num-1
    
   %>...........................

<%
dim qianyiye,houyiye
if page_total=1 then
  response.Write"第1/1页&nbsp;"
else
if page_num=1 then
   houyiye=page_num+1
   %>
   第1/<%=page_total%>页&nbsp;<a href="bgrb.asp?page_num=<%=houyiye%>">后页</a>&nbsp;<a href="bgrb.asp?page_num=<%=page_total%>">末页</a>
   <%
     else
     if cint(page_num)=cint(page_total) then
  qianyiye=page_num-1
  %>
  第<%=page_total%>/<%=page_total%>页&nbsp;<a href="bgrb.asp?page_num=1">首页</a>&nbsp;<a href="bgrb.asp?page_num=<%=qianyiye%>">前页</a>
  
  <% else
  qianyiye=page_num-1
  houyiye=page_num+1
  %>
   第<%=page_num%>/<%=page_total%>页&nbsp;<a href="bgrb.asp?page_num=1">首页</a>&nbsp;<a href="bgrb.asp?page_num=<%=qianyiye%>">前页</a>&nbsp;<a href="bgrb.asp?page_num=<%=houyiye%>">后页</a>&nbsp;<a href="bgrb.asp?page_num=<%=page_total%>">末页</a>
    <%
    end if
  end if
end if
%>