没有把分类条件传进去
'----------------------计算分页
pagefl=Request.QueryString("pagefl")
Response.Write(pagefl)
if not page_f=1 then
%>
<a href="<%=aspfile & "?page_f=1&pagefl="&pagefl&""%>" class="page">最前一页</a> <a href="<%=aspfile & "?page_f=" & page_f-1&"&pagefl="&pagefl&""%>" class="page">前一页</a>
<%
end if
'response.write pagef_first & "<br>"
'response.write pagef_last & "<br>"
for i=pagef_first to pagef_last
if not i=page_f then
%>
<a href=<%=aspfile & "?page_f=" &i&"&pagefl="&pagefl&""%>><%=i%></a>
<%
else
response.write "<strong><font color=#FF0000>" & i & "</font></strong>"
end if
next
if not page_f=rs.pagecount then
%>
<a href="<%=aspfile & "?page_f=" & page_f+1&"&pagefl="&pagefl&""%>"
class="page">下一页</a> <a href="<%=aspfile & "?page_f=" & rs.pagecount&"&pagefl="&pagefl&""%>" class="page">最后一页</a>