简单分页函数一 常用(4)

              <%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%>页