The BEST "FREE" Pure ASP 10MB File Upload - ASP / Active Server Pages

Hi All,

I found the best pure ASP code to upload a file to either server and/or MS Access Database. It works fine for me however, there is one thing that I don't like and have tried to fix but don't have any luck is to do a form validation. This script requires the files: db-file-to-disk.asp and _upload.asp. There is a DESCRIPTION field in the db-file-to-disk.asp file, what I want to do is the user has to field out this fied before submitting Submit orelse it will give you an error. Thanks in advance for your help.

db-file-to-disk.asp

Expand|Select|Wrap|Line Numbers

 
<%

'Sample file Field-SaveAs.asp 

'Store extra upload info to a database

' and file contents to the disk

Server.ScriptTimeout = 5000
 
'Create upload form

'Using Huge-ASP file upload

'Dim Form: Set Form = Server.CreateObject("ScriptUtils.ASPForm")

'Using Pure-ASP file upload

Dim Form: Set Form = New ASPForm %><!--#INCLUDE FILE="_upload.asp"--><% 
 
Server.ScriptTimeout = 1000

Form.SizeLimit = &HA00000'10MB
 
'was the Form successfully received?

Const fsCompletted  = 0
 
If Form.State = fsCompletted Then 'Completted
 
  'Create destination path+filename for the source file.

  Dim DestinationPath, DestinationFileName

  DestinationPath = Server.mapPath("UploadFolder")

  DestinationFileName = DestinationPath & "\" & Form("SourceFile").FileName
 
  'Open recordset to store uploaded data

  Dim RS: Set RS = OpenUploadRS
 
  'Store extra info about upload to database

  RS.AddNew

   RS("UploadDT") = Now()

   RS("Description") = Form.Texts.Item("Description")

   RS("SourceFileName") = Form("SourceFile").FilePath

   RS("DestFileName") = DestinationFileName

   RS("DataSize") = Form("SourceFile").Length

   '...

  RS.Update
 
  Response.write "<br>Source file names:"

  Dim Field: For Each Field in Form.Files.Items

    Response.write "<br>&nbsp;" & Field.FileName

  Next

  '{b}Save file to the destination

  Form("SourceFile").SaveAs DestinationFileName

  '{/b}
 
  response.write "<Font color=green><br>SourceFile was saved as " & DestinationFileName

  response.write "<br>See ListFiles table in " & Server.MapPath("upload.mdb") & " database.</Font>"
 
ElseIf Form.State > 10 then

  Const fsSizeLimit = &HD

  Select case Form.State

        case fsSizeLimit: response.write  "<br><Font Color=red>Source form size (" & Form.TotalBytes & "B) exceeds form limit (" & Form.SizeLimit & "B)</Font><br>"

        case else response.write "<br><Font Color=red>Some form error.</Font><br>"

  end Select

End If'Form.State = 0 then
 
Function OpenUploadRS()

  Dim RS  : Set RS = CreateObject("ADODB.Recordset")
 
  'Open dynamic recordset, table Upload

  RS.Open "ListFiles", GetConnection, 2, 2
 
  Set OpenUploadRS = RS

end Function 
 
Function GetConnection()

  dim Conn: Set Conn = CreateObject("ADODB.Connection")

  Conn.Provider = "Microsoft.Jet.OLEDB.4.0"

  Conn.open "Data Source=" & Server.MapPath("upload.mdb") 

    set GetConnection = Conn

end function
 
%>  
 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML><HEAD>

 <TITLE>ASP huge file upload sample.</TITLE>

 <STYLE TYPE="text/css"><!--TD    {font-family:Arial,Helvetica,sans-serif }TH    {font-family:Arial,Helvetica,sans-serif }TABLE    {font-size:10pt;font-family:Arial,Helvetica,sans-serif }--></STYLE>

</HEAD>

<BODY BGColor=white>
 
<Div style=width:600>

<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
 
  <TR>

    <TH noWrap align=left width="20%" bgColor=khaki>&nbsp;<A 

      href="http://www.pstruh.cz/help/scptutl/upload.asp">Power ASP 

      file upload</A> - upload to disk, store extra file upload info in a database&nbsp;</TH>

    <TD>&nbsp;</TD></TR></TABLE>

<TABLE cellSpacing=2 cellPadding=1 width="100%" bgColor=white border=0>
 
  <TR>

    <TD colSpan=2>

      <P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;This sample demontrates using 

      of Huge-ASP file upload to upload files to server and store file path in server-side database. 

            The sample ASP file is running with Microsoft.Jet.OLEDB (MDB) connection, but you can use it 

            with any other SQL server or file drivers (MS SQL server, Oracle, MySQL, FoxPro driver, etc.).

            </P>

