ASP分页查询示例-优快云博客

本文链接：https://blog.youkuaiyun.com/aspbxw/article/details/4003451

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>
<table width="64%" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
    <td width="21%" align="center">姓名</td>
    <td width="25%" align="center">所属分类</td>
    <td width="29%" align="center">编号</td>
    <td width="25%" align="center">用户编号</td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from syscolumns"
rs.open sql,conn,1,1
if not rs.eof then
    rs.PageSize =12 '每页记录条数
    result_num=rs.RecordCount '记录总数

    maxpage=rs.PageCount
    page=request("page")

    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if

    if page<1 then
        page=1
    elseif page>maxpage then
        page=maxpage
    end if

    rs.AbsolutePage=Page

    else
    result_num=0
    maxpage=0
    page=0
end if
    for i= 1 to rs.pagesize
%>
<tr>
    <td><%=rs("name") %></td>
    <td><%= rs("xtype") %> </td>
    <td><%= rs("type") %> </td>
    <td><%= rs("userType") %> </td>
</tr>
<%
rs.movenext
next
%>
<tr>
    <td colspan="4"><% call LastNextPage(maxpage,page,result_num) %> </td>
</tr>
</table>
<%
Sub LastNextPage(pagecount,page,resultcount)
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next

    Response.Write("<table cellspacing=0 cellpadding=0 border=0>" & vbCrLf )
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
    Response.Write("<TD align=right>" & vbCrLf )
'    Response.Write(font_style & vbCrLf )

    if page<=1 then
        Response.Write ("首页 " & vbCrLf)
        Response.Write ("上一页 " & vbCrLf)
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</A> " & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("下一页 " & vbCrLf)
        Response.Write ("尾页" & vbCrLf)
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A>" & vbCrLf)
    end if

    Response.Write(" 第" & "<INPUT style=""HEIGHT: 19px;font-size: 12px""TYEP=TEXT NAME=page SIZE=2 Maxlength=4 VALUE=" & page & ">" & "页" & vbCrLf & "<INPUT type=submit style=""HEIGHT: 19px;font-size: 12px"" value=GO>")
    Response.Write(" 共 " & pageCount & " 页" & vbCrLf)
    Response.Write(" " & resultcount & " 条信息" & vbCrLf)
    Response.Write("</TD>" & vbCrLf )
    Response.Write("</TR></form>" & vbCrLf )
    Response.Write("</table>" & vbCrLf )
End Sub

%>

</body>
</html>

asp分页技术(经典)