|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
这是论坛程序dvbbs6.0的一个bug
===在"贴子列表"页===
如每页显示20个主题,总置顶有二个
那么第一页本版块的主题只显示18个,而第二页依然是从第21个主题开始,就是说第19,20主题无法找到.
--------------------------------------------------------------------------------
改正:
list.asp中修改
.........
RsTopic.Move (currentpage-1) * Cint(Board_Setting(26))
'这里修改
dim thispagecount
if currentpage=1 then
thispagecount=Cint(Board_Setting(26))+alltopnum
else
thispagecount=Cint(Board_Setting(26))
end if
do while not RsTopic.eof and page_count |
|