<P>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;You can select source file and write some description of the file.

Source file is stored on server disk. Description, file name, file size and path to stored file are saved in server-side database along with current upload time.

</P>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Form size limit is <%=Form.SizeLimit%>B (<%=Form.SizeLimit \ 1024 %>kB - you can change it, see source) .

  </TD></TR></TABLE>
 
<TABLE cellSpacing=1 cellPadding=3 bordercolor=silver bgcolor=GAINSBORO width="" border=1>

<form method=post ENCTYPE="multipart/form-data">

<TR>

 <TD>&nbsp;</TD>

 <TD Align=Right><input type="submit" Name="Action" value="Upload the file &gt;&gt;"></TD>

</TR>

<TR>

 <TD>File to upload</TD>

 <TD><input type="file" name="SourceFile"></TD>

</TR>

<TR>

 <TD>Description</TD>

 <TD><textarea cols="60" rows="8" name="Description">Type description of the file.</textarea></TD>

</TR>
 
</form></Table>
 
<HR COLOR=silver Size=1>

<CENTER>

<FONT SIZE=1>© 1996 – <%=year(date)%> Antonin Foller, <a href="http://www.pstruh.cz">PSTRUH Software</a>, e-mail <A href="mailto:help@pstruh.cz" >help@pstruh.cz</A>

<br>To monitor current running uploads/downloads, see <A Href="http://www.pstruh.cz/help/iistrace/iis-monitor.asp">IISTracer - IIS real-time monitor</A>.

</FONT>
 
</CENTER>

</Div>

</BODY></HTML>

Jan 26 '08 #1

Subscribe Post Reply

7606

jhardman

3,406

Expert 2GB

If it was me, I would add a javascript function called onClick (I would remove the submit button, and use a fake button instead) that checks the input and either submits the form, or posts an alert message.

Jared

BTW, thanks for posting the code, a lot of people have asked for that type of thing.

Jan 29 '08 #2

hotflash

Hi Jhardman,

Thanks. I got it working. Below is the link to the PURE 10MB ASP Upload Code. It has a bunch of features with upload progress bar .... pretty nice one.

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=8225&lngWId=4

Jan 30 '08 #3

Similar topics

My only complaint about Python

by: Darren Dale | last post by:

I love the language. I love the community. My only complaint is that Python for Windows is built with Visual Studio. It is too difficult to build python, or a module, from source. This is what...

Python

The use of "free"

by: Mars | last post by:

Why this error occurs?? typedef char *string; int main(void) { string str; str="ajsdklfajsdf"; printf("%s\n",str);

C / C++

VB.NET System Hardware Total and "free" memory.

by: Michael | last post by:

How can I determine a users PC Total system memory and memory available or free at the time of my program loading. Thanks

Visual Basic .NET

error while "free"ing memory

by: prashantkhoje | last post by:

hi ppl, i am developing an C application in Microsoft visual C++ 6.0. i get following error while running it in debug mode: /* here's the error message */ program: my_application.exe...

C / C++

how to "free" an object/var ?

by: Stef Mientki | last post by:

If I create a large array of data or class, how do I destroy it (when not needed anymore) ? Assign it to an empty list ? thanks, Stef Mientki

Python

Easy Steps to Fix "Canon Printer Won't Connect to WiFi Network"

by: taylorcarr | last post by:

A Canon printer is a smart device known for being advanced, efficient, and reliable. It is designed for home, office, and hybrid workspace use and can also be used for a variety of purposes. However,...

General

Merging data from multiple Excel files

by: ryjfgjl | last post by:

In our work, we often receive Excel tables with data in the same format. If we want to analyze these data, it can be difficult to analyze them because the data is spread across multiple Excel files...

Data Management

Migrating Website to Cloud - Emmanuel Katto

by: emmanuelkatto | last post by:

Hi All, I am Emmanuel katto from Uganda. I want to ask what challenges you've faced while migrating a website to cloud. Please let me know. Thanks! Emmanuel

General

Navigating the Data Structures and Algorithms (DSA)

by: BarryA | last post by:

What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...

Algorithms / Advanced Math

Is that possible of reading the .csv file in column wise and the column have different lengths ?

by: Sonnysonu | last post by:

This is the data of csv file 1 2 3 1 2 3 1 2 3 1 2 3 2 3 2 3 3 the lengths should be different i have to store the data by column-wise with in the specific length. suppose the i have to...

C / C++

How to build RAID in BIOS?

by: Hystou | last post by:

There are some requirements for setting up RAID: 1. The motherboard and BIOS support RAID configuration. 2. The motherboard has 2 or more available SATA protocol SSD/HDD slots (including MSATA, M.2...

Computer Hardware

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...

Windows Server

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

Online Marketing

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server