Question

asp如何设置图片显示页数 下一页 上一页

<table cellpadding="0" align="center" border="0" cellspace="0">
<tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select top 10 * from newslist where n_pid=69 and n_ppid=377 order by num desc"
rs.open sql,conn,1,1
if not (rs.eof and rs.bof) then
Row=1
do while not rs.eof

%>
<td align="center" style="padding-left:15px; line-height:23px; font-size:12px;" valign="top"><a href="sysx_content.asp?n_id=<%=rs("n_id")%>"><img src="../<%=right(rs("pic1"),len(rs("pic1"))-3)%>"border="0" style="BORder:1px solid #cccccc; padding:3px;"/ width="150" height="100" /><br />
<%=rs("n_title")%></a></td>
<%

If Row Mod 4=0 Then
Response.Write("</tr><tr>")
end if
Row=Row+1
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</tr>
</table>

成共有45条记录 当前显示第1页 每页显示12条记录 下一页 尾页

Answer 1

<table cellpadding="0" align="center" border="0" cellspace="0">
<tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select top 10 * from newslist where n_pid=69 and n_ppid=377 order by num desc"
rs.open sql,conn,1,1
if not (rs.eof and rs.bof) then
pagenum=20 '每页显示个数
total=rs.recordcount
rs.pagesize=pagenum
pgnm=rs.pagecount
page=request("page")
if page=""or clng(page)<1 then page=1
if clng(page)>pgnm then page=pgnm
if pgnm>0 then rs.absolutepage=page
Row=1
do while not rs.eof and i<=pagenum

%>
<td align="center" style="padding-left:15px; line-height:23px; font-size:12px;" valign="top"><a href="sysx_content.asp?n_id=<%=rs("n_id")%>"><img src="../<%=right(rs("pic1"),len(rs("pic1"))-3)%>"border="0" style="BORder:1px solid #cccccc; padding:3px;"/ width="150" height="100" /><br />
<%=rs("n_title")%></a></td>
<%

If Row Mod 4=0 Then
Response.Write("</tr><tr>")
end if
Row=Row+1
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</tr>
</table>

总共有<%=total%>条记录，当前：<%=page%>页 每页显示<%=pagenum%><%if clng(page)>1 then%><a href="?page=1">首页</a><%else%>首页<%end if%> <%if clng(page)>1 then%><a href="?page=<%=page-1%>">上一页</a><%else%>上一页<%end if%> <%if clng(page)<clng(pgnm) then%><a href="?page=<%=page+1%>">下一页</a><%else%>下一页<%end if%> <%if clng(page)<>clng(pgnm) then%><a href="?page=<%=pgnm%>">尾页</a><%else%>尾页<%end if%>

Answer 2

page 代码附上即可
如不懂可HI我