0

驻留在文件“image.asp”中的当前 Web 服务。

它提取参数“路径”并从文件存储库中加载该文件路径。这会将二进制文件直接返回给调用该服务的 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 代码。

4

0 回答 0