Ir para conteúdo
Fórum Script Brasil
  • 0

Deixar Página Atual Inativa

marcos_804

Perguntado por marcos_804,

 Share

Pergunta

marcos_804

marcos_804

Postado
Postado

OLÁ, GALERINHA TUDO BEM? eSTOU AQUI DE VOLTA POIS TO COM UM PROBLEMA MÉDIO.

estou COM UM CÓDIGO DE PAGINAÇÃO, MAS EU QUERIA QUE A PAGINA ATUAL, OU SEJA AQUELA QUE ESTEJA SENDO EXIBIDA FIQUE DESLINKADA OU INATIVA.

TAMBÉM GOSTARIA DE SABER COMO FAÇO PARA EXIBIR APENAS 5 PÁGINAS POR VEZ

ABAIXO VAI O CODIGO

<% Response.Buffer = True %>
<%

Dim adoCon    
Dim rs  	
Dim strCon  	
Dim strAccessDB  	
Dim strSQL    
Dim strPreviousPollQuestion	
Dim intPreviousPollQuestionID	
Dim dtmPreviousPollQuestionDate 
Dim intRecordPositionPageNum  
Dim intRecordLoopCounter	

Const intRecordsPerPage = 2 

If Request.QueryString("PaginaAtual") = "" Then
	intRecordPositionPageNum = 1

Else
	intRecordPositionPageNum = CInt(Request.QueryString("PaginaAtual"))
End If	

%>
<html>
<head>
<title>TESTE DE PAGINA&Ccedil;&Atilde;O</title>
<style>
a{color:#ff0000;text-decoration:none}
a:hover{padding-left:3;color:#336699;text-decoration:underline}
</style>

</head>

<body bgcolor="#ffffff" style="font-family: verdana; font-size: 12">


<div align="center">
  <span style="font-family:verdana;font-size:17;font-weight:bold;color:#336699">Teste Do Livro</span>
  <table width="370" border="0" cellspacing="0" cellpadding="1">
    <%
strAccessDB = "banco"

Set adoCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
'Abre conexao com o banco de dados
strCon="DRIVER={Microsoft Access Driver (*.mdb)};"
strCon = strCon & "DBQ=" & Server.MapPath(strAccessDB)
strSQL = "SELECT * FROM banco ORDER By id DESC"
rs.Open strSQL, strCon, 3

TotalDEGravacoes = rs.RecordCount
TotalDePaginas = int(TotalDEGravacoes/intRecordsPerPage)
If TotalDEPaginas MOD intRecordsPerPage <> 0 Then
TotalDEPaginas = TotalDePaginas + 1 
end if

rs.PageSize = intRecordsPerPage
If NOT rs.EOF Then rs.AbsolutePage = intRecordPositionPageNum
For intRecordLoopCounter = 1 to intRecordsPerPage

	'If there are no more previous Poll Question records left to display then exit loop
	If rs.EOF Then Exit For

	Response.Write  "<tr>"
	Response.Write "<td width=""250"">Nome: <b>" & rs("nome") & "</b></td></tr><tr>"	
	Response.Write "<td width=""120"" align=""right"">Email: <b></td><td><a href=""mailto:" & rs("email") & """>" & rs("email") & "</a></b></td>"
	Response.Write "</tr>"


	'Move to the next record
	rs.MoveNext

Next



 %>
  </table>
  <br>
  <table width="370" border="0" cellspacing="1" cellpadding="1" align="center" height="21" style="font-family: verdana; font-size: 12">
    <tr align="center"> 
      <td align="left" width="83"> 
        <%
      
'If the previous Poll Question Titles page number is higher than page 1 then display a back link    	
If intRecordPositionPageNum > 1 Then 
	Response.Write "	<a href=""vira_pagina(1).asp?PaginaAtual=" &  intRecordPositionPageNum - 1  & """ target=""_self"">&lt;&lt;&nbsp;Prev</a>"          
End If
      
      %>
      </td>
      <td width="201"> 
        <%
       
'If there are more previous Poll Question Titles to display then add a title to the other pages
If intRecordPositionPageNum > 1 or NOT rs.EOF Then
	Response.Write "	Pag&iacute;ginas de dados"
End If
       
      %>
      </td>
      <td align="right" width="76"> 
        <%
       
'If it is Not the End of the previous Poll Question Titles entries then display a next link for the next previous Poll Question Titles page      	
If NOT rs.EOF then    
	Response.Write "	<a href=""vira_pagina(1).asp?PaginaAtual=" &  intRecordPositionPageNum + 1  & """ target=""_self"">Next&nbsp;&gt;&gt;</a>"    	
End If 


'Reset Server Objects
Set adoCon = Nothing
rs.Close
Set rs = Nothing       
       
      %>
      </td>
    </tr>
  </table>
  [B]'AQUI É ONDE GERA A PAGINAÇÃO, GALERA[/B]
  [COLOR=red]<%
  For Paginass = 1 to TotalDEPaginas
  If Paginass <> request.querystring("PaginaAtual") then
        Response.Write "<a href=""vira_pagina(1).asp?PaginaAtual=" & Paginass & """>"
  end if
        Response.Write "&nbsp;|&nbsp;" & Paginass & "&nbsp;|&nbsp;"
  If Paginass <> request.querystring("PaginaAtual") then
        Response.write "</a>"
  end if
  Next
  %>[/COLOR]
</div>

</body>
</html>

AGRADEÇO DESDE JÁ!!

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0
cyberalexxx

cyberalexxx

Postado
Postado
OLÁ MODERADORES, POR FAVOR "DEÊM UMA LUZ" AÍ. EU SEI DO POTENCIAL DE VOCÊS...

!!! AGUARDO !!!!!!!!!!1

Calma!! através de uma busca no forum você conseguiria exemplos de como resolver seu problema.

Segue abaixo um código que eu já tinha pronto aki, que faz o q você quer, tente adapta-lo ao seu sistema.

<%
' Definindo o caminho do banco de dados
caminho = server.mappath("vendas.mdb")

' Fazendo a conexão com o banco de dados (paginacao.mdb)
set objconn = Server.CreateObject("ADODB.Connection")
DSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & caminho
objconn.Open DSN

' String SQL para consulta
SQL = "select * from vendas"

' Abrindo o registro
SET objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open SQL,objconn,3

' Se não encontrar nada escreve a mensagem
' Senão lista os registros
If objRS.EOF Then
Response.Write("Nenhum registro foi encontrado")
Else
' Definindo o número de registros por página
objRS.PageSize = 10

' Recupera o valor da variável pagina
pagina = Request.QueryString("pagina")

' Se a variável pagina for vazio, indica que a página sera a primeira
' Senão a variável pagina recebe o valor da página corrente, definida acima
If pagina = "" Then
 objRS.AbsolutePage = 1
 pagina = 1
Else
 objRS.AbsolutePage = pagina
End If
%>
<% 
' Imprime o número de registros, o total de páginas e a página atual
Response.Write("<table><tr><td><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Foram encontrados" & objRS.RecordCount & " registros" & vbcrlf )
Response.Write("<br>Mostrando página <b>" & pagina & "</b> de <b>" & objRS.PageCount & "" & vbcrlf )
Response.Write("<br><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Busca Avançada <a href='#' onClick=javascript:window.open('../busca_avc.asp','','width=200,height=50,scrollbars=no, resizable=no,left=00,top=0');>aqui</a></B></FONT></td></tr></table>")
%>

<% 
' Criando a barra de navegação
' Se a variável pagina for maior que 1 então imprime o botão Anterior com link
' Senão imprime sem link
If CInt(pagina) > 1 Then
 Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina-1 & "'>Anterior</a> ")
Else
 Response.Write("<center><FONT FACE=Verdana SIZE=1 COLOR=#000000><B>Anterior")
End If

' Lista todas as páginas encontradas
if objRs.PageCount < 6 then
   For i = 1 To objRS.PageCount
     if i <> CInt(pagina) then
        response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ")
     end if
   Next
end if

if objRs.PageCount > 5 then
      inicio=pagina
      fim=pagina + 4
      tot = pagina + 4
      if tot > ObjRS.PageCount then
         inicio = pagina-((pagina+4)-ObjRs.PageCount)
         fim = inicio+4
      end if
      for i = inicio to fim
        if i <> CInt(pagina) then
           response.write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & i & "'>" & i & "</a> ")
        end if      
      next
end if


' Se a variável pagina for menor que o total de páginas então imprime o botão Próxima com link
' Senão imprime sem link
If CInt(pagina) < objRS.PageCount Then
 Response.Write("<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?pagina=" & pagina+1 & "'>Próxima</a></B></FONT></center>")
Else
 Response.Write("Próxima</B></FONT></center>")
End If
End If
%>



<%

'mostrando os dados
While Not objRS.EOF AND cont < objRS.PageSize

response.write objRS.fields("data") & "<br>"
response.write objRS.fields("nome") & "<br>"

cont = cont + 1
objRS.MoveNext
Wend
%>
 </tr>
</table>
<%

' Fecha e destroi os objetos RS e conn
objRS.Close : objconn.Close
Set RS = Nothing : Set objconn = Nothing
%>

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado
OLÁ MODERADORES, POR FAVOR "DEÊM UMA LUZ" AÍ. EU SEI DO POTENCIAL DE VOCÊS...

!!! AGUARDO !!!!!!!!!!1

Mano, não fique dando UP no seu tópico..

Pois isso é considerado Flood, e não é permitido aqui.

Se ninguém respondeu, é porque, ou ninguém sabe resolver, ou porque ninguém entendeu sua duvida.

Mas, ficar 'floodando' o tópico não vai ajudar a resolver o problema

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,5k
    • Posts
      652,4k
×
×
  • Criar Novo...