<%
if not(rs.bof and rs.eof) then
pages=15
rs.pagesize=pages
if not isempty(Request.QueryString("page")) then
thispage=clng(Request.QueryString("page"))
else
thispage=1
end if
rscount=rs.recordcount
if thispage="" then thispage=1
if thispage<1 then thispage=1
if (thispage-1)*pages>rscount then
if (rscount mod pages)=0 then
thispage=rscount\pages
else
thispage=rscount\pages+1
end if
end if
if(rscount mod pages)=0 then
allpages=rscount\pages
else
allpages=rscount\pages+1
end if
rs.absolutepage=thispage
i=1
%>
<% do while not rs.eof and pages>0 %>
JP-79B Series
JP-515 Series
JP-515S Series
<%
'分栏主要由下面这个判断来执行的,本例是每行显示两栏
if (i mod 3) =0 then
%>