Jump to content


Photo

Função Simples De Contador De Visitas


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

#1 knoxville

knoxville

    Backdoor Man

  • Usuários
  • 951 posts
  • Sexo:Masculino
  • Localidade:Itajaí - SC

Posted 28/12/2006, 14:42

fla galera, (y)?

fiz uma funçãozinha bem simples de contador de visitas e nessa função eu coloquei um esquema pra substituir o número por uma img q é o numero + .gif
só não tá funcionando redondinho por um probleminha... as imagens ficam uma embaixo da outra ao invez de ficar do lado, como faço pra arrumar isso?
desculpem a ignorancia, faz um tempão q nao programo nd...

<%
Sql = "Select * from visitas where id=1"
Set Rs = Conexao.Execute(Sql)
visitas = Rs("visitas")
If Session("jaentrou") <> "yeap" Then
Session("jaentrou") = "yeap"
Sql = "Update visitas set visitas='"& visitas+1 &"' where id=1"
Set Rs = Conexao.Execute(Sql)
End If
lenvisitas = Len(visitas)
x = 1
Do While x <= lenvisitas
visita = visita & "<img src=" & Mid(visitas,x,1) & ".gif alt='visitas desde 26/04/2006'>"
x = x + 1
Loop
%>

brigadão! (y)
e um ótimo ano novo pra tdos! :assobio:

Edição feita por: knoxville, 28/12/2006, 14:46.


#2 siola

siola

    Usuário

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

Posted 28/12/2006, 15:10

<% Sql = "Select * from visitas where id=1"
Set Rs = Conexao.Execute(Sql)
visitas = Rs("visitas")
If Session("jaentrou") <> "yeap" Then
Session("jaentrou") = "yeap"
Sql = "Update visitas set visitas='"& visitas+1 &"' where id=1"
Set Rs = Conexao.Execute(Sql)
End If

numeros = Split(visitas, "")

For i = 0 To UBound(numeros)
Response.Write "
<img src=" & numeros(i) & ".gif alt='visitas desde 26/04/2006'>" 
Next %>

Tenta assim

#3 knoxville

knoxville

    Backdoor Man

  • Usuários
  • 951 posts
  • Sexo:Masculino
  • Localidade:Itajaí - SC

Posted 28/12/2006, 15:27

nem deu... dessa forma ele substitui todos os numeros por uma img só, tem q ser cada numero por uma img!

#4 siola

siola

    Usuário

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

Posted 28/12/2006, 15:30

Que esquisito. O código que colqouei faria ele seprar a string visitas em todos os caracteres e para cada caracter exibir a imgem correspondente.

Você testou exatamente como eu coloquei?

[]s

#5 knoxville

knoxville

    Backdoor Man

  • Usuários
  • 951 posts
  • Sexo:Masculino
  • Localidade:Itajaí - SC

Posted 28/12/2006, 15:51

exatamente igual... mas nem funcionou! :(

#6 cybermix

cybermix

    andrewsmedina.com.br

  • Ex-Admins
  • 3586 posts
  • Sexo:Não informado
  • Localidade:Não sou desse planeta não!!!!
  • Interesses:python, fireworks, linux, php, flash...

Posted 28/12/2006, 16:06

no seu código inicial, aonde voce esta 'imprimindo' as imagens?
www.andrewsmedina.com.br

#7 knoxville

knoxville

    Backdoor Man

  • Usuários
  • 951 posts
  • Sexo:Masculino
  • Localidade:Itajaí - SC

Posted 28/12/2006, 16:08

<tr>
   <td bgcolor="#F8F8F8"><br><table>
	 <tr>
	   <td width="394"><center><img src="images/nacionais.jpg"></center><br>Lista<br>Lista<br>Lista<br>Lista</td>
	   <td bgcolor="#000000"></td>
	   <td width="394"><center><img src="images/internacionais.jpg"></center><br>Lista<br>Lista<br>Lista<br>Lista<br>Lista</td>
	 </tr>
   </table><br><center><%=visita%></center><br></td>
  </tr>
  <tr>
</table>

ah, usando o Response.Write na própria função ele funciona, vou colocar a função lá em baixo no lugar onde deve ficar e tá bom...

vlw siola e cybermix! (y)

...
tive q tirar ele da tabela... tirando da tabela funciona certo, colocando na tabela fica pra baixo... ;/

#8 cybermix

cybermix

    andrewsmedina.com.br

  • Ex-Admins
  • 3586 posts
  • Sexo:Não informado
  • Localidade:Não sou desse planeta não!!!!
  • Interesses:python, fireworks, linux, php, flash...

Posted 29/12/2006, 09:41

tive q tirar ele da tabela... tirando da tabela funciona certo, colocando na tabela fica pra baixo... ;/


por isso que pedi para mostrar aonde estava exibindo a imagem...

o problema nao esta no asp e sim estava na largura da celula da tabela... se aumentar, não será preciso tirar da tabela...
www.andrewsmedina.com.br




0 user(s) are reading this topic

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

IPB Skin By Virteq