那位大侠，能给一份从数据库中调资料，分页显示的例子呀？？？
多谢？急用！！！
zyhero2000@163.com

dtmyou??这段代码是你写的吗?
你水平不错,不过代码不规范哦.
最好能有大小写.
比如
Set rs = Server.CreateObject("ADODB.RecordSet")
还有少一点<%%>,<%=%>的分割符号,
尽量写在一块<%%>里面.这样增强代码的可读性.

;) ;)

page=1

If request("page")="" Then
Page=1
Else
Page=Int(Abs(Request("page")))
End if
rowcount=25
pageshowsize=9 '每页显示的分页数，分页数为pageshowsize+1
....'这里执行数据库语句
url="reglist.asp?search="&search&"&province="&province&"&city="&city&"&isadvan="&isadvan
...
%>
....

PageShowSize = 10 '每页显示多少个页
MyPageSize = 20 '每页显示多少条新闻
    
If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then
MyPage=1
Else
MyPage=Int(Abs(Request("page")))
End if
....

第 <%=Mypage%>/<%=Maxpages%> 页，每页 <%=MyPageSize%>
条
<%
url="Special.asp?"
PageNextSize=int((MyPage-1)/PageShowSize)+1
Pagetpage=int((total-1)/Rs2.PageSize)+1

if PageNextSize >1 then
PagePrev=PageShowSize*(PageNextSize-1)
Response.write "上一翻页 "
Response.write "页首 "
end if
if MyPage-1 > 0 then
Prev_Page = MyPage - 1
Response.write "上一页 "
end if

if Maxpages>=PageNextSize*PageShowSize then
PageSizeShow = PageShowSize
Else
PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)
End if
If PageSizeShow < 1 Then PageSizeShow = 1
for PageCounterSize=1 to PageSizeShow
PageLink = (PageCounterSize+PageNextSize*PageShowSize)-PageShowSize
if PageLink <> MyPage Then
Response.write "[" & PageLink & "] "
else
Response.Write "["& PageLink &"] "
end if
If PageLink = MaxPages Then Exit for
Next

if Mypage+1 <=Pagetpage then
Next_Page = MyPage + 1
Response.write "下一页"
end if

if MaxPages > PageShowSize*PageNextSize then
PageNext = PageShowSize * PageNextSize + 1
Response.write " 页尾"
Response.write " 下一翻页"
End if

                
End If
Rs2.close

%>

这是不同的分页代码，自己去研究一下吧