评选作品
-
<%
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
%>
-
- <%=rs("title")%>
- ">投票" target="_blank">详细
- 得票数:<%=rs("ps")%>
<%
'if (j mod 5)=0 Then
'response.write " - 没有参展的作品 <% end if rs.close set rs=nothing %>
<%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
%>