| ZLib - Accept compressed data on server-side ASP | |
|---|---|
<%
ReceiveFile()
'Server-side function
'This function accepts and saves uploaded data compressed by the Compress method on the servers ASP
Sub ReceiveFile()
Dim SourceData, FileName, FileContents, ByteArray
'Test if this is request from our client
FileName = Request.ServerVariables("HTTP_FILENAME")
If FileName <> "" Then 'This is a request from our client
'Read compressed file from the source stream
SourceData = Request.BinaryRead(Request.TotalBytes)
'Uncompress the source file
Set ZLib = CreateObject("ScriptUtils.ZLib")
Set FileContents = ZLib.UnCompress(SourceData)
'Save source file to the destination directory (current directory)
FileContents.SaveAs Server.MapPath(GetFileName(FileName))
End If
End Sub
Function GetFileName(FullPath)
'Returns file name from full path
Dim Pos
Pos = InstrRev(FullPath, "\")
GetFileName = Mid(FullPath, Pos + 1)
End Function
%> | |
Implements zlib Compress and Uncompress functions. Lets you compress/uncompress files, or send compressed data over http/https connections.
Huge ASP upload is easy to use, hi-performance ASP file upload component with progress bar indicator. This component lets you upload multiple files with size up to 4GB to a disk or a database along with another form fields. Huge ASP file upload is a most featured upload component on a market with competitive price and a great performance . The software has also a free version of asp upload with progress, called Pure asp upload , written in plain VBS, without components (so you do not need to install anything on server). This installation package contains also ScriptUtilities library. Script Utilities lets you create hi-performance log files , works with binary data , you can download multiple files with zip/arj compression, work with INI files and much more with the ASP utility.
© 1996 - 2011 Antonin Foller, Motobit Software | About, Contacts | e-mail: info@pstruh.cz