简单分页函数一 常用

en %>
共有<%=rs.recordcount%>条|当前页<%=intpage%>/
<%

=rs.pagecount%>

<% end if %>
<%if intpage>1 then%>
<a href="<%request.ServerVariables("SCRIPT_NAME")%>?

page=1">首页</a>
<%else%>
首页
<%end if%>
<%if first then%>
<a href="<%request.ServerVariables("SCRIPT_NAME")%>?

page=<%=intpage-1%>"></a>
<%else%>

<%end if%>
<%if last and intpage<rs.pagecount then%>
<a href="<%request.ServerVariables("SCRIPT_NAME")%>?

page=<%=intpage+1%>"></a>
<%else%>

<%end if%>
<%if intpage<rs.pagecount then%>
<a href="<%request.ServerVariables("SCRIPT_NAME")%>?

page=<%=rs.pagecount%>">尾页</a>
<%else%>
尾页
<%end if%>
转到
<select onChange="location=this.options

[this.selectedIndex].value">
<%for b=1 to rs.pagecount
if b=intpage then%>
<option value="<%request.ServerVariables("SCRIPT_NAME")%>?page=<%=b%>" selected>

第<%=b%>页</option>
<% else %>
<option value="<%request.ServerVariables("SCRIPT_NAME")%>?page=<%=b%>">第<%=b%>页

</option>
<%end if
next%>
</select>
</div></td>
</tr>
</table>
</body>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>