一个通用的ASP查询分页
<%
Sub LastNextPage(pagecount,page,resultcount) Dim query, a, x, temp
action = \Request.ServerVariables(\
query = Split(Request.ServerVariables(\ For Each x In query a = Split(x, \
If StrComp(a(0), \ temp = temp & a(0) & \ End If Next
Response.Write(\
Response.Write(\& \ Response.Write(\' Response.Write(font_style & vbCrLf )
if page<=1 then
Response.Write (\首页 \ Response.Write (\上页 \ else
Response.Write(\首页 \ Response.Write(\上页 \vbCrLf) end if
if page>=pagecount then
Response.Write (\下页 \ Response.Write (\尾页\ else
Response.Write(\下页 \vbCrLf)
Response.Write(\尾页\vbCrLf) end if
Response.Write(\ Response.Write(\ Response.Write(\
条记录 共<%=maxpage%>页 当前第<%=page%>页 | End sub %> <% if not rs.eof then rs.PageSize =20 result_num=rs.RecordCount maxpage=rs.PageCount page=request(\ if Not IsNumeric(page) or page=\ page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page else result_num=0 maxpage=0 page=0 response.write \系统提示:没有找到任何可用数据. |
loading