數(shù)據(jù)連接和簡單分頁

    <%
    dim db
    set db=server.CreateObject("adodb.connection")
    db.open "dbq="& server.MapPath("×.mdb")&";driver={microsoft access driver (*.mdb)}"
    %>
    分頁技術(shù)：
    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("數(shù)據(jù)出錯！請聯(lián)系管理員！")
    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"請聯(lián)系管理員"
    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
    %>