ASP 通用分页工具

最近做ASP的网页，遇到分页的问题，从网上找了一下，发现这个还不错，贴上来，大家一起看看：

<table width="500" height="188" border="0" cellpadding="0" cellspacing="0">
 <wbr><% </wbr><wbr> </wbr><wbr>dim sql,rs,iCount,iPageSize,maxpage,page,i
 </wbr><wbr> </wbr><wbr> </wbr><wbr>type1="名模经纪"
 </wbr><wbr> </wbr><wbr> </wbr><wbr>type2="男"
 </wbr><wbr> </wbr><wbr> </wbr><wbr>sql="select * from modles where sex = '"&type2&"' and BigClassName='"&type1&"'"
 </wbr><wbr> </wbr><wbr> </wbr><wbr>Set rs=Server.CreateObject("adodb.recordSet")
 </wbr><wbr> </wbr><wbr> </wbr><wbr>rs.open sql,conn,1,1 </wbr><wbr>在这里，得到你想要的记录集
 </wbr><wbr> </wbr><wbr> </wbr><wbr>If rs.eof and rs.bof then
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write"<span>没有任何记录</span>"
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.End
 </wbr><wbr> </wbr><wbr> </wbr><wbr>Else
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>rs.PageSize =5'每页记录条数
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>iCount=rs.RecordCount '记录总数
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>iPageSize=rs.PageSize
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>maxpage=rs.PageCount
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>page=request("page")
 </wbr><wbr>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>If Not IsNumeric(page) or page="" then
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>page=1
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Else
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>page=cint(page)
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>End If
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>If page<1 then
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>page=1
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>ElseIf </wbr><wbr> page>maxpage then
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>page=maxpage
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>End If
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>rs.AbsolutePage=Page
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>If page=maxpage then
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>x=iCount-(maxpage-1)*iPageSize
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Else
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>x=iPageSize
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>End If
 </wbr><wbr> </wbr><wbr> </wbr><wbr>End If
 </wbr><wbr>
 </wbr><wbr>for i=1 to rs.pagesize </wbr><wbr> </wbr><wbr> 这是显示每面内容
 </wbr><wbr>%>
 </wbr><wbr> </wbr><wbr> <tr>
 </wbr><wbr><%
 </wbr><wbr> </wbr><wbr>for j=0 to 3 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>这里，用两个循环进行分行，由于是显示图片，所以，每行显示3个图片
 </wbr><wbr>%>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> <td width="166"></wbr>

<table>
 <wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> <tr>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr><td><a href="showmodle.asp?table=modles&id=<%=rs("id")%>" onFocus="this.blur()"><img src="<%=rs("img")%>" border="0" width="112" height="93" /></a></td>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr></tr>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr><tr>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr><td align="center"><%=rs("name1")%></td>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr></tr>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr></table></wbr>

</td>
 <wbr><% </wbr><wbr>rs.movenext
 </wbr><wbr> </wbr><wbr> </wbr><wbr>If rs.eof then exit for
 </wbr><wbr> </wbr><wbr> </wbr><wbr>next
 </wbr><wbr> </wbr><wbr>%>
 </wbr><wbr> </wbr><wbr> </tr>
 </wbr><wbr> <%
 </wbr><wbr>  </wbr><wbr>If rs.eof then exit for
 </wbr><wbr>next
 </wbr><wbr> %>
 </wbr><wbr><tr>
 </wbr><wbr> </wbr><wbr> </wbr><wbr><td width="500" colspan="4"><%
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>call PageControl(iCount,maxpage,page)
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Sub PageControl(iCount,pagecount,page)
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>'生成上一页下一页链接
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Dim query, a, x, temp
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>query = Split(Request.ServerVariables("QUERY_STRING"), "&")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>For Each x In query
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>a = Split(x, "=")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>If StrComp(a(0), "page", vbTextCompare) <> 0 Then
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>temp = temp & a(0) & "=" & a(1) & "&"
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>End If
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Next
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write("<table border='0' cellpadding='0' </wbr><wbr> width='100%' align='center'>")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write("<form method=get οnsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><tr>")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write("<td align='center' bgcolor='#000000'>")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>If page<=1 then
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write ("首页 " )
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write ("上一页 ")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Else
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write("<a href=" & action & "?" & temp & "Page=1>首页</a> ")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write("<a href=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</a> ")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>End If
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>If page>=pagecount then
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write ("下一页 ")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write ("尾页 ")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Else
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write("<a href=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</a> ")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write("<a href=" & action & "?" & temp & "Page=" & pagecount & ">尾页</a> ")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>End If
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write(" 页次：" & page & "/" & pageCount & "&nbsp;页")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write(" 共有&nbsp;" & iCount & "&nbsp;条留言")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write(" 转到&nbsp;" & "<input tyep=text name=page maxlength=5 value=" & page & " style='font-size: 12px;border: 1px solid #CCCCCC;width:23px;'>" & "&nbsp;页 <input type=submit style=""font-size: 9pt"" value=GO style='font-size: 12px;border: 1px solid #CCCCCC;width:23px;'>")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write("</td></tr></form>")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>Response.Write("</table>")
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>End Sub
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </wbr><wbr>%>
 </wbr><wbr> </wbr><wbr> </wbr><wbr> </td>
 </wbr><wbr></tr>
</table></wbr>

好了，马马虎虎，可以用的！！！！