Question

asp 分页不能实现。点击下一页总是出现的是第一页

function gotogape(hrefto,hrefname,xml2,xml3)
qwbm_cms=""
qwbm_cms=qwbm_cms & "<div class=""mpage"">" & vbcrlf
qwbm_cms=qwbm_cms & " <div class=""mpagel"">" & vbcrlf
If page=1 Then
qwbm_cms=qwbm_cms & "<span class='disabled'>上一页</span>" & vbcrlf
Else
qwbm_cms=qwbm_cms & "<a href='"& hrefto &"page="& page-1 & hrefname &"'>上一页</a>" & vbcrlf
End If
Dim Startpage,Endpage
Startpage =(page \ 10)*10+1
If page mod 10 = 0 Then Startpage = (page \ 10)*10-9
If page > 10 Then
qwbm_cms=qwbm_cms & ("<a href='"& hrefto &"page="& Startpage-1 & hrefname &"'>前十页</a>")
End If
Endpage=Startpage+9
For Startpage = Startpage To Endpage
If Startpage = page Then
qwbm_cms=qwbm_cms & "<span class='current'>" & Startpage & "</span>"
Else
qwbm_cms=qwbm_cms & "<a href='"& hrefto &"page="& Startpage & hrefname &"'>[" & Startpage & "]</a> "
End If
If Startpage >= rs.Pagecount Then Exit For
Next
If (rs.Pagecount - page) => (rs.Pagecount mod 10) Then
qwbm_cms=qwbm_cms & ("<a href='"& hrefto &"page="& Startpage & hrefname &"'>后十页</a>")
End If
If page=rs.Pagecount Then
qwbm_cms=qwbm_cms & "<span class='disabled'>下一页</span>" & vbcrlf
Else
qwbm_cms=qwbm_cms & "<a href='"& hrefto &"page="& page+1 & hrefname &"'>下一页</a>" & vbcrlf
End If
rs_First=(page-1)*rs.pagesize+1
rs_Last=rs_First+correntrecords-1
qwbm_cms=qwbm_cms & "</div><div class='mpager'>[页次:<span>"& page &"</span>/"& rs.Pagecount &"页]</div></div>" & vbcrlf
gotogape=qwbm_cms
end function
function new_zhixuns()

Answer 1

看了你的代码，老火，很难读，以后要多写一些可读性强的代码，下面是我发现的一些问题：
1、在每一个链接（ href='"& hrefto &"page="& page+1 & hrefname &"'）上仔细看看，hrefto 参数是什么格式的，如果参数连接没有连接符（&）结束，要在"page="前加&符号（href='"& hrefto &"&page="& page+1 & hrefname&"'）。
2、hrefname是什么数据，page="& page+1就OK了（不清楚你加hrefname有什么作用 ）；
------------------------
你的方法建议重构一下。写一个通用的分类函数，以后在什么地方都可以了，那会更好，希望我的建议对你有帮助。