<%set rs=server.createobject("adodb.recordset")
rs.open "select a.*,b.anclass from shop_books a,shop_anclass b where a.anclassid=b.anclassid and a.anclassid="&anclassid&" and kucun>-98 order by adddate desc",conn,1,1
if rs.recordcount=0 then
%>
<%
else
'rs.PageSize =1000 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.RecordCount
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
%>
| 培训资料名称 |
盘数 |
定价 |
培训分类 |
操作 |
<%
For i=1 To x
%>
<%rs.movenext
next
%>
|
<%
end if
rs.close
set rs=nothing
%>