|
|
|
<%
id=Request("id")
if id="" or not isnumeric(id) then
sql = "select * from Photo where ok=0 order by id desc"
else
sql = "select * from Photo where ok=0 and t="&id&" order by id desc"
end if
Set rs=Server.CreateObject("Adodb.Recordset")
rs.Open sql, conn, 1, 1
if not rs.eof then
pages = 11 '定义每页显示的记录数
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
%>
<%
if not rs.eof then
j=j+1
%>
 " width="308" height="220" border="0" /> |
|
| <%=rs("name")%> |
共<%=rs("hit")%>票 |
"> |
 |
<%
rs.MoveNext
pages=pages-1
end if
%> |
<%
if not rs.eof then
j=j+1
%>
|
| <%=rs("name")%> |
共<%=rs("hit")%>票 |
| "> |
|
<%
rs.MoveNext
pages=pages-1
end if
%> |
<%
if not rs.eof then
j=j+1
%>
|
| <%=rs("name")%> |
共<%=rs("hit")%>票 |
| "> |
|
<%
rs.MoveNext
pages=pages-1
end if
%> |
| |
|
|
<%
if not rs.eof then
j=j+1
%>
| " width="308" height="220" border="0" /> |
|
| <%=rs("name")%> |
共<%=rs("hit")%>票 |
| "> |
|
<%
rs.MoveNext
pages=pages-1
end if
%> |
<%
if not rs.eof then
j=j+1
%>
|
| <%=rs("name")%> |
共<%=rs("hit")%>票 |
| "> |
|
<%
rs.MoveNext
pages=pages-1
end if
%> |
<%
if not rs.eof then
j=j+1
%>
|
| <%=rs("name")%> |
共<%=rs("hit")%>票 |
| "> |
|
<%
rs.MoveNext
pages=pages-1
end if
%> |
| |
<%
if not rs.eof then
j=j+1
%>
| " width="308" height="220" border="0" /> |
|
| <%=rs("name")%> |
共<%=rs("hit")%>票 |
| "> |
|
<%
rs.MoveNext
pages=pages-1
end if
%> |
<%
if not rs.eof then
j=j+1
%>
|
| <%=rs("name")%> |
共<%=rs("hit")%>票 |
| "> |
|
<%
rs.MoveNext
pages=pages-1
end if
%> |
<%
if not rs.eof then
j=j+1
%>
|
| <%=rs("name")%> |
共<%=rs("hit")%>票 |
| "> |
|
<%
rs.MoveNext
pages=pages-1
end if
%> |
| |
<%
if not rs.eof then
j=j+1
%>
| " width="308" height="220" border="0" /> |
|
| <%=rs("name")%> |
共<%=rs("hit")%>票 |
| "> |
|
<%
rs.MoveNext
pages=pages-1
end if
%> |
<%
if not rs.eof then
j=j+1
%>
|
| <%=rs("name")%> |
共<%=rs("hit")%>票 |
| "> |
|
<%
rs.MoveNext
pages=pages-1
end if
%> | <%
if not rs.eof then
j=j+1
%>
|
| <%=rs("name")%> |
共<%=rs("hit")%>票 |
| "> |
|
|
<%
rs.MoveNext
pages=pages-1
end if
%>
<%
loop
end if
rs.Close
Set rs=Nothing
%>
| |
