<% Session.LCID = 1046 XXXPalavra = request.form("Palavra") If Request.Form("Palavra")<>"" Then dim dteInicial dteInicial = Request.Form("txtDataInicial") dteInicial = Year(dteInicial) & "-" & Month(dteInicial) & "-" & Day(dteInicial) dim dteFinal dteFinal = Request.Form("txtDataFinal") dteFinal = Year(dteFinal) & "-" & Month(dteFinal) & "-" & Day(dteFinal) %> <% dim conexao Sub Abreconexao() %> <!--#Include File="conexao.asp"--> <% End Sub Sub Fechaconexao() conexao.Close() Set conexao = Nothing End Sub %> <% Call Abreconexao() 'pega a pagina atual pagina = request.ServerVariables("SCRIPT_NAME") 'NÚMERO DE REGISTROS POR PÁGINA... pageSize = 10 if(len(Request.QueryString("p")) = 0 )then paginaAtual = 1 else paginaAtual = CInt(Request.QueryString("p")) end if ' conta o número de registros... sql = "SELECT COUNT(*) AS total FROM tabela WHERE NOME like '%"+XXXPalavra+"%' and DATA BETWEEN '"& dteInicial &"' and '"& dteFinal &"' LIMIT " & (paginaAtual - 1) * pageSize & " , " & pageSize set rs = conexao.execute(sql) 'total de registros recordCount = Cint(rs("total")) 'calculamos o numero de paginas... pageCount = Clng(recordCount / pageSize) If pageCount < 1 then pageCount = 1 end if rs.Close() Flag1 = INT(paginaAtual / pagesize) PI = INT(Flag1 * pagesize) IF PI = 0 THEN PI = 1 END IF PF = PI + pagesize - 1 %> <% ' selecionamos os registros... sql = "SELECT * FROM tabela WHERE NOME like '%"+XXXPalavra+"%' and DATA BETWEEN '"& dteInicial &"' and '"& dteFinal &"' LIMIT " & (paginaAtual - 1) * pageSize & " , " & pageSize set rs = conexao.execute(sql) do while not rs.eof %> <div align="center"> <TABLE BORDER=0 width="681"> <% ID= rs("ID") %> <tr> <TD bgcolor="#D3D3D3" width="120" background="img/fundo_barra.jpg" style="background-repeat: repeat-x"> <font face="Verdana" size="2" color="#000000"> <a href="user_resultado_consulta.asp?ID=<%=ID%>" style="color: #3366CC"> Nome <% NOME=rs("NOME")%> <% =rs("NOME")%> </a> </font> </TD> <TD bgcolor="#D3D3D3" width="499" background="img/fundo_barra.jpg" style="background-repeat: repeat-x"> <font face="Verdana" size="2" color="#000000"> <% =rs("DATA") %> <% DATA=rs("DATA") %> </font></TD></tr> <tr><TD bgcolor="#F9F9F9" width="666" colspan="3" style="border-left-width: 1px; border-right-width: 1px; border-top-width: 1px"> <font face="Arial,Verdana" size="2" color="#808080"><% ASSUNTO=rs("ASSUNTO")%> <% =ASSUNTO%> </font></TD></tr> <TR><TD width="666" colspan="3"> </TD></tr> </table> <% rs.MoveNext() loop rs.Close() set rs = nothing Call Fechaconexao() set conexao = nothing Response.Write "<br>( Página " & paginaAtual & " de " & pagecount & " )" ' cria os links de paginas... IF CInt(paginaAtual) > 1 THEN Response.Write "<a href='"&pagina&"?p=1'>Primeira</a> " Else Response.Write "<font color=""#ADADAD"">Primeira</font> " END IF if CInt(paginaAtual) > 1 then Response.Write "<a href='"&pagina&"?p=" & paginaAtual - 1 &"'><</a> " Else Response.Write "<font color='#ADADAD'><</font> " END IF for i=1 to pageCount Response.Write("<a href='"&pagina&"?p=" & i & "'>" & i & "</a> ") next IF (CInt(paginaAtual) < pagecount) THEN IF CInt(PF) <> pagecount THEN Response.Write "<a href='"&pagina&"?p=" & paginaAtual+1 & "'>></a> " END IF Else Response.Write "<font color=""#ADADAD"">></font> " END IF IF (CInt(paginaAtual) <> pagecount) THEN IF CInt(PF) <> pagecount THEN Response.Write "<a href='"&pagina&"?p=" & pagecount & "'>Última</a> " END IF Else Response.Write "<font color=""#ADADAD"">Última</font> " END IF end if %>
Edição feita por: Renan L. Queiroz, 03/11/2009, 16:22.