Ir para conteúdo

Arquivado

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

lezão

paginação alfabetica

Por , em ASP Clássico

Recommended Posts

lezão    0

lezão
Postado

Ola galera estou com uma paginação alfabetica, e gostaria de colocar cor nos fundos de cada letras



assim


alfabeto.png



e as letras com conteúdos ficam em negrito e selecionadas qnd clicar



estou usando essa paginação



Paginação.asp




<% 

		registros = 20

' Definindo o caminho do banco de dados

caminho = "dados/Dados2014.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=" & Server.MapPath("dados/Dados2014.mdb")

objconn.Open DSN


' String SQL para consulta

letra = Request.QueryString("letra")


If letra = "" Then

letra = "A"

SQL = "Select * FROM Clientes WHERE empresa LIKE 'A%' Order by empresa ASC"

Else

SQL = "Select * FROM Clientes WHERE empresa LIKE '"&letra&"%' Order by empresa ASC"

End If


' 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 "Sem clientes cadastrados iniciando com esta letra!"

Response.Write("<a href=javascript:history.back(-1)><br><br>Voltar</a>")

Response.End()

End If

' Definindo o número de registros por página

objRS.PageSize = registros


' 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

%>


 <%letras = "0-9ABCDEFGHIJKLMNOPQRSTUVXYZ"%>


	<%For i = 1 to 35%>


	<%="<a href=Clientes.asp?letra="&Mid(letras, i,1)&">"&Mid(letras, i,1)&"</a> "%>

	<%Next%>   

<table width="190" border="0" cellspacing="5" cellpadding="5">



 <tr>  <%While Not objRS.EOF AND x < objRS.PageSize

     	x = x + 1 

q = q + 1

%>

    <td>


<table width="190" border="0" cellspacing="0" cellpadding="0"style="border-top: 3px solid #00ab22">


  <tr background="imagens/spiral.png"  

onmouseover="this.style.backgroundImage='url(imagens/spiral2.png)';" 

onmouseout="this.style.backgroundImage='url(imagens/spiral.png)';">

    <td style="border-bottom: 2px solid #ccc;border-left: 2px solid #ccc;border-right: 2px solid #ccc">

    <table width="189" border="0" cellspacing="0" cellpadding="0">

      <tr>

        <td colspan="2"><font size="4" color="#333333" face="Allan">  <%=objRS("cliente")%></font></td>

        </tr>

      <tr>

        <td colspan="2">

        <div align="center">

<font size="1" color="#333333" face="verdana">

<%=objRS("site")%></font>

</div>        

        </td>

        </tr>

      <tr>

        <td width="22"><div align="center"><img src="IMAGENS/phone.png" width="16" height="13" /></DIV></td>

        <td width="177"> </td>

      </tr>

      <tr>

        <td> </td>

        <td> </td>

      </tr>

    </table></td>

  </tr>

  <tr>

    <td valign="top">

    <div align="center">

    <img src="IMAGENS/shadow.png" width="190"/>

    </div>

    </td>

  </tr>

</table>

</td><% If q = 4 Then %> 

  </tr>

   <tr><%	 	

 	q = 0  	

 		End If    	

objRS.MoveNext


 		Wend

%>

  </tr>

                </table>


<br/><br/>


		</div>

     <%

' Fecha e destroi os objetos RS e conn

objRS.Close : objconn.Close

Set RS = Nothing : Set objconn = Nothing

%>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

wilnet    92

wilnet
Postado

Isso é no CSS, você precisa criar uma class para seu link <a class='cor do link' href=Clientes.asp?.... para fazer isso.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

podendo até colocar efeitos no onmouseover, onmouseclick etc

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

vc pode dar uma luz Wilnet????

 <%letras = " 0-9ABCDEFGHIJKLMNOPQRSTUVWXYZ"%></b>

	<%For i = 1 to 35%>

	<%="<a href=Default.asp?letra="&Mid(letras, i,1)&">"&Mid(letras, i,1)&"</a> "%>
	<%Next%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

wilnet    92

wilnet
Postado

um exemplo bem simples que irá estilizar seus links:

 

Basta inserir entre <head> ....</head>

<style type="text/css">
body, td {font: 14px Tahoma; color: black;}
A:link {font: 14px Tahoma; color: red; text-decoration: none;}
A:hover {font: 14px Tahoma; color: #FF9900; text-decoration: none;}
A:visited {font: 14px Tahoma; color: blue; text-decoration: none;}
</style>

Mas isso que vc deseja é CSS, de uma busca que irá encontrar muita informação para formatar seus links a seu gosto.

Compartilhar este post

Link para o post
Compartilhar em outros sites

lezão    0

lezão
Postado

eu tbm postei esse mesmo post la na area CSS mas ninguém se manifestou sobre o assunto, mande pra ca....


um exemplo bem simples que irá estilizar seus links:

 

Basta inserir entre <head> ....</head>

<style type="text/css">
body, td {font: 14px Tahoma; color: black;}
A:link {font: 14px Tahoma; color: red; text-decoration: none;}
A:hover {font: 14px Tahoma; color: #FF9900; text-decoration: none;}
A:visited {font: 14px Tahoma; color: blue; text-decoration: none;}
</style>

Mas isso que você deseja é CSS, de uma busca que irá encontrar muita informação para formatar seus links a seu gosto.

como quadricular as letras com css?

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