Ir para conteúdo

POWERED BY:

Arquivado

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

thicomp

Paginação separada por ordem alfabética

Por , em ASP Clássico

Recommended Posts

thicomp    0

thicomp
Postado

Oi Pessoal, td bem??

 

 

 

Estou utilizando esse sistema de paginação, mas gostaria que ele me disponibilizasse o alfabeto, para que a paginação seja feita por elas, tipo assim, o usuário seleciona a letra "A" e fornecesse as informações iniciadas por essa letra e assim por diante...

 

 

 

Alguém teria alguma sugestão

 

 

 

Abçs

 

 

 

Dim iLoop, limite, pagina, totalarq, iDim vlMaximo, vlMinimo, anteriorDim ObjFso, ObjArq, ObjPasta, ObjSubPastaDim usuario, corSet ObjFso = Server.CreateObject("Scripting.FileSystemObject")Set ObjPasta = ObjFso.GetFolder(server.MapPath("/rel/"))limite = 15 ' limite de registros por páginatotalarq = ObjPasta.subfolders.count ' total de arquivos encontradosReDim arrAvatar((totalarq-1))Dim yy = 0' guardamos cada arquivo dentro de um arrayFor Each ObjArq in ObjPasta.subFolders arrAvatar(y) = objArq.Namey = y + 1 NextSet ObjPasta = NothingSet ObjArq = NothingSet ObjFso = Nothingpagina = Request("pag")IF pagina = "" ThenIF limite < UBound(arrAvatar) ThenvlMinimo = 0vlMaximo = (limite-1)ElsevlMinimo = LBound(arrAvatar)vlMaximo = UBound(arrAvatar)End IFpagina = 1anterior = ""ElsevlMinimo = (pagina*(limite-1))+(pagina)vlMaximo = ((limite-1)*(pagina+1))+((pagina)*1)IF vlMaximo > UBound(arrAvatar) Then vlMaximo = UBound(arrAvatar)pagina = pagina + 1anterior = pagina - 2IF anterior = 0 Then anterior = ""End IFFor i = vlMinimo to vlMaximoif cor= "#d2dfee" then: cor= "#eef3f9" else: cor= "#d2dfee": end ifresponse.write "<tr bgcolor='"& cor &"'><td height=20 colspan=2><a href='http://wwwroot/rel/int.asp?prod="response.write arrAvatar(i) &"'>"response.write arrAvatar(i)Nextresponse.write "<tr>"IF vlMinimo = 0 ThenIF Not (vlMaximo >= (y-1)) ThenEnd IFElseresponse.write "<td align=left valign=top><a href='listprod.asp?pag="& anterior &"&it="&it&"'><img src='img/esq.gif' border=0>Anterior</a>"End IFIF Not (vlMaximo >= (y-1)) Thenresponse.write "<td valign=top align=right><a href='listprod.asp?pag="& pagina &"&it="&it&"'><img src='img/dir.gif' border=0>Próxima</a>"End IF

Compartilhar este post

Link para o post
Compartilhar em outros sites

thicomp    0

thicomp
Postado

Pessoal, veja se alguém pode me ajudar... Paginação em ordem alfabética... Os dados ele pega em um arquivo txt<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><%Set rs = CreateObject("Scripting.FileSystemObject")Set Conn = Server.CreateObject("ADODB.Connection")' Set the Dbq portion of the string to the physical folder where your price files resideConn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _"Dbq=F:\Root\rel_P_D1;" & _"Extensions=asc,csv,tab,txt;" & _"Persist Security Info=false"pagina = Request.QueryString("pagatual")letra = Request.QueryString("letra")If letra = "" Thenletra = "A"SQL = "Select * FROM produtos.txt WHERE nome LIKE 'A%' Order by produto ASC"ElseSQL = "Select * FROM produtos.txt WHERE nome LIKE '"&letra&"%' Order by produto ASC"End Ifconst pags = 15'RS.pagesize = pags'RS.cachesize = pags'RS.absolutepage = 1%><html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> <%letras = "0123456789ABCDEFGHIJKLMNOPQRSTUVXYZ"%> <%For i = 1 to 35%> <%="<a href=paginacao.asp?letra="&Mid(letras, i,1)&">"&Mid(letras, i,1)&"</a> "%> <%Next%> </td> </tr> <tr> <td> </td> </tr><%While NOT RS.EOF%> <tr> <td><%=RS("produto")%></td> </tr><%RS.MoveNext%><%Wend%></table></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

birobirosk8    0

birobirosk8
Postado

Ahhh velho...Pra você fazer isso eh soh você colocar todas as letras do alfabeto na pagina, e quando o cara clicar na tal letra você passa por queryString a letra, tipo assi<a href="pesquisa.asp?letra=a">A</a><a href="pesquisa.asp?letra=b">B</a><a href="pesquisa.asp?letra=c">C</a>etc etcdai na outra pagina você recebe a Letra e faz a pesquisa por letrastrSql = "select * from tabela nome like '" &request.queryString("letra")& "%'"falowww

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