asp 数字分页问题

Question

在asp中如何实现这样的数字分页，如何点第7页的时候第1页消失却增加了11页，求高手解答，谢谢
我的数字分页

我点7页，前面都消失了，我希望7页前面有[2][3][4][5][6]
代码如下
if totalpage-j>4 then
PageNO=j+4
else
PageNO=totalpage
end if
这是有数字分页代码

for coun=j to pageno
if coun=1 then
listpage=listpage&"<a href=index.html"&">" & coun & "</a> "
else
if coun=j then
listpage=listpage&"<a href=html_"&coun&".html"&"><span class='select'>" & coun & "</span></a> "
else
listpage=listpage&"<a href=html_"&coun&".html"&">" & coun& "</a> "
end if
end if
next

for 循环是不是有问题呢

Answer 1

totalpage=?
pageno=?
startn=pageno-4
lastn=pageno+4
if startn<=0 then startn=1 ' (保证分页时，第一页正常范围)
if lastn>=pageno then lastn=pageno ' (保证分页时，最后一页正常范围)
'以下直接输出
for i=startn to lastn
//输出
next
用这样试试

追问

totalpage=?
pageno=?
您好！这两个问号应该怎么填呢

经过反复修改，比较接近成功的一次，for startn=j-4 to lastn 这样已经达到我要的效果，唯一的问题是负数，出现了[-3] [-2] [-1] [0] [1] [2] [3]怎么办，怎么去掉负数和0

追答

totalpage=?这个是数据库提到的
pageno=?这个是当前页
if startn=pageno then lastn=pageno ' (保证分页时，最后一页正常范围)

也不会超出。当大于最大页时，那就=于最大页

下面输出就合理了呀

关于你自己的代码
for startn=j-4 to lastn ’这里要先做一个判断

startn=j-4 '(我这里将j改成了pageno)

if startn<=0 then startn=1‘判断最差效果也要从1开始
这样不就结了。。。