http://auto.sina.com.cn/photo/haiwai/index.shtml

我想实现这个页面上的分页显示的效果 < 1 2 3 4 5 6 下一页 >


,求代码

好的,我试试,多谢

不行阿

我想实现< 1 2 3 4 5 6 下一页 >
这种分页显示的效果

不是上一页 下一页 的那种

谢谢大家

hxfly
我按你的分页程序 改了一下:
<!--#include file="../include/opendb.asp"-->
<%
sql="SELECT top 8 newid,bt,time2 FROM xwtp where leibie='汽车幽默' ORDER BY newid desc"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,3,1,1
rs.pagesize=2
if Request.QueryString("pageNum")="" or Request.QueryString("pageNum")<0 then
page=1
else
page=Request.QueryString("pageNum")
end if
rs.Absolutepage=page


if not (rs.eof and rs.bof) then
do while not rs.eof and i<rs.pagesize
%>
<table width="242" border="0" align="left" cellpadding="0" cellspacing="0">
<%do while not RS.eof
Set timew = rs("time2")%>
<tr>
<td width="11"><img src="shou/shou/shou51.JPG" width="6" height="7"></td>
<td width="242" align="left" ><span class=title04><a href="../xw/imagesnew.asp?id=<%=rs("newid")%>" target="_blank"><%=mid(rs("bt"),1,19)%></a></span></td>
</tr>
<%rs.MoveNext
loop
rs.close %>
</table>
<%
i=i+1
rs.movenext
loop


end if
%>

<%
ppage=page-1
if ppage>0 then
Response.Write("<font size=2 color=blue><a href=fy001.asp?list="&list&"&pagenum="&ppage&">上一页</a></font>&nbsp;&nbsp;")
end if
do while j<=rs.pagecount
Response.Write("<font size=2 color=blue><a href=fy001.asp?list="&list&"&pagenum="&j&">"&j&"</a></font>&nbsp;&nbsp;")
j=j+1
loop
npage=page+1
if npage<=rs.pagecount then
Response.Write("<font size=2 color=blue><a href=fy001.asp?list="&list&"&pagenum="&npage&">下一页</a></font>&nbsp;&nbsp;")
end if

Response.Write("<font size=2 color=blue>您现在的位置是 第</font><font size=2 color=red>"&page&"</font><font size=2 color=blue>页</font>&nbsp;&nbsp;")

%>

运行提示:

	难道比尔盖茨又买新车啦！？4
	对!是个女的!
	高油价应对秘籍
	北京出租司机语录
	中国特色考车笑话
	看交警收拾贫嘴MM
	中美的司机对对碰
	公车上的合法抢劫

ADODB.Recordset 错误 '800a0e78'

对象关闭时，不允许操作。

/ly/fy001.asp，行 31




左边是读出的一些新闻,我不清楚哪有问题

我已经解决了,谢谢hxfly

美中不足的就是,如果显示的过多,就会有:
上一页 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 下一页 您现在的位置是 第26页

如何改成:
上一页 [1] 2 [3] [4] [5] 下一页

下面改成了如下:
<%
ppage=page-1
if ppage>0 then
Response.Write("<font size=2 color=blue><a href=11.asp?list="&list&"&pagenum="&ppage&">[上一页]</a></font>&nbsp;&nbsp;")
end if

for j=pagenum to pagenum+5
if pagenum= j then
Response.write "["&j&"]"
else
Response.Write("<font size=2 color=blue><a href=11.asp? list="&list&"&pagenum="&j&">"&"["&j&"]"&"</a></font>&nbsp;&nbsp;")
end if
if j>= rs.pagecount then
exit for
end if
next
npage=page+1
if npage<=rs.pagecount then
Response.Write("<font size=2 color=blue><a href=11.asp?list="&list&"&pagenum="&npage&">[下一页]</a></font>&nbsp;&nbsp;")
end if

Response.Write("<font size=2 color=blue>您现在的位置是 第</font><font size=2 color=red>"&page&"</font><font size=2 color=blue>页</font>&nbsp;&nbsp;")

%>

有个新问题:
一低下的结果为[0][1] [2] [3] [4] [5] [下一页] 您现在的位置是 第1页
但是点击[1] [2] [3] [4] [5]后,旁边的 您现在的位置是 第1页

一直都是 第1页
只有点击 [下一页] 才能进行浏览

谢谢

文件好像不全啊,没法用