Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

lezão

como criar Exibição em Alfabética + Paginação

Por , em ASP Clássico

Recommended Posts

lezão    0

lezão
Postado

Ai galera estou a procura de uma exibição em alfabetica + paginação q rode no acess

Mas só encontrei esse...

 

Paginação.asp

<html>
<head>
<title> Paginação </title>
<style type="text/css">
	body, td {font: 11px Tahoma; color: black;}
	A:link {font: 11px Tahoma; color: black; text-decoration: none;}
	A:hover {font: 11px Tahoma; color: #FF9900; text-decoration: none;}
	A:visited {font: 11px Tahoma; color: black; text-decoration: none;}
</style>
</head>

<body>
<%
PagAtual = Request.QueryString("PagAtual")
letra = Request.QueryString("Letra")
letras = "#0123456789ABCDEFGHIJKLMNOPQRSTUVXYZ"

Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\dados\dados.mdb"
Conn.Open DSNtest


Set RS= Server.CreateObject("ADODB.Recordset") 

If letra = "" Then 
	letra = "A" 
	SQL = "SELECT * FROM home WHERE Nome LIKE 'A%' Order by Nome ASC" 
Else If letra = "Todas" Then 
		SQL = "SELECT * FROM home Order by Nome ASC" 
	Else
		SQL = "SELECT * FROM home WHERE Nome LIKE '"&letra&"%' Order by Nome ASC" 
	End if
End If 



RS.Open SQL, conn, 3

If RS.EOF Then 
	Response.write("<table cellpadding=""5"" width=""600"">")
	Response.write("<tr><td align=""center"">")
	For i = 1 to 36 
		Response.write("<a href=paginacao.asp?letra="&Replace(Mid(letras, i,1),"#", "Todas")&"><b>"&Replace(Mid(letras, i,1),"#", "Todas")&"</b></a>  ") 
	Next

	Response.write("<br><br><table cellpadding=""5"" width=""600"">")
	Response.write("<tr><td bgcolor=""#F0F0F0"">Nenhum registro encontrado!</td></tr>")
	Response.write("</table>")
	Response.write("</td></tr></table>")
	
Else	

Const NumPorPage = 20

   Dim PagAtual

   IF Request.QueryString("PagAtual") = "" Then
			   PagAtual = 1
		 Else
				PagAtual = Request.QueryString("PagAtual")
   End If

   RS.CacheSize = NumPorPage 

	RS.MoveFirst				
	RS.PageSize = NumPorPage   

	Dim TotalPages			  
	TotalPages = RS.PageCount

	RS.AbsolutePage = PagAtual 

Count = 0  

Response.write("<table cellpadding=""5"" width=""600"">")
Response.write("<tr><td align=""center"">")

i = 0 

For i = 1 to 36 
  Response.write("<a href=paginacao.asp?letra="&Replace(Mid(letras, i,1),"#", "Todas")&"><b>"&Replace(Mid(letras, i,1),"#", "Todas")&"</b></a>  ") 
Next	

Response.write("<br><br><table cellpadding=""5"" width=""600"">")

Do While Not RS.EOF And Count < RS.PageSize 

	if i mod 2<>0 then
		cor = "#F0F0F0"
	else
		cor = "#E8E8E8"
	end if 
%> 

<table>

<tr style="cursor: hand;">
	<td bgcolor="<%=cor%>" onmouseover="java script:this.style.backgroundColor='#FFECEC';" onmouseout="java script:this.style.backgroundColor='<%=cor%>';"><%=RS("Nome")%></td>
</tr>

<%
	i = i+1
	Count = Count + 1  
	RS.MoveNext
Loop			  

response.write("</table><br>")
Response.Write("<B>Página " & PagAtual & " de " & TotalPages & " </B> - ")   

If PagAtual > 1 Then 
	Response.Write("<B>") 
	Response.Write("<a href='paginacao.asp?PagAtual=" &  1 & "&Letra="&letra&"'>")
	Response.Write("Primeira") 
	Response.Write("</a></B> ")
	  
	Response.Write("<B>") 
	Response.Write("<a href='paginacao.asp?PagAtual=" & PagAtual - 1 & "&Letra="&letra&"'>")
	Response.Write("Anterior") 
	Response.Write("</a></B>  ")
Else 
	Response.Write("Primeira ") 
	Response.Write("Anterior  ") 
End If

max_n_mostrados = 9

intervalo = Int(max_n_mostrados /2)
inicio = PagAtual - intervalo
final = PagAtual + intervalo

If CInt(inicio) <1 Then 
	inicio = 1
	final = 10
End If

If CInt(final) > CInt(TotalPages) Then final = TotalPages

	For i = inicio To final
		If CInt(i)=CInt(PagAtual) Then
			Response.Write "<B>" & i & "</B>  "
		End If

		If CInt(i) < CInt(PagAtual) Then
			Response.Write "<a href='paginacao.asp?PagAtual=" & i & "&Letra="&letra&"'>" & i & "</a>  "
		End If

		If CInt(i) > CInt(PagAtual) Then
			Response.Write "<a href='paginacao.asp?PagAtual=" & i & "&Letra="&letra&"'>" & i & "</a>  "
		End If
	Next


	If CInt(PagAtual) <> CInt(TotalPages) Then
		Response.Write("  <B>")
		Response.Write("<a href='paginacao.asp?PagAtual=" & PagAtual + 1 & "&Letra="&letra&"'>")
		Response.Write("Próxima")
		Response.Write("</a></B>") 

		Response.Write(" <B>")
		Response.Write("<a href='paginacao.asp?PagAtual=" & TotalPages & "&Letra="&letra&"'>")
		Response.Write("Ultima")
		Response.Write("</a></B>")		

	Else
		Response.Write("  Próxima") 
		Response.Write(" Ultima")
	End If 
End If

Response.write("</td></tr></table>")

Rs.Close  
Set RS = Nothing
Conn.Close	  
Set Conn = Nothing	   
   
%> 

</body>
:blink:

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

e qual o problema com este ???

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

esta dando este erro ...

ADODB.Recordset error '800a0bb9' 

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. 

/paginação.asp, line 37

Desculpa mais é este erro o correto.......

 

Microsoft JET Database Engine error '80004005' 

'e:\dados\dados.mdb' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides. 

/paginação.asp, line 20

Compartilhar este post

Link para o post
Compartilhar em outros sites

Loko da Web    1

Loko da Web
Postado

Troque esse:

Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\dados\dados.mdb"
Conn.Open DSNtest

por esse:

Set Conn= server.createobject("adodb.connection")
DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("dados.mdb")
Conn.Open DSNtest

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

uma dica, cria um arquivo com esse conteúdo, chamado conexao.asp

 

<% '----------------------
'	este arq. serve para estabelecer a conexao com o BD em Access
'	de nome quaddra.mdb - para o arquivo login_action.asp

sub abreconexao
constring="provider=microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("db/quaddra.mdb")
Set conexao=Server.CreateObject("ADODB.Connection")
conexao.open constring
end sub

sub fechaconexao
set conexao=nothing
end sub
%>

e depois você coloca na sua pagina um include assim:

 

<!--#include file="conn/conexao1.asp"-->

abaixo um exemplo de como chamar:

 

<!--#include file="conn/conexao1.asp"-->
   <% 'abrir a conexao
   call abreconexao
   'crio o rsselect para verificar se os dados jah estaun cadastrados
   set rsselect=server.createobject("ADODB.Recordset")
   'crio o SQLselect
   SQLselect="SELECT login FROM login WHERE login='"&varlogin&"'"
   rsselect.open SQLselect,conexao,1,3

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito