ASP 클래식 용 base64 이미지 디코더

Question

클래식 ASP에서 base64 인코딩 이미지를 디코딩하는 방법을 알려줄 수 있습니까? 이미지는 Java org.apache base64 클래스에 의해 인코딩됩니다. Java는 base64 디코딩을 위해 RFC 2045를 사용합니다.

Answer 1

Capicom COM 개체를 사용할 수 있습니다. 나는 역 (base64 인코딩)에 그것을 사용하고 있습니다. 이 (당신은 큰 루프를 가지고 있다면 당신은 더 CreateObject를 루프 외부에서 수행 한 것, 그러나 간단한 경우에이 그것을 어떻게해야) 내가 할 것 인 것이다 :

Function Base64Decode(encodedString) 
    Dim caputil : Set caputil = CreateObject("CAPICOM.Utilities") 
    If len(encodedString) > 0 Then 
     Base64Decode = caputil.Base64Decode(encodedString) 
    Else 
     Base64Decode = "" 
    End If 
    Set caputil = Nothing 
End Property 

참조 : http://msdn.microsoft.com/en-us/library/aa388176(v=vs.85).aspx

그런데

은의 CAPICOM.dll은 MS 사이트에서 다운로드 할 수 있습니다 : http://www.microsoft.com/downloads/en/details.aspx?FamilyID=860ee43a-a843-462f-abb5-ff88ea5896f6

Answer 2

<% 
Set objXML = Server.CreateObject("MSXml2.DOMDocument") 
Set objDocElem = objXML.createElement("Base64Data") 
objDocElem.DataType = "bin.base64" 
objDocElem.text = "/9j/4AAQSkZJRgABAQEBLAEsAAD/2wBDAAUD" 'encodedString 

'Save to disk 
Set objStream = Server.CreateObject("ADODB.Stream") 
objStream.Type = 1 
objStream.Open 
objStream.Write objDocElem.NodeTypedValue 
objStream.SaveToFile "abc.jpg", 2 
set objStream = Nothing 


'Or send to browser 
Response.ContentType = "image/jpeg" 
Response.AddHeader "Content-Disposition", "attachment; filename=abc.jpg"; 
Response.BinaryWrite objDocElem.NodeTypedValue 

Set objXML = Nothing 
Set objDocElem = Nothing 
%>