| 投 票 结 果 |
<%
sql = "select * from Photo where ok=0 order by hit desc"
Set rs=Server.CreateObject("Adodb.Recordset")
rs.Open sql, conn, 1, 1
if not rs.eof then
pages = 20 '定义每页显示的记录数
mpage = pages
mrs = rs.Recordcount
rs.pageSize = pages '定义每页显示的记录数
allPages = rs.pageCount'计算一共能分多少页
page = Request.QueryString("page")'通过浏览器传递的页数
'if语句属于基本的排错处理
if isEmpty(page) or Cint(page) < 1 then
page = 1
elseif Cint(page) > allPages then
page = allPages
end if
rs.AbsolutePage = page
Do while not rs.eof and pages > 0
%>
- <%=rs("name")%>共<%=rs("hit")%>票
<%
rs.MoveNext
pages=pages-1
loop
end if
rs.close
Set rs=Nothing
%>
|
| |
|
