ASP第二页翻页不显示

今天写一个带数字的分页代码，效果如下：
http://b36.photo.store.qq.com/http_imgload.cgi?/rurl4_b=605b080b1af92bf2ee86bb3e5d4061dc24e8813b1afd6ba3a1c5c30a04a59cfcebd8784a23670d959553b02d78c38f254eb36a6364854923dd81b70ccc0ef5be777f0da6e3e32919be17ba3981a189c58daf91f7&a=38&b=36

分析，需要达到的目的有：

1. 循环显示分页链接

2. 判断当前页，并以红色显示

3. 每次仅显示5格数字，当前页居中

4. 到达记录集最后一页停止循环

第一次代码如下：

<% '数字分页

curpage=request.QueryString("curpage") ‘获取URL传递的页码

if curpage="" then curpage=1 end if ‘设置curpage默认值为1

cur=curpage ‘将curpage传递给变量cur，用来判断当前页数，并以红色显示

if curpage>2 then

curpage=curpage-2

end if

for i=1 to 5 ‘开始循环，显示5格

if cur= curpage then ‘判断当前页

%>

‘如果是当前页，使用红色显示

<%else%>

‘不是，则使用白色

<%

end if

if curpage=rslist.pagecount then ‘判断当前是否为最后一页

exit for ‘是，则退出循环

end if

curpage=curpage+1 ‘curpage自增

next

%>

看完代码，你有没有发现问题呢。其实问题是存在的。

我测试时，如果curpage大于2的时候，就无法使用红色显示当前页了。

判断问题原因：

1. 是不是因为无法判断或者输出错误呢（不是）

2. 无法判断是什么原因呢

3. cur值有改变吗（不是）

经过判断。原因在于第二条。可能的问题是变量类型不同，无法判断当前页码。修改判断当前页的代码为if CInt(cur)=CInt(curpage) then

将cur和curpage都使用Cint转换为整数类型。测试后，问题就解决了。

所以完整的带数字的分页代码为：

<%

curpage=request.QueryString("curpage")

if curpage="" then

curpage=1

end if

if curpage>1 then '第一页

%>



<%end if%>

<%

cur=curpage

if curpage>2 then

curpage=curpage-2

end if

if curpage=2 then

curpage=curpage-1

end if

for i=1 to 5

if CInt(cur)=CInt(curpage) then

%>



<%else%>



<%

end if

if curpage=rslist.pagecount then

exit for

end if

curpage=curpage+1

next

%>

<%if rslist.pagecount
response.Write(" ")

else

%>

>>

<%end if%>