Jump to content


Photo

Paginação, Como Fazer Esse Script


  • Faça o login para participar
7 replies to this topic

#1 fedimar

fedimar

    Normal

  • Usuários
  • 77 posts
  • Sexo:Não informado

Posted 29/07/2006, 01:01

Bem amigos ja pocurei por todo o forum e não enontrei a paginação como pretendo fazer em asp.

tenho uma pagina que mostra as fotos de um determinado evento, devido o espaço ser pequenho para caber a numeração das pagina, pois ta ficando cobrindo o numero devido ser muitas paginas

Bem gostaria de saber se alguem tem esse tipo de paginação pra colocar aqui no forum ou enviar por e-mail ou coisa desse tipow
Exemplo da paginação

Fiz um script , mas so consegui mostrar o numeros das paginas completa, se o arquivo tiver 20 paginas fica tudo os numeros da paginas chegando ate aumentar o tamanho da janela, caso seja preciso coloco o codigo aqui
Bom ele vai mostrando de 5 em 5 e vai passando
<< 1, 2, 3, 4, ..., >>

Grato

Edição feita por: fedimar, 29/07/2006, 01:33.


#2 siola

siola

    Usuário

  • Usuários
  • 894 posts
  • Sexo:Masculino
  • Localidade:SBC - SP
  • Interesses:ASP, .NET, javascript

Posted 29/07/2006, 13:31

bom, sem ver o seu código eu posso te passar isso aqui, pra você adaptar ai pro que você tem

<% pagina= 4 'a pagina que você está agora
menos = pagina - 2
mais = pagina + 2

If menos < 1 Then 
menos = 1
End If

If mais > NUMERO_DE_PAGINAS_TOTAL Then
mais = NUMERO_DE_PAGINAS_TOTAL
End If


Response.Write "<< ..."
For i = menos To mais
Response.Write i & ", "
Next
Response.Write "... >>" %>

se não entendeu, ou não conseguiu colocar no seu código essa lógica, posta ai, junto com o seu código pra podermos te ajudar ;)

[]s

#3 fedimar

fedimar

    Normal

  • Usuários
  • 77 posts
  • Sexo:Não informado

Posted 29/07/2006, 15:55

Bem amigo não consegui adaptar, fica dando uns erros estranho, então estou colocando o codigo da paginação.

Eu estou precisando se puderem que fique assim: << 1, 2, 3, 4, ..., >>, quando eu clica no proximo fica << 5, 6 ,7, 8
...>>
id = request("idevento")
registros = 12
pagina = Request.QueryString("pagina")
If pagina = "" Then
pagina = 1
End If

Set rs = Server.Createobject("ADODB.RECORDSET")
set rs.ActiveConnection = Conexao
rs.CursorType = 3
rs.PageSize = registros

		SQL2 = "select * from Eventos where idevento = "& id &""
				set rs2 = conexao.execute(SQL2)
				pasta = rs2("pasta")
		rs2.close
		Set rs2 = nothing

sql = "SELECT * FROM Fotos where idevento = "& id &" ORDER BY idfoto"
rs.Open sql
If rs.EOF Then
tem = "nao"
Response.Write ""
Else
rs.AbsolutePage = pagina

contador = 0

While Not rs.EOF AND x < rs.PageSize
x = x + 1
id_final = rs("idfoto")
rs.MOveNext
Wend

for w = 1 to x
rs.MovePrevious
Next

x = 0


While Not rs.EOF AND x < rs.PageSize
x = x + 1
if cint(x) = 1 Then
idf = rs("idfoto")
id_inicial = idf
end if


if contador = 3 Then
response.write "<br><br><br><br><br>"
contador = 1
else
contador = contador + 1

end if
%>
							  <%
				
				%>
							<table border="0" width="107" cellspacing="0" cellpadding="0" align="left" height="75" style="border-width:0; border-top-color:rgb(0,0,0); border-right-color:rgb(0,0,0); border-bottom-color:rgb(0,0,0); border-style:none;">
							  <tr> 
								<td width="100" height="75" style="border-width:0px; border-top-color:rgb(0,0,0); border-right-color:rgb(0,0,0); border-bottom-color:rgb(0,0,0); border-style:none;"> 
								  <a href='../coberturas/mostrar_foto.asp?idfoto=<%=rs("idfoto")%>&idevento=<%=id%>&id_inicial=<%=id_inicial%>&id_final=<%=id_final%>' target="mostrar_foto"><img border="1" src=fotos/<%=pasta%>/miniaturas/<%=rs("foto")%> style="filter:alpha(opacity=50)" onMouseover="makevisible(this,0)" onMouseout="makevisible(this,1)" width=100 height=75 alt="Número da foto para comprar: <%=rs("idfoto")%>"></a> 
								</td>
								<td width="5" height="75"></td>
							  </tr>
							</table>
							<%

 rs.MoveNext
