下面这段代码不能打开下一页,高手帮我改下万分感谢!!!!!!


<%
dim m,n
set rs=server.CreateObject("adodb.recordset")
sqlstr="select * from news where smallclassname='新闻动态' and ok<>no order by id desc"
rs.open sqlstr,conn,3,3
rs.pagesize=5 '定义一页显示的记录数目
tatalrecord=rs.recordcount '获取记录总数目
tatalpages=rs.pagecount '获取分页的数目
rs.movefirst

nowpage=request("page") '用request获取当前页数，注意page是自己定义的变量并非函数

if nowpage&"x"="x" then '处理页码为空时的情况
nowpage=1
else
nowpage=cint(nowpage) '将页码转换成数字型
end if

rs.absolutepage=nowpage '将指针移动到当前显示页的第一条记录

%>

<%
n=1
while not rs.eof and n<=rs.pagesize %>
· <a href="show_news.asp?id=<%=rs("id")%> "title="<%=rs("title")%> " <%If DateDiff("d",Rs("time"),now())<1 Then response.Write(" style=color:#FF0000")%>> <%=left(rs("title"),25)%></a><BR>

<%n=n+1
rs.movenext '显示页面的数据
wend
%>

共:<%=tatalpages%>页 当前为:<%=nowpage%>页
<%if nowpage>1 then%>
<a href="show_news.asp?page=<%=nowpage-1%>">上一页</a>
<%else%>
上一页
<%end if%>
<%for k=1 to tatalpages%>
<%if k<>nowpage then %>
<a href="Show_news.asp?page=<%=k%>"><%=k%></a>
<%else%>
<%=k%>
<%end if%>
<%next%>
<%if nowpage < tatalpages then%>
<a href="show_news.asp?page=<%=nowpage+1%>">下一页</a>
<%else%>
下一页
<%end if%>
<%if nowpage<>1 then%>
<a href="show_news.asp?page=<%=1%>"> 首页</a>
<%else%>
首页
<%end if%>
<%if nowpage<>tatalpages then %>
<a href="Show_news.asp?page=<%=tatalpages%>">末页</a>
<%else%>
末页
<%end if%>