%'开始分页
Const MaxPerPage=90
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if
if nclassid="" then
set rs=server.createobject("adodb.recordset")
sql="select * from product2 where BigClassName='资质认证' order by ArticleID desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"
"
response.write"=== 暂无记录 ==="
response.write"
"
response.end
end if
end if
if rs.eof And rs.bof then
Response.Write "
对不起,暂时还没有!
" else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage totalput,MaxPerPage,"gsyj.asp" else if (currentPage-1)*MaxPerPage