分页

<%
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from table "
rs.open sql,conn,1,1

msg_per_page=20 '定义每页显示记录条数
%>

 

<%
rs.pagesize=msg_per_page '定义分页记录集每页显示记录数

if not (rs.eof and rs.bof) then
 totalrec=RS.RecordCount'总记录条数
 if rs.recordcount mod msg_per_page=0 then'计算总页数,recordcount:数据的总记录数
  n=rs.recordcount/msg_per_page'n:总页数
 else
  n=rs.recordcount/msg_per_page+1                       
 end if                                                               
 currentpage=request("page")'currentpage:当前页
 If currentpage <> "" then
  currentpage =  cint(currentpage)
  if currentpage < 1 then 
   currentpage = 1
  end if 
  if err.number <> 0 then '错误处理
   err.clear
   currentpage=1
  end if
 else
  currentpage=1
 End if                                                               
 if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then
  currentPage=1
 end if
 rs.absolutepage=currentpage'absolutepage：设置指针指向某页开头
 rowcount=rs.pagesize'pagesize：设置每一页的数据记录数
end if
%>

<%
if rs.eof then
response.Write"<div align='center'>暂无任何信息</div>"
else
%>

<%do while not rs.eof and rowcount > 0%>

内容

<%
rowcount=rowcount-1
icolor=icolor+1
if icolor>1 then icolor=0
rs.movenext
loop
end if
%>

<TABLE width=770 border=0 align="center" cellPadding=1 cellSpacing=0 bgColor=#fcdfb4>
  <TBODY>
    <TR>
      <TD>
        <TABLE cellSpacing=0 cellPadding=4 width="770" bgColor=#fef8e2
        border=0>
          <TBODY>
            <TR>
              <TD align=middle noWrap bgcolor="#E9F4FE" class=M><%=listPages("smalllist.asp?sortid="&sortid&"&country1="&country&"&province="&sf&"&city="&city&"&datetime="&datetime&"&show="&show&"")%> </TD>
            </TR>
          </TBODY>
      </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>

 

<%
'分页
Function listPages(LinkFile)
   if not (rs.eof and rs.bof) then
 gopage=currentpage
 totalpage=n
 blockPage=Int((gopage-1)/10)*10+1
' if instr(linkfile,"?page=")>0 or instr(linkfile,"&page=")>0 then
' pos=instr(linkfile,"page=")-2
' linkfile=left(linkfile,pos)
' end if
 
 If LCase(Request.ServerVariables("HTTPS")) = "off" Then
    strTemp = "http://"
    Else
    strTemp = "https://"
    End If
    strTemp = strTemp & CheckStr(Request.ServerVariables("SERVER_NAME"))
    If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & CheckStr(Request.ServerVariables("SERVER_PORT"))
    strTemp = strTemp & CheckStr(Request.ServerVariables("URL"))
    lenstrTemp=len(strTemp)+1 
 if instr(left(linkfile,lenstrTemp),"?")>0 then
 
 if blockPage = 1 Then
  Response.Write "<span disabled>【←前10页</span>&nbsp;"
 Else
  Response.Write("<span disabled>【</span><a href=" & LinkFile & "&page="&blockPage-10&">←前10页</a>&nbsp;")
 End If
   i=1
   Do Until i > 10 or blockPage > n
    If blockPage=int(gopage) Then
  Response.Write("<font color=#FF0000>[<b>"&blockPage&"</b>]</font>")
 Else
  Response.Write(" <a href=" & LinkFile & "&page="&blockPage&">["&blockPage&"]</a> ")
    End If
    blockPage=blockPage+1
    i = i + 1
    Loop
 if blockPage > totalpage Then
  Response.Write "&nbsp;<span disabled>后10页→】"
 Else
  Response.Write("&nbsp;<a href=" & LinkFile & "&page="&blockPage&">后10页→</a><span disabled>】")
 End If
 response.write" 直接到第 "
 response.write"<select οnchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
    for i=1 to totalpage
    response.write"<option value='" & LinkFile & "&page=" & i & "'"
    if i=gopage then response.write"selected"
    response.write">"&i&"</option>"
    next
    response.write"</select>"
    response.write" 页<Br><Br>"
 
 else
 
 if blockPage = 1 Then
  Response.Write "<span disabled>【←前10页</span>&nbsp;"
 Else
  Response.Write("<span disabled>【</span><a href=" & LinkFile & "?page="&blockPage-10&">←前10页</a>&nbsp;")
 End If
   i=1
   Do Until i > 10 or blockPage > n
    If blockPage=int(gopage) Then
  Response.Write("<font color=#FF0000>[<b>"&blockPage&"</b>]</font>")
 Else
  Response.Write(" <a href=" & LinkFile & "?page="&blockPage&">["&blockPage&"]</a> ")
    End If
    blockPage=blockPage+1
    i = i + 1
    Loop
 if blockPage > totalpage Then
  Response.Write "&nbsp;<span disabled>后10页→】"
 Else
  Response.Write("&nbsp;<a href=" & LinkFile & "?page="&blockPage&">后10页→</a><span disabled>】")
 End If
 response.write" 直接到第 "
 response.write"<select οnchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
    for i=1 to totalpage
    response.write"<option value='" & LinkFile & "?page=" & i & "'"
    if i=gopage then response.write"selected"
    response.write">"&i&"</option>"
    next
    response.write"</select>"
    response.write" 页<Br><Br>"
 
 End If
 
 Startinfo=((gopage-1)*msg_per_page)+1
 Endinfo=gopage*msg_per_page
 if Endinfo>totalrec then Endinfo=totalrec
  Response.Write("&nbsp;&nbsp;共 "&totalrec&" 条信息 当前显示第 "&Startinfo&" - "&Endinfo&" 条 每页 "&msg_per_page&" 条信息 共 "&n&" 页")
end if
End Function
%>