株式会社テラソフトデザイン

<%@ Page Language="VBScript" Debug="true" %>
<%
    Dim wfrCom As Object
    Dim wfrImg As Byte()

    wfrCom = Nothing
    wfrImg = Nothing

    Try
        wfrCom = Server.CreateObject("WfrServer.Com.4")

        wfrCom.Open(Server.MapPath(Request.QueryString("File")))
        wfrCom.Import("#1", 0, Server.MapPath(Request.QueryString("Csv")))

        wfrImg= wfrCom.GetBinaryImage(0)
        Response.ContentType="application/octer-stream"
        Response.BinaryWrite(wfrImg)

    Catch ex As Exception
        Response.ContentType = "text/plain"
        Response.Write(ex.Message)

    Finally
        If wfrCom IsNot Nothing Then
            System.Runtime.InteropServices.Marshal.ReleaseComObject(wfrCom)
            wfrCom = Nothing
        End If
        wfrImg = Nothing

    End Try
%>