柠檬铺

<%'=============分页定义开始，可放在数据库打开前或后    dim action
    action=request.QueryString（"action"）
    Const MaxPerPage=20   '定义每页显示记录数，可根据实际自定义
    dim totalPut
    dim CurrentPage
    dim TotalPages
    if Not isempty（request（"page"）） then
    currentPage=Cint（request（"page"））
    else
    currentPage=1
    end if
    '=============分页定义结束%>
    <% '=============打开数据库数据表，要以这种方式打开
    set rs=server.CreateObject（"adodb.recordset"）
    sql="select * from p_log order by id desc"
    rs.open sql,conn,1,1
    'sql="select * from ht_cp where"
    %>
    <%'=============分页类代码开始，需放在数据库数据表打开后
    if err.number<>0 then
    response.write "<p align='center'>数据库中暂时无数据</p>"
    end if
    if rs.eof And rs.bof then
    Response.Write "<p align='center'>对不起，没有符合条件记录！</p>"
    else
    totalPut=rs.recordcount
    if currentpage<1 then
    currentpage=1
    end if
    if （currentpage-1）*MaxPerPage>totalput then
    if （totalPut mod MaxPerPage）=0 then
    currentpage= totalPut \ MaxPerPage
    else
    currentpage= totalPut \ MaxPerPage + 1
    end if
    end if
    if currentPage=1 then
    showContent
    '  showpage totalput,MaxPerPage,""&request.ServerVariables（"script_name"）&""
    else
    if （currentPage-1）*MaxPerPage<totalPut then
    rs.move  （currentPage-1）*MaxPerPage
    showContent
    '    showpage totalput,MaxPerPage,""&request.ServerVariables（"script_name"）&""
    else
    currentPage=1
    showContent
    '  showpage totalput,MaxPerPage,""&request.ServerVariables（"script_name"）&""
    end if
    end if
    end if
    '=============分页类代码结束%>
    <%'=============循环体开始
    sub showContent
    dim i
    i=0
    do while not rs.eof%>
    循环体
    <%i=i+1
    if i>=MaxPerPage then Exit Do
    rs.movenext
    loop
    rs.close   '释放资源
    set rs=nothing
    End Sub
    '=============循环体结束%>
    <!--------------------------------------------分页位置---------->
    <%showpage totalput,MaxPerPage,""&request.ServerVariables（"script_name"）&""  %>
    <!------------------------------------------------------>
    <%'=============放置分页显示开始
    Function showpage（totalnumber,maxperpage,filename）
    Dim n
    If totalnumber Mod maxperpage=0 Then
    n= totalnumber \ maxperpage
    Else
    n= totalnumber \ maxperpage+1
    End If %>
    <form method=Post action=<%=filename%》
    <p align="center">
    <%If CurrentPage<2 Then  %>
    首 页 上一页
    <% Else  %>
    <a href=<% = filename %>?page=1>首 页</a>
    <a href=<% = filename %>?page=<% = CurrentPage-1 %》上一页</a>
    <% End If
    If n-currentpage<1 Then  %>
    下一页 尾 页
    <%  Else  %>
    <a href=<% = filename %>?page=<% = （CurrentPage+1） %》下一页</a>
    <a href=<% = filename %>?page=<% = n %》尾 页</a>&nbsp;&nbsp;
    <% End If  %>
    页次：<b><font color=red><% = CurrentPage %></font></b>/<b><% = n %></b>页 <b><%=maxperpage%></b>个记录/页  共<b><%=totalnumber %></b>个记录
    转到：<select name="cndok" onChange="javascript:location=this.options[this.selectedIndex].value;">
    <%
    for i = 1 to n
    if i = CurrentPage then%>
    <option value="<% = filename %>?page=<%=i%>" selected>第<%=i%>页</option>
    <%else%>
    <option value="<% = filename %>?page=<%=i%>">第<%=i%>页</option>
    <%
    end if
    next
    %>
    </select></font>
    </form>
    <%End Function
    '=============放置分页显示结束%>