Question

一个ASP分页代码，现在是：修改当前页内容后，就会返回到第一页，我想要它就停在前页？怎么改？

<%
if rs.eof and rs.bof then
response.write "共找到 0 个产品</td></tr></table>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if

end if
response.Write "共找到 " & totalPut & " 个产品"
%> </td>
<td width="208"> </td>
</tr>
</table>
<%
if currentPage=1 then
showContent
showpage strFileName,totalput,MaxPerPage,true,false,"个产品"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage strFileName,totalput,MaxPerPage,true,false,"个产品"
else
currentPage=1
showContent
showpage strFileName,totalput,MaxPerPage,true,false,"个产品"
end if
end if
end if
%>
<%
sub showContent
dim i
i=0
%>

Answer 1

你这个代码看上去很像网上的良精系统里的，分页代码不在这里

如果你想修改返回当前页，你只要将当前页的分页ID传过去，比如修改提交时的的链接设为：
edit.asp是当前页
editsave.asp是你编辑保存的这个页面，你只要将PAGE是你的分页，将这个PAGE传过去.

editsave.asp?page=<%=request("page")%>

在editsave.asp里将传来的值接受一下，是将page写入返回的链接后面，就是
保存成功返回
edit.asp?page=<%=request("page")%>,这样你就会返回了当前页，当然这要看你具体的定义，不过按我这思路完成是可以实现的

Answer 2

把asp文件发来76547758@qq.com

追问

已经发到你邮箱，请查收