对ud提供的分页功能，我就不多说了，容易得很但是不是很方便，
而网上的插件功能估计也是有限，所以跟大家分享我的代码，希望
可以有帮助。欢迎指正，共同学习，共同进步！

为了大家用起来方便，我将代码写得很简单，轻松改一下就可以
用到你的网页上。

此贴算是对关于分页的几贴的回答，今天很忙，所以到现在才有时
间回答。

<%@language="VBSCRIPT"%>


<%


sqlstmt = "select * from mrzl order by adddate desc"

' get page size
pagesize = request("pagesize")
if pagesize = "" then
    pagesize = 10
end if

' get current page
currentpage = request("currentpage")
if currentpage = "" then
    currentpage = 1
end if

sqlquery = request("sqlquery")
if sqlquery = "" then
    sqlquery = sqlstmt
end if

set conn2 = server.createobject("Adodb.recordset")
set conn2.activeconnection = nothing
conn2.cursorlocation = aduseclient
conn2.cachesize = 5
conn2.open sqlquery,connstr

%>

增加新哲理 | 旧哲理维护 <% if conn2.bof or conn2.eof then %> <% else conn2.movefirst conn2.pagesize = pagesize allpage = CInt(conn2.pagecount) maxrecs = CInt(conn2.recordcount) conn2.absolutepage = currentpage recshere = 0 %> <% ' Now loop to out put all record in current page! Do until conn2.eof or recshere >= Cint(pagesize) %> <% conn2.movenext recshere = recshere+1 LOOP end if conn2.close ' close the connection set conn2 = nothing ' destroy it sub PageNavBar() pad = " " code = request.servervariables("script_name")&"?" response.write " 每日更新维护 No record Found! <%=maxrecs%> entries/<%=allpage%> pages found.You are in page <%=currentpage%> <%call PageNavBar%> 号码 内容 操作 状态 更新时间 <%=conn2(0)%> <%=left(conn2(1), 12)%>   <%=conn2(2)%> <%=conn2(3)%> " response.write ""          response.write ""          response.write " " if Cint(currentpage) < allpage then code = request.servervariables("script_name")&"?" link = "Next Page" response.write "::"&link end if if currentpage > 1 then code = request.servervariables("script_name")&"?" link = "Prev Page" response.write "::"&link end if response.write " "          response.write "" if (currentpage mod pagesize) = 0 then counterstart = currentpage - 9 else counterstart = currentpage - (currentpage mod pagesize) + 1 end if counterend = counterstart+9 if counterend > allpage then counterend = allpage end if if counterstart <> 1 then link = "first :: " response.write link link = "Prev" response.write "::"&link end if response.write "[" for counter = counterstart to counterend if counter >= 10 then pad = "" end if if counter <> currentpage then link = ""&pad&counter&"" else link = ""&pad&counter&"" end if response.write link if counter <> counterend then response.write " " end if next response.write "]" if counterend <> allpage then link = "Next :: " response.write link link = "last" response.write "::"&link end if response.write " "          response.write " " end sub %> <%call PageNavBar%>