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

<% if not rs.eof then j=j+1 %>   "> " target=_blank>" width="180" height="135" border="0" />   <%=rs("name")%> "> "> <% rs.MoveNext pages=pages-1 end if %>

<% if not rs.eof then j=j+1 %>   ">" target=_blank>" width="180" height="135" border="0" />">">">   <%=rs("name")%> "> "> <% rs.MoveNext pages=pages-1 end if %>

<% if not rs.eof then j=j+1 %>   ">">" target=_blank>" width="180" height="135" border="0" />">">   <%=rs("name")%> "> "> <% rs.MoveNext pages=pages-1 end if %>

<% if not rs.eof then j=j+1 %>   ">" target=_blank>" width="180" height="135" border="0" />">">">   <%=rs("name")%> "> "> <% rs.MoveNext pages=pages-1 end if %>

<% if not rs.eof then j=j+1 %>   ">" target=_blank>" width="180" height="135" border="0" />">">">   <%=rs("name")%> "> "> <% rs.MoveNext pages=pages-1 end if %>

页次：<%=page%>/<%=allpages%>  分页： <% for i=1 to allpages if i=Cint(page) then Response.Write("["&i&"]") else Response.Write("["&i&"]") end if next %>