Question

ASP如何实现前台信息自动编号功能

各位高手好，本人现在调用数据库信息后，想在信息标题前面都加上一个信息编号，请问要如何去实现呢？有分页样式，如：
第一页：
1 标题
2 标题
3 标题
4 标题
5 标题

第二页：
6 标题
7 标题
8 标题
9 标题
10 标题

请问这样要怎么去实现呢，我的代码如下：
<%
tote=Request("ss")
Set xxywRS=Server.CreateObject("ADODB.Recordset")
xxywSQL="Select * from Conews Where BigClassName='新闻' order by id desc"
xxywRs.open xxywSQL,conn,1
PageSize=2
if not(xxywRs.bof and xxywRS.eof) then
if Request("Page")="" then
PageON=1
else
PageOn=Cint(Request("Page"))
end if
xxywRs.PageSize=PageSize
PageTotal=xxywRs.PageCount
xxywRs.AbsolutePage=PageOn
PageSize1=PageSize
do while not xxywRS.eof and PageSize1>0
PageSize1=PageSize1-1
%>
<div class="cont_news_kk"><span class="span12">1</span><span class="span11"><a href="qzxxcx_content.asp?id=<%=xxywRS("id")%>" class="a1"><%=xxywRS("title")%></a></span><span class="span10"><%=xxywRS("time")%></span></div>
<%
xxywRS.Movenext
loop
else
PageOn=0
PageTotal=0
response.write "<div style='font-size:12px;'>对不起，没有信息！</div>"
End if

%>
</div>

<div class="divpage">每页 [ <%=PageSize%> ] 条信息  共 [ <%=PageTotal%> ] 页 第 [ <%=PageOn%> ] 页

<%
if Cint(Pageon)-1>0 then
Response.write "<a href=?Page=1&SmallClassName=" & SmallClassName & ">首页</a> <a href=?Page=" & CStr(Cint(PageOn)-1) & "&SmallClassName=" & SmallClassName &">上一页</a> "
end if
if (Cint(PageOn)+1=<PageTotal) then
Response.write "<a href=?Page=" & CStr(Cint(PageOn)+1) & "&SmallClassName=" & SmallClassName & ">下一页</a> <a href=?Page=" & PageTotal & "&SmallClassName=" & SmallClassName & ">尾页</a>"
end if
%>
</div>

Answer 1

<%
tote=Request("ss")
Set xxywRS=Server.CreateObject("ADODB.Recordset")
xxywSQL="Select * from Conews Where BigClassName='新闻' order by id desc"
xxywRs.open xxywSQL,conn,1
PageSize=2
if not(xxywRs.bof and xxywRS.eof) then
if Request("Page")="" then
PageON=1
else
PageOn=Cint(Request("Page"))
end if
xxywRs.PageSize=PageSize
PageTotal=xxywRs.PageCount
xxywRs.AbsolutePage=PageOn
PageSize1=PageSize
do while not xxywRS.eof and PageSize1>0
PageSize1=PageSize1-1
dim Num,i
Num =PageOn*PageSize1+i+1
%>
<div class="cont_news_kk"><span class="span12"><%Num%></span><span class="span11"><a href="qzxxcx_content.asp?id=<%=xxywRS("id")%>" class="a1"><%=xxywRS("title")%></a></span><span class="span10"><%=xxywRS("time")%></span></div>
<%
xxywRS.Movenext
loop
else
PageOn=0
PageTotal=0
response.write "<div style='font-size:12px;'>对不起，没有信息！</div>"
End if

%>
</div>

<div class="divpage">每页 [ <%=PageSize%> ] 条信息 共 [ <%=PageTotal%> ] 页 第 [ <%=PageOn%> ] 页

<%
if Cint(Pageon)-1>0 then
Response.write "<a href=?Page=1&SmallClassName=" & SmallClassName & ">首页</a> <a href=?Page=" & CStr(Cint(PageOn)-1) & "&SmallClassName=" & SmallClassName &">上一页</a> "
end if
if (Cint(PageOn)+1=<PageTotal) then
Response.write "<a href=?Page=" & CStr(Cint(PageOn)+1) & "&SmallClassName=" & SmallClassName & ">下一页</a> <a href=?Page=" & PageTotal & "&SmallClassName=" & SmallClassName & ">尾页</a>"
end if
%>
</div>

追问

用这个方法没有用，数据都出不来
要加上
但是结果不是出不来，因为他的显示是这样的
第一页：
2 标题
1 标题

第二页：
3 标题
1 标题
依此类推，这是为什么？

追答

因为你的 PageSize=2
你要设置5条记录 应该改为PageSize=5，
还有一处应该为：Num =(PageOn-1)*PageSize+Num+1（写成PageOn*PageSize1+i+1了）
这样前面就应该为
0
PageSize1=PageSize1-1
dim Num
Num=0
Num =(PageOn-1)*PageSize+Num+1
%>
" class="a1">
对不起，没有信息！"
End if

%>

每页 [ ] 条信息 共 [ ] 页 第 [ ] 页

0 then
Response.write "首页 上一页 "
end if
if (Cint(PageOn)+1=下一页 尾页"
end if
%>

补全回答：应该为 Num =(PageOn-1)*PageSize+Num+1，去掉i变量，上面代码中已经修改

Answer 2

定义page变量。表示当前页数 因为你每页五条。
所以i是从(page-1) * 5 + 1 到(page-1) * 5 + 5
如果page=1 i就是1-5了
如果page=2 i就是6-10了
如果page=3 i就是11-15了

追问

能将帮我加到代码里面去吗？我加了没有用

追答

0
PageSize1=PageSize1-1
%>
" class="a1">
对不起，没有信息！"
End if

%>

每页 [ ] 条信息 共 [ ] 页 第 [ ] 页

0 then
Response.write "首页 上一页 "
end if
if (Cint(PageOn)+1=下一页 尾页"
end if
%>

试试
就是把1改成

Answer 3

dim i
i=i+1

显示的时候<%=i%>标题

Answer 4

在前面多添加一列，<td><%=(PageSize*Page)++%> <td>

Answer 5

楼上的不行，下页之后I变量什么被重置了，还是从1开始，而不是顺延下去的6或者N。
所以可以传递这个I变量到下一页。

追问

请问该如何实现呢？