asp中如何将 base64编码的数据解码为二进制数据

[cniteeq]

asp中如何将 base64编码的图片解码为二进制数据，然后将这个图片显示在页面上

[hookee]

组件下载: http://www.chakucun.com/Base64Lib.zip

<img src="test.asp">
test.asp

<%
s = "R0lGODlhCgAKAIAAAEqxNQAAACH5BAAAAAAALAAAAAAKAAoAAAIIhI+py+0PYysAOw=="
Set obj = CreateObject("Base64Lib.Base64Codec")
Response.BinaryWrite obj.Decode(s,0)
Set obj = Nothing
%>

[mahui19780126]

写程序改要下载控件。用photoshop改好，再传上去。

[lzp4881]

自 由 颂

林昭


生命似嘉树，爱情若丽花；
自由昭临处，欣欣迎日华。
生命巍然在，爱情永无休；
愿殉自由死，终不甘为囚。

[wcwtitxu]

Function DecodeBase64(str)
	With CreateObject("Microsoft.XMLDOM").createElement("TXT")
		.dataType = "bin.base64"
		.text = str
		DecodeBase64 = .nodeTypedValue
	End With
End Function

Function EncodeBase64(dt)
	With CreateObject("Microsoft.XMLDOM").createElement("TXT")
		.dataType = "bin.base64"
		.nodeTypedValue = dt
		EncodeBase64 = .text
	End With
End Function