评选作品

    <% page=clng(request("page")) sql="select * from Info where check=1 order by id desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 if not rs.eof and not rs.bof then rs.PageSize=50 if page=0 then page=1 pages=rs.pagecount if page > pages then page=pages rs.AbsolutePage=page for j=1 to rs.PageSize %>
  • <% 'if (j mod 5)=0 Then 'response.write "" 'end if rs.movenext if rs.eof then exit for next %>
<%if Page<2 then response.write "首页 上一页 " else response.write " 首页 " response.write " 上一页 " end if if rs.pagecount-page<1 then response.write " 下一页 尾页 " else response.write " " response.write "下一页 尾页 " end if response.write " 页次:"&page&"/"&rs.pagecount&"页 " response.write " 共"&rs.recordcount&"条记录 "&rs.pagesize&"条/页" %>
<% else %>
  • 没有参展的作品 <% end if rs.close set rs=nothing %>