UC知道ASP分页显示问题？
来源：百度知道 编辑：UC知道 时间：2024/05/06 04:38:09
下面是网站的网站的一个页面，实现分页功能。但是分页功能不能实现，点击上一页、下一页找不到news_more.asp文件。网站根目录没有news_more.asp文件。新建news_more.asp文件之后，点击上一页、下一页没有反应。请问如何修改？
<%
i=i+1
if i>=20 then exit do end if
rs.movenext
loop
else
%>
<tr>
<td colspan="2" height="22" align="center">当前没有信息！</td>
</tr>
<%end if
if not request("type")=1 then%>
<form name="form1" method="post" action="news_more.asp?typename=<%=typestr%>&sortid=<%=sortid%>">
<tr valign="bottom">
<td height="30" colspan="2" >
<TABLE border=0>
<TR>
<td height="30" colspan="2"> 共[<font color="#FF6666"><%=totalnews%></font>]篇文章 分[<font color="#FF6666"><%=totalpages%&g
<%
i=i+1
if i>=20 then exit do end if
rs.movenext
loop
else
%>
<tr>
<td colspan="2" height="22" align="center">当前没有信息！</td>
</tr>
<%end if
if not request("type")=1 then%>
<form name="form1" method="post" action="news_more.asp?typename=<%=typestr%>&sortid=<%=sortid%>">
<tr valign="bottom">
<td height="30" colspan="2" >
<TABLE border=0>
<TR>
<td height="30" colspan="2"> 共[<font color="#FF6666"><%=totalnews%></font>]篇文章 分[<font color="#FF6666"><%=totalpages%&g
news_more.asp不要了，直接一个?替换
也就是说，
news_more.asp?typename="&。。。。
改成
?typename="&。。。。
<%
dim pageno '记录第几页
'函数名cut1，参数rs类型为Recordset
'该函数主要将接收一个pageno，并将这个值赋给rs的AbsolutePage
'最终达到指定当前页是第几页
function cut1(rs)
if not rs.eof or not rs.bof then
Dim i
pageno = Request("pageno")
If pageno <= 0 Then
rs.AbsolutePage = 1 '转到第一页
pageno = 1
Else
If CInt(pageno) > CInt(rs.PageCount) Then
pageno = rs.PageCount '转到最后一页
End If
rs.AbsolutePage = pageno
End If
end if
End function
'函数名cut2，参数rs类型为Recordset
'该函数主要将接收一个Request("url")和Request.QueryString，从而取得本页地址栏的内容
'在此基础上，根据当前页数pageno算出各种不同情况下，我们需要的下一页的页数
'最终达