文章正文

高手帮我看看这段分页代码?

类型：转载责任编辑：asp.net 日期：2007/05/23

热门软件下载：

原来是: http://localhost/sms/aspsmsweb/list.asp?classid=11&Nclassid=74
我点下一页时却是: http://localhost/sms/aspsmsweb/index.asp?page=2&classid=11&Nclassid=74
是什么问题？
<%
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<form method=Post action="&filename&"?classid="&request("classid")&"&Nclassid="&request("Nclassid")&">"
response.write "  <font color=red>"&Nclassname&"</font>"

if CurrentPage<2 then
response.write " 共"&totalnumber&"条 首页上一页 "
else
response.write ""&totalnumber&"个 <a href="&filename&"?page=1&classid="&request("classid")&"&Nclassid="&request("Nclassid")&">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&classid="&request("classid")&"&Nclassid="&request("Nclassid")&">上一页</a> "
end if

if n-currentpage<1 then
response.write "下一页尾页"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&classid="&request("classid")&"&Nclassid="&request("Nclassid")&">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&classid="&request("classid")&"&Nclassid="&request("Nclassid")&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
response.write " <b>"&maxperpage&"</b>条短句/页 "
%>
跳转：
<select name=page size=1 onChange=javascript:submit()>
<%for i = 1 to n%>
<option value=<%=i%> <%if cint(Page)=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
<%next%>
</select>
<%
end function
set rs=nothing
conn.close
set conn=nothing
%>

网友回答：

发表者：jackson171

<%
显示翻页

dim curpage,i
if request("page")="" then
curpage = 1
else
curpage = cint(request("page"))

end if

rs.pagesize =15
rs.absolutepage = curpage

for i = 1 to rs.pagesize
if rs.eof then
exit for
end if

%>


<TR valign="bottom" bgcolor="#567D30">
<TD width="91" height=25 align=center valign="center" noWrap>
<div align="center"><%=rs("vcid")%> </div></TD>
<TD width="111" align=center valign="center" noWrap>
<div align="center"><%=rs("vcname")%> </div></TD>
<TD width="81" align=center valign="center" noWrap>
<div align="center"><%=rs("handoverperson")%> </div></TD>
<TD width="81" align=center valign="center" noWrap>
<div align="center"><%=rs("receiver")%> </div></TD>
<TD width="91" align=center valign="center" noWrap>
<div align="center"><%=rs("signature")%> </div></TD>
<TD width="91" align=center valign="center" noWrap>
<div align="center"><%=rs("handovertime")%> </div></TD>
<TD width="91" align=center valign="center" noWrap>
<div align="center"><%=rs("handovermethod")%> </div></TD>
<TD width="45" align=center valign="center" noWrap><a href=edit3.asp?vcid=<%=rs("vcid")%>&id=<%=rs("id")%>target="_parent">修改</a></td>
<TD width="46" align=center valign="center" noWrap><a href=javascript:confirmDel(<%= rs("id") %>)>删除</a></td>

</TR>

<%
rs.movenext
next
%>
</TABLE>
<br>

<center>
<font color="white" size="2pt">
<%
显示换页说明

response.write "<font color=white>第</font>" + cstr(curpage) + "<font color=white>页/总</font>" + cstr(rs.pagecount) + "<font color=white>页</font> "
response.write "本页" + cstr(i-1) + "条/总" + cstr(rs.recordcount) + "条 "
if curpage = 1 then
response.write "首页前页 "
else
response.write "<a href=hn_querybottom.asp?" + strtype + "=" + cstr(strvalue) + "&page=1>首页</a> <a href=hn_querybottom.asp?" + strtype + "=" + cstr(strvalue) + "&page=" + cstr(curpage-1) + ">前页</a> "
end if
if curpage = rs.pagecount then
response.write "后页末页"
else
response.write "<a href=hn_querybottom.asp?" + strtype + "=" + cstr(strvalue) + "&page=" + cstr(curpage+1) + ">后页</a> <a href=hn_querybottom.asp?" + strtype + "=" + cstr(strvalue) + "&page=" + cstr(rs.pagecount) + ">末页</a>"
end if

end if
%>

发表者：antiking

"<a href="&filename&"?page="&(CurrentPage+1)&"&这个值不是2么？有什么地方不对么。你的currentPage=1不是么？

发表者：Amely

<%
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<form method=Post action="&filename&"?classid="&request("classid")&"&Nclassid="&request("Nclassid")&">"
response.write "  <font color=red>"&Nclassname&"</font>"

if CurrentPage<2 then
response.write " 共"&totalnumber&"条 首页上一页 "
else
response.write ""&totalnumber&"个 <a href="&filename&"?page=1&classid="&request("classid")&"&Nclassid="&request("Nclassid")&">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&classid="&request("classid")&"&Nclassid="&request("Nclassid")&">上一页</a> "
if

if n-currentpage<1 then
response.write "下一页尾页"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&classid="&request("classid")&"&Nclassid="&request("Nclassid")&">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&classid="&request("classid")&"&Nclassid="&request("Nclassid")&">尾页</a>"
end if
response.write " 页次：<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
response.write " <b>"&maxperpage&"</b>条短句/页 "
%>
跳转：
<select name=page size=1 onChange=javascript:submit()>
<%for i = 1 to n%>
<option value=<%=i%> <%if cint(Page)=cint(i) then%> selected <%end if%>>第<%=i%>页 </option>
<%next%>
</select>
<%
end function
set rs=nothing
conn.close
set conn=nothing
%>

你的程序我整理了一下，原来是一个分页过程
你是什么调用的吗？
如果就一个过程来说，问题很难找

热门推荐笔记本： IBM笔记本

笔记本相关：

IT技术文章：