主题:  分页显示的问题

秋千
职务：普通成员
等级：1
金币：0.0
发贴：160
#12002/2/28 11:37:12
比如说有20页，我想显示从1－10这10个链接，当前页无链接。10页之后的页数通过更多之类的链接翻到下10页。不知道这种效果怎么实现，最好能有源码说明。



文君
职务：普通成员
等级：1
金币：1.0
发贴：140
#22002/2/28 11:39:04
<%option explicit%>
<%
Dim conn,rs,myself,page,i,ipage
%>
<%
Set conn=Server.createobject("Adodb.connection")
conn.open "Provider=Microsoft.jet.oledb.4.0;Data Source=" & Server.MapPath("db/myfriend.mdb")
Set rs=Server.createobject("Adodb.Recordset")
rs.open "GoodFriend",conn,1,3
If rs is Nothing Then
Response.write "Á¬½Óʧ°Ü"
Response.end
End If
Myself=Request.ServerVariables("Path_Info")
%>



ÎÒµÄÅóÓÑÃÇ









<%
rs.pagesize=10
page=Clng(Request("page"))
If page<1 Then page=1
If page>rs.pagecount Then page=rs.Pagecount
showpage rs,page
%>


Method=Get>
<%If page<>1 Then%>
?page=1>µÚÒ»Ò³
?page=<%=(page-1)%>>ÉÏÒ»Ò³
<%End If%>
<%If page<>rs.pagecount Then%>
?Page=<%=(Page+1)%>>ÏÂÒ»Ò³¡@
?page=<%=rs.pagecount%>>×îºóÒ»Ò³
<%End If%>
Ò³´Î<%=page%>/<%=rs.pagecount%>
ÊäÈëÒ³´Î


<%sub showpage(rs,page)
Response.write "
" & "ÎÒµÄÅóÓÑÃÇ"
Response.write ""
Response.write ""
For i=0 to rs.fields.count-1
    Response.write ""
Next
Response.write ""
rs.Absolutepage=page
For ipage=1 to rs.pagesize
Response.write ""
For i=0 to rs.fields.count-1
    Response.write ""
Next
Response.write ""
rs.movenext
If rs.eof Then Exit For
Next
Response.write "
" & rs(i).name & "
" & rs(i) & "
"
end sub
%>

文君
职务：普通成员
等级：1
金币：1.0
发贴：140
#32002/2/28 11:39:56
先運行這程序，然後自己鑽研一下，然後再提問。（這是最好的學習方法） ;)



vernon
职务：普通成员
等级：1
金币：1.0
发贴：172
#42002/2/28 11:48:12
我常用的分页例子, 给你吧 !!
www.macauweb.com/~vernon/paging.html



vernon
职务：普通成员
等级：1
金币：1.0
发贴：172
#52002/2/28 11:51:29
给文君快了一步 !!! 哈哈 !!



文君
职务：普通成员
等级：1
金币：1.0
发贴：140
#62002/2/28 11:58:56
不好意思了。偶然出了一下風頭。



vernon
职务：普通成员
等级：1
金币：1.0
发贴：172
#72002/2/28 12:01:09
没关系，反正都是交流！



文君
职务：普通成员
等级：1
金币：1.0
发贴：140
#82002/2/28 12:04:07
我的程序里有幾個屬性要說明的。
pagesize：每頁的記錄數。里面是每頁十行。
pagecount：數據庫所有記錄的總頁數。例如每頁十行，數據庫有一百行記錄，那麼就是十頁。

秋千
职务：普通成员
等级：1
金币：0.0
发贴：160
#92002/2/28 13:00:03
两位老大，小弟真是感激涕零，非常感谢。。。
vernon兄，你的网页怎么是乱码啊？？？

vernon
职务：普通成员
等级：1
金币：1.0
发贴：172
#102002/2/28 13:11:54
乱码 ? 不会吧 !!! 全都是英文来的 ? 怎会有乱码呢 ?



文君
职务：普通成员
等级：1
金币：1.0
发贴：140
#112002/2/28 13:39:40
我也看了,里面全是英文,包括數據庫.怎麼會是亂碼?是不是你的IE用錯了編碼來瀏覽?



秋千
职务：普通成员
等级：1
金币：0.0
发贴：160
#122002/2/28 15:53:17
先是http://www.macauweb.com/~vernon/paging.html
后是ftp://publicublic@www.5dmedia.com/paging.zip，就是到这出问题了：乱码。

编辑历史:[这消息被秋千编辑过(编辑时间2002-02-28 16:00:23)]

秋千
职务：普通成员
等级：1
金币：0.0
发贴：160
#132002/2/28 15:56:22
就是这样：
1 2 3 4 5 6 7 8 9 10 more
就象5D论坛一样，还有跳转功能。

编辑历史:[这消息被秋千编辑过(编辑时间2002-02-28 15:59:44)]

秋千
职务：普通成员
等级：1
金币：0.0
发贴：160
#142002/2/28 16:03:19
vernon兄，要不你妹儿一个给我吧，谢谢了~~~~

vernon
职务：普通成员
等级：1
金币：1.0
发贴：172
#152002/2/28 16:08:38
明白了，原来你用了 IE 来 open zip file .
www.macauweb.com/~vernon/paging.html
当你去到这里后在超链接位置按鼠标右键选择另存目标