ASP經典的base64圖像解碼器

Question

任何人都可以告訴我如何解碼經典ASP中的base64編碼圖像嗎？該圖像由Java org.apache base64類編碼。 Java使用RFC 2045進行base64解碼。

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 
%>