Question

asp序号升序降序问题！

<%
dim a
const MaxPerPage =20
dim totalput
dim currentpage
dim totalpages

set rs=server.createobject("adodb.recordset")
sql="select * from whwr_com_pinglu where whwr_com_show_id="&id&" order by id asc"
rs.open sql,conn,1,1

if not rs.eof then
rs.pagesize=Maxperpage
Currentpage=clng(request("page"))
if Currentpage="" then
Currentpage=1
elseif currentpage<1 then
currentpage=1
else
currentpage=clng(currentpage)
if currentpage > rs.pagecount then
currentpage=rs.pagecount
end if
end if

totalput=rs.recordcount
rs.move(currentpage-1)*maxperpage

dim n,k
if (totalput mod maxperpage)=0 then
n= totalput \maxperpage
else
n= totalput \maxperpage +1
end if
end if

a=0

do while not rs.eof and a<MaxPerPage

%>
输出： <%=a+1%>
以sql="select * from whwr_com_pinglu where whwr_com_show_id="&id&" order by id asc"方式输出，显示为：
1.第一条评论
2.第二条评论
如果把id asc改为desc，则显示为：
1.第二条评论
2，第一条评论
后面的新评论都是以序号1出现的，请问怎么解决？
我要的效果是
2.第二条评论
1.第一条评论

Answer 1

a = rs.recordcount + 1
do while not rs.eof and a<MaxPerPage

%>
输出： <%=a-1%>
改这个试下