Pixel Dinâmico

[xanburzum 169]

Este script cria um 1x1 pixel na cor que você especificar. Ele espera receber um valor de cor hexadecimal na QueryString "Cor"

 

Exemplos:

Pixel.asp? Color = FF0000

Pixel.asp? Color = # FF0000

Pixel.asp? Color = ff0000

 

Se não for especificado QueryString - ou seja inálido, uma imagem transparente será retornada.

 

pixel.asp

 

 

<%
Dim Image
Dim Color
Dim Pixel
Dim Clear

' Image Templates (Hex Value of Binary Data)
Pixel = "47494638396101000100800000######0000002C00000000010001000002024401003B"
Clear = "4749463839610100010080FF00C6353500000021F90401000000002C00000000010001000002
024401003B"

Color = Request.QueryString("Color")
Color = Replace(Color, "#", "")

If Len(Color) = 6 Then
    
    Image = Replace(Pixel, "######", Color)
    
    ' Validar Cor da imagem
    For Index = 1 To 6
        ' Se um caractere inválido foi encontrado
        If InStr(1, "0123456789ABCDEF", Mid(Color, Index, 1), vbTextCompare) = 0 Then
            ' definir a imagem transparente
            Image = Clear
            Exit For
        End If
    Next

Else

    ' Retornar uma imagem transparente
    Image = Clear
    
End If

' Iniciar a devolução dos dados binários

MaxIndex = Len(Image) \ 2

Response.ContentType = "image/gif"

For Index = 1 To MaxIndex
    Response.BinaryWrite(ChrB("&h" & Mid(Image, ((Index - 1) * 2) + 1, 2)))
Next    
%>

 

exemplo.asp

 

 

<

FORM method="get">
    <INPUT name="Color" value="<%=Request.QueryString("Color")%>">
    <INPUT type="Submit" value="Build Image">
</FORM>
<IMG src="Pixel.asp?Color=<%=Request.QueryString("Color")%>" width="100" height="100" border=1>

[desisto 0]

pra que serve?

[Ted k' 126]

Este script cria um 1x1 pixel na cor que você especificar. Ele espera receber um valor de cor hexadecimal na QueryString "Cor"

by xan

[xanburzum 169]

exatamente como meu grande amigo, citou acima....

Este script cria um 1x1 pixel na cor que você especificar

[desisto 0]

eu ainda sei ler  <_<

 

quero saber a aplicação disso?

 

pra que serve criar um px de 1x1?

 

 

 

<IMG src="Pixel.asp?Color=<%=Request.QueryString("Color")%>" width="100" height="100" border=1>

 

isso cria uma imagem de 1x1 com width="100"?

[xanburzum 169]

car você pode criar 1x1 , 16x16, 48x48, sendo k eu usos os mesmo em uma agenda, tipo calendario, onde o user escolhe a img...