哈,你问了我前几天问的问题,我没找到更好的办法 .
是这样解决的
// 接受参数, select 的内容,页号等.
pagenum:=strtoint(trim(request.QueryFields.Values['page']));
usersel:=strtoint(trim(request.QueryFields.Values['select']));
.............
query_temp.close;
query_temp.SQL.clear;
query_temp.SQL.Add(usersel);
query_temp.Open;
pagecount:=query_temp.recordcount div maxrow +1;
if pagecount>1 then
begin
htmlstr:=htmlstr+'第';
for i:=1 to pagecountdo
htmlstr:=htmlstr+'<a href="/scripts/samples.dll'
+'?select='+usesel+'&page='+inttostr(i)
+'">['+inttostr(i)+']</a>';
// 注意:在这根据纪录数生成一个链接 1页2页3页4页.....
htmlstr:=htmlstr+'页';
end;
//以下根据页数移到相应纪录,并画页面.
query_temp.MoveBy((pagenum-1)*maxrow);
i:=0;
while not query_temp.Eofdo
begin
htmlstr:=...........
query_temp.next
end;
希望能看到更好的方法.参阅 'isapi中如何在返回的页面中分页?'