返回包含在Xml中的Base64中编码的二进制文件

Question

驻留在文件'image.asp'中的当前网络服务。

它拉出参数'path'并从文件仓库加载该文件路径。 这将二进制文件直接返回到例如调用的Web浏览器 服务，然后呈现例如PDF在浏览器中。

---

<%
If Request.QueryString.Count > 0 then
    Dim fileStream
    Dim fileLoc

    fileLoc= Request.QueryString("path")

    Set fileStream = Server.CreateObject("ADODB.Stream")

    fileStream.Type=1
    fileStream.Mode=3

    fileStream.open
    fileStream.loadFromFile fileLoc

    Response.Buffer = False 
    Response.ContentType = "image/tiff"

    Response.BinaryWrite fileStream.read

    fileStream.close
    Response.Flush()

    Set fileStream = Nothing

else
'querystring parameters present

end if
%>

-----------------------------------------------------------

我想要做的是返回Base64中编码的二进制文件 并包含在xml消息中，例如

<response>
    <file-content>878748759459843u989856589u96u9yu9.......</file-content>
</response>

此blob帖子在这里..

http://ghads.wordpress.com/2008/10/17/vbscript-readwrite-binary-encodedecode-base64/

..似乎包含足以用于base64编码二进制文件的VBScript代码。