| 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> | |
© 1996 - 2009 Antonin Foller, Motobit Software | About, Contacts | e-mail: info@pstruh.cz