Wend
	
select case x
	case 1, 2,3
	response.write "<br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>"
	case 4, 5, 6
	response.write "<br><br><br><br><br><br><br><br><br><br><br><br><br>"
	case 7, 8, 9
	response.write "<br><br><br><br><br><br><br><br>"
	case 10, 11, 12
		response.write "<br><br><br>"
	
end select


 %> </td>
						</tr>
						<tr> 
						  <td width="403"> <table align="left" border="0" cellpadding="0" cellspacing="0" width="367">
							  <tr valign="middle"> 
								<td height="118"> 
								  <table width="103%" align="center">
									<tr>
									  <td><font color="#000000" face="tahoma"><span style="font-size:10pt;"><b> 
										<%
	
<---- Paginação Aqui --->>>>

total = rs.PageCount
	for i = 1 to total
		if i = cInt(pagina) Then
		response.write "<table width=25 height=25 align=left>"&i&"<table>"
		else
		response.write "<table width=25 height=25 align=left>"
		response.write "<font color=""#FFFFFF"" size=""-2""><a href=galeria.asp?idevento="&id&"&pagina="&i&">"&i&"</a></font>"
		response.write "</table>"
		end if
	Next
	
	end if
	rs.Close
	Set rs = Nothing
					%>


#4 Generation

Generation

    Super Veterano

  • Usuários
  • 1546 posts
  • Sexo:Masculino
  • Localidade:Curitiba - PR

Posted 29/07/2006, 18:08

hum, o otavio fez um tutorial usando o MySQL como Base de Dados :

http://forum.wmonlin...howtopic=112889

sei lá as vezes ajuda ;)
Favoritos : | OpenSuse | Opera | Firefox | NetBeans | GMail | Leia As Regras | Use a Busca | Como fazer Perguntas Inteligentes |
“Obstáculos são aquelas coisas medonhas que você vê quando tira seus olhos de seu objetivo” (Henry Ford)
“É impossível para um homem aprender aquilo que ele acha que já sabe.” (Epíteto)
“A única razão da existência do tempo é para que todas as coisas não aconteçam de uma vez.”(Albert Einstein)

#5 siola

siola

    Usuário

  • Usuários
  • 894 posts
  • Sexo:Masculino
  • Localidade:SBC - SP
  • Interesses:ASP, .NET, javascript

Posted 29/07/2006, 20:13

Tenta assim ;)


<---- Paginação Aqui --->>>>
'total de páginas
total = rs.PageCount

'pega quantos links a menos e a masi mostra
menos = pagina - 2
mais = pagina + 2

'verifica se o menos deu negativo pra fazer ele ser igual a 1
If menos < 1 Then 
menos = 1
End If

'verifica se o mais é maior que o total de paginas, se for iguala ele ao total
If mais > total Then
mais = total
End If

'se o menos for diferente de 1 mostra os essas setinhas
If menos <> 1 Then 
Response.Write "<< ..., "
End If

'comeca o loop
For i = menos To mais
If i = CInt(pagina) Then
Response.Write i & ", "
Else
Response.Write "<a href=galeria.asp?idevento="&id&"&pagina="&i&">"&i&"</a>, "
End If
Next
	
'se o mais não for igual ao total mostra as setinhas no final
If mais <> total Then
Response.Write " ... >>"
End If

 rs.Close
Set rs = Nothing %>


[]s

#6 fedimar

fedimar

    Normal

  • Usuários
  • 77 posts
  • Sexo:Não informado

Posted 30/07/2006, 00:21

Amigo fiz igual ao seu aqui, mas esta dando erro

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/coberturas/galeria.asp, line 289

mas a linha 289 é end if
<% end if %>

Veja Aqui

Edição feita por: fedimar, 30/07/2006, 00:30.


#7 siola

siola

    Usuário

  • Usuários
  • 894 posts
  • Sexo:Masculino
  • Localidade:SBC - SP
  • Interesses:ASP, .NET, javascript

Posted 30/07/2006, 00:36

acho que eu acabei esquecendo de um if que já tinha no seu código, tenta

...
End If
rs.Close
Set rs = Nothing %>


#8 fedimar

fedimar

    Normal

  • Usuários
  • 77 posts
  • Sexo:Não informado

Posted 30/07/2006, 01:24

Amigo deu certo. Muito obrigado

Deus te ilumine




0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq