<%filenames = "xwzx.asp"%> <%page=request("page") lookpage=12 if page="" then page=1 if not(isnumeric(page)) then page=1 if page<1 then page=1 page=int(page) set rs=server.createobject("adodb.recordset") sql="select newsid,newstitle,bigid,tupian from news order by newsid asc" rs.open sql,conn,1,1 if rs.eof then%> <%else rs.pagesize=lookpage totalrec=rs.recordcount totalpage=rs.pagecount if page>totalpage then page=totalpage rs.absolutepage=page rs.cachesize=rs.pagesize%> <%for j=1 to rs.PageSize%> <%rs.movenext if rs.eof then exit for next%> <%end if rs.close set rs=nothing%>