Criando Um Avatar Dinâmico

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

<%
autor: Patrique Abdré (O Gostosão)
Perfil: http://forum.imasters.com.br/index.php?/user/31010-patrique/
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 = &H413770End 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 FALTAJpeg.Canvas.Font.Color = &H000000Jpeg.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!"

'HORASJpeg.Canvas.Font.Color = &H0000Jpeg.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
%>

O code rewrite ficara assim

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

Posted in: ASP