Avatar Dinâmico

[Patrique 0]

Vou passar aqui para vocês um code de minha autoria, aonde eu crio um avatar dinâmico.

 

 

Atualizem o navegador e vejam que a hora vai mudar... além disso coloquei para mudar a cor do texto e fundo e para exibir uma mensagem de acordo com a hora do dia.

 

Utilizei ASP... AspJpeg e Rewrite.

 

* O certo na mensagem é aparecer "Faltam" mais eu deixei falta por falta de espaço kkkk

 

O code é esse

 

<%
Response.CacheControl="no-cache"
Response.AddHeader "Pragma","no-cache"
Response.Expires = 0

On Error resume Next

dias = DateDiff("d", Date(), #24/12/2010#)

Function Saudacao()
    Select Case Hour(now())
        Case 18,19,20,21,22,23,24,0,1,2,3,4,5 Saudacao = "BOA NOITE!" altura = 26 lado   = 18
        Case 6,7,8,9,10,11 Saudacao = "BOM DIA!" altura = 26 lado   = 24
        Case 12,13,14,15,16,17 Saudacao = "BOA TARDE!" altura = 26 lado   = 17
    End Select
End Function

RANDOMIZE
menor = 1
maior = 5
sorteado = Int((maior-menor+1)*Rnd+menor)

Select Case sorteado
   Case 1 CorLetra = &H2283AB
   Case 2 CorLetra = &H72024F
   Case 3 CorLetra = &H004B2A
   Case 4 CorLetra = &H7D2260
   Case 5 CorLetra = &H413770
End Select

Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open(Server.MapPath("base_"& sorteado &".jpg"))

Jpeg.Quality = 100

'LETRA SAUDAÇÃO
Jpeg.Canvas.Font.Color = CorLetra
Jpeg.Canvas.Font.Family = "verdana"
Jpeg.Canvas.Font.Size = 16
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.PrintText lado, altura, Saudacao()

'MENSAGEM FALTA
Jpeg.Canvas.Font.Color = &H000000
Jpeg.Canvas.Font.Family = "verdana"
Jpeg.Canvas.Font.Size = 12
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.PrintText 28, 50, "Falta "& dias &" dias"

'COMEMORAÇÃO
Jpeg.Canvas.Font.Color = &H990000
Jpeg.Canvas.Font.Family = "verdana"
Jpeg.Canvas.Font.Size = 12
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.PrintText 27, 64, "Para o Natal!"

'HORAS
Jpeg.Canvas.Font.Color = &H0000
Jpeg.Canvas.Font.Family = "verdana"
Jpeg.Canvas.Font.Size = 16
Jpeg.Canvas.Font.Bold = True
Jpeg.Canvas.PrintText 37, 86, right("0" & hour(now),2) & ":" & right("0" & minute(now),2)

Response.ContentType = "image/jpg"

Response.Write jpeg.SendBinary

set Jpeg = Nothing
%>

As imagens de fundo eu zipei e estão aqui

 

http://adresende.com.br/imasters/natal/avatar.rar

 

Em relação ao rewrite use assim

 

RewriteRule natal\.jpg$ /imasters/natal/natal.asp

desta forma você poderá deixar a imagem com extensão de imagem, tipo .jpg .gif

 

Aos que gostarem.... AGRADEÇAM PELO CODE

[Mário Monteiro 179]

Bom código

 

Pode ser adaptado para varias situações

[Patrique 0]

Sim sim, basta usar a cachola pra fazer umas paradas ilárias rsrsrsrs