Base64 Encoding for Images

Pessoal, estava visitando um site de um camarada, e ele postou lá um code em php interessante, procurei na net e não achei nada para encode base64 de imagens no asp, por isso decidi fazer, o resultado final eu gostei pois achei que o code ficou bem limpo, pensava que teria que fazer muita firula até conseguir chegar ao resultado, mais no final ficou muito bacana.

Vantagens:

Reduz o número de requisições http no servidor, com isso reduz o consumo

Carrega mais rápido do que o método padrão

O Google já utiliza este método a anos, certamente para diminuir e aumentar a performance no server

Desvantagens:

O IEca não da suporte a utilizar este método.

Mais muitos dizem que este método será bastante utilizado no futuro, é aguardar pra ver :D

Versão PHP...

<? Php

 $ Img_src = "imagem sample.png /" ;
 $ Imgbinary = fread ( fopen ($ img_src, "r"), filesize ($ img_src));
 $ Img_str = base64_encode ($ imgbinary);
 echo " <img src = "data: image / jpg; base64, ". $ img_str . "/> ';
?>

http://www.9lessons.info/2010/11/base64-encoding-for-images.html

E tomando como exemplo esta versão do PHP acima eu fiz essa abaixo em ASP.

<%
Function Imgbinary(path)

dim str : set str = Server.createObject("ADODB.Stream")

str.type = 1
str.open()
str.loadFromFile(Server.mapPath(path))

bin = str.read()

dim open : set open = Server.createObject("MSXML2.DOMDocument.6.0")
dim src : set src = open.createElement("data")

src.dataType = "bin.base64"
src.nodeTypedValue = bin

Imgbinary = "data:image/jpg;base64," & src.text

str.close()

set str = nothing
set src = nothing
set open = nothing

End Function

Response.Write("<img src=""" & Imgbinary("teste.jpg") & """ />")
%>

Valew.