Upload - to database, or not to database? Article

'Code 1
Server.ScriptTimeout = 120

Dim Form: Set Form = Server.CreateObject("ScriptUtils.ASPForm")
If Form.State = 0 Then
 Form.Files("MyFile").Save "f:\Uploads\UpFile"
End If

      Save method consumes constant amount of memory (block size is set to 1MB). Processor time (save time) depends linearly on file length.

'Code 2
Function GetConnection()
 Dim Conn: Set Conn = CreateObject("ADODB.Connection")
 Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
 Conn.Open "Data Source=e:\upload2000.mdb"
 Conn.CommandTimeout = 1800
 Set GetConnection = Conn
End Function

'Code 3
 'Open dynamic recordset, table Upload
 RS.Open "Upload", Conn, 2, 2

 'Add a new record
 RS.AddNew
 'update info fields in "Upload" table
 '.... 
 'Add file from source field 'DBFile' to table field 'Data'
 RS("Data") = Form("DBFile").ByteArray
 RS.Update

'Code 4
'Set block size to 64kB
Const BlockSize = &H10000

'Process source data using blocks
Dim BlockCounter, DataBlock
For BlockCounter = 0 To Form("DBFile").Length Step BlockSize
 'Get a part of source data
 DataBlock = Form("DBFile").ByteArray(BlockCounter, BlockSize)

 'Add a part of source data to the field
 RS("Data").AppendChunk DataBlock
Next 'BlockCounter 

'Code 5
'open connection for SQLOLEDB
Function GetConnection()
 Dim Conn: Set Conn = CreateObject("ADODB.Connection")
 Conn.Provider = "SQLOLEDB"
 Conn.Open "Data Source=Muj;Database=Upload", "sa", ""
 Set GetConnection = Conn
End Function

'open connection for MSDASQL
Function GetConnection()
 Dim Conn: Set Conn = CreateObject("ADODB.Connection")
 Conn.Open "DSN=Upload", "sa", ""
 Set GetConnection = Conn
End Function

'Code 6
'Set block size to 1MB
Const BlockSize = &H100000

'Process source data using blocks
Dim BlockCounter, HexDataBlock
For BlockCounter = 0 To Form("DBFile").Length Step BlockSize
 'Get a part of source data as a Hex string
 HexDataBlock = Form("DBFile").HexString(BlockCounter, BlockSize)

 'Add a part of source data to the field using SQL UPDATETEXT command
 SQL = "DECLARE @dataptr binary(16)" & vbCrLf
 SQL = SQL & "SELECT @dataptr = TEXTPTR(Data)"
 SQL = SQL & " FROM Upload WHERE UploadID=" & UploadID & vbCrLf
 SQL = SQL & "UPDATETEXT Upload.Data @dataptr " & BlockCounter & " NULL 0x" & HexDataBlock
 'Execute prepared SQL command
 Conn.Execute SQL, 0, adCmdText + adExecuteNoRecords
Next 'BlockCounter 

ScriptUtils.FAQ for Huge ASP file upload and scriptUtilities

Frequently asked questions about ScriptUtilities, Pure-ASP and Huge-ASP upload functionality.

ScriptUtils

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.