Simple download

Examples

Simple download
<Script RunAt=Server Language=VBScript> WriteFileToClient "c:\images\adv88.gif" Sub WriteFileToClient(File) Dim ByteArray Set ByteArray = CreateObject("ScriptUtils.ByteArray")'Creates the ByteArray object ByteArray.ReadFrom(File) Response.AddHeader "Content-Length", ByteArray.Length Response.ContentType = "image/GIF" Response.BinaryWrite ByteArray.ByteArray'Returns byte safearray (VT_UI1) ByteArray = Empty End Sub </Script>

Simple download

<Script RunAt=Server Language=VBScript>
  WriteFileToClient "c:\images\adv88.gif"

  Sub WriteFileToClient(File)
    Dim ByteArray
    Set ByteArray = CreateObject("ScriptUtils.ByteArray")'Creates the ByteArray object
    ByteArray.ReadFrom(File)
    Response.AddHeader "Content-Length", ByteArray.Length
    Response.ContentType = "image/GIF"
    Response.BinaryWrite ByteArray.ByteArray'Returns byte safearray (VT_UI1)
    ByteArray = Empty
  End Sub 
</Script>

Other links for Simple download

ScriptUtils

Easy to use, hi-performance ASP file upload component with progress bar indicator. Let's you upload multiple files with size up to 2GB to a disk or database along with another form fields. Works with large posts, any character set (including unicode utf-8). Contains one-click multiple files/folders download with on-the-fly compression (Using BinaryWrite/BinaryRead).

      Hi-performance text file logging for ASP/VBScript/VBA applications. Lets you create daily/weekly/monthly log files with variable number of logged values and extra timing and performance info.
       Lets you work with safearray binary data in VBS/JS. It also enables conversion between binary and String data using several code pages. ZLib compress and uncompress functions. Lets you transfer files using compressed stream from a client to server using IE.
      This library also enables calling of some Kernel and Advapi functions (performance, timing, sleep, configuration ...) and enables native work with INI files.