xml - Xml でラップされた Base64 でエンコードされたバイナリを返します

Question

ファイル「image.asp」に存在する現在の Web サービス。

パラメーター '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>

このブロブ投稿はこちら..

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

..base64 エンコーディング バイナリに適した VBScript コードが含まれているようです。