| SuperUpload | Pro | Enterprise | Gold |
The SuperUpload feature of ASP-db2000 is designed for the next generation of ASP-db and is available at this time as a stand alone component.
| Parameters |
|
Properties |
Description |
| Form |
Syntax: Set aFormElementsCollection = object.Form Set aFormElement = object.Form(name) This property retrieves the collection of form elements. See FormElement object description for details. The collection is indexed by FormElements name (see FormElement.Name property). |
| FileElements |
Syntax: Set aFileElementsCollection = object.FileElements Set aFileElement = object.FileElements(name) This property contains info on files uploaded. See FileElement object description for details. The collection is indexed by FileElements name (see FileElement.Name property). |
| OverwriteFiles |
Syntax: object.OverwriteFiles = aBoolean aBoolean = object.OverwriteFiles This property determines if an upload will overwrite an existing file on the server. Default = True |
| Path |
Syntax: object.Path = aString aString = object.Path This property defines the default directory for storing files. It also defines the location of the cache files before a final save is executed. |
| FileElement Object | |
| Name |
Syntax: aString = object.Name The property contains the name of the input field in the original HTML form. |
| ContentDisposition |
Syntax: aString = object.ContentDisposition This property contains the MIME Content Disposition of the data. This should always be "form-data" when using a browser that supports RFC1867 uploads. |
| ContentType |
Syntax: aString = object.ContentType The property contains the first part of the MIME type of the file. I.e. for image file the ContentType property is “image”. |
| ContentSubtype |
Syntax: aString = object.ContentType The property contains the second part of the MIME type of the file. I.e. for GIF format file the ContentType property is “gif”. |
| ContentTransferEncoding |
Syntax: aString = object.ContentTransferEncoding This property is typically blank, but may contain the MIME Content Transfer Encoding. |
| ClientFileName |
Syntax: aString = object.ClientFileName This property contains the name of the file that was uploaded on the user's hard disk. |
| ClientFilePath |
Syntax: aString = object.ClientFilePath This property contains the path of the file that was uploaded on the user's hard disk. |
| Size |
Syntax: aLong = object.Size This property displays the actual numbers of bytes of the file written to disk. |
| FormElement Object | |
| Name |
Syntax: aString = object.Name The property contains the name of the input field in the original HTML form. |
| Value |
Syntax: aString = object.Value The property contains the value of the input field. |
| Methods | Description |
| DenyPath |
Syntax:
object.DenyPath aPath
This method allows to block file uploads to specified physical or virtual locations. This also blocks upload to nested folders. Physical paths should be specified starting with the drive letter and with backslashes, and virtual locations — starting with a slash.
|
| DenySize |
Syntax: object.DenySize aLong
The method allows setting the maximum limit of total number of bytes (including both files and form elements) that can be read from the client. After the specified number of bytes has been uploaded from the client, all extra files and form elements are ignored. By default the denied size is set to 0, which means no limits. |
| Upload |
Syntax : object.Upload
This method reads the request from client, parses it and fills in Files and Form collections. The call to this method must be issued before files and form elements can be accessed. |
| FileElement Object | |
| Save |
Syntax: aBoolean = object.Save aBoolean = object.Save( aPath, aFileName) This method saves an uploaded file to the web server's hard disk. Both aPath and aFileName are optional parameters. If aPath is not specified the file is saved to the directory defined by the previously assigned Path property (see SuperUpload object, property Path). If aFileName not specified the client’s original filename is used. The method returns True if the file was saved successfully. |
| SaveToField |
Syntax: aBoolean = object.SaveToField( anADOField) This method saves an uploaded file to a database. Valid field types are 205 (BLOB) and 203 (Memo). Returns True if saved successfully |
| SaveInVirtualDir |
Syntax: aBoolean = object.SaveInVirtualDir aBoolean = object. SaveInVirtualDir( aVirtualDir) This method saves an uploaded file to the web server's hard disk in a location specified by the virtual directory or filename in a virtual directory. Parameter aVirtualDir is optional. If not specified the file is saved to the same virtual location where the asp and DLL are located. Returns True if saved successfully. |
| Example |
SuperUpload-default.asp
| <p align="left"> <FONT SIZE=6 color="green" face="Arial,Helvetica"><B><I>ASP-db SuperUp Demo<br> </I></B></FONT> <b><font face="Arial,Helvetica" size="3"><br> Input an image file (gif, jpeg or png) and a text file by clicking the Browse button. The content of text file will go into the Access database as a memo field (201, 203) and the image will be stored as a BLOB field (128, 204, 205). The contents will then be retrieved and displayed using a few lines of standard ASP-db code. You can easily combine this upload feature with the standard ASP-db features to implement dynamic "Content Management" projects. Total upload size of this demo is limited to 50K. Image width is set to 128 wide. HTML files upload is prohibited. DB will be cleaned up at end of day.</font></b> <p align="left"> <table cellspacing='0' cellpadding='2' rules='all' bordercolor='#000000' border='1' style='background-color: #FFFFFF; border-collapse: collapse; border-color: Black' width="100%"> <tr> <td width="50%" align="center" bgcolor="#00FF00"><b><font face="Arial,Helvetica" size="3">Methods</font></b> </td> <td width="50%" align="center" bgcolor="#00FF00"><b><font face="Arial,Helvetica" size="3">Properties</font></b></td> </tr> <tr> <td width="50%" bgcolor="#00FF00"><font face="Arial,Helvetica" size="3">DenyPath; DenySize; Upload; SavetoFile; SaveToField; SaveInVirtualDirectory; </font></td> <td width="50%" bgcolor="#00FF00"><font face="Arial,Helvetica" size="3">FormName and Value; FilePath; FileName; Overwrite; ContentType and Subtype; ContentTransferEncoding; WriteSize</font></td> </tr> </table> <p> <form method="post" enctype="multipart/form-data" action="SuperUpload-3.asp"> <input type="hidden" name="input_hidden" value="myhiddenvalue"> <table cellpadding="5" cellspacing="0" border="0"> <tr> <td> <p align="right">Input your ID</td> <td><input name="ID"></td> </tr> <tr> <td> <p align="right">Input Image File (jpg, gif or png)</p> </td> <td><input type="file" accept="*.gif" name="FileItem"></td> </tr> <tr> <td> <p align="right">Input Memo Text File</p> </td> <td><input type="file" accept="*.gif" name="FileItem"></td> </tr> <tr> <td colspan="2"> <p align="center"><input type="submit" value="Upload to Access DB, Retrieve and and Display"></p> </td> </form> </tr> </form> </table> |
SuperUpload-3.asp
| <% dim r set r = Server.CreateObject("SuperUpload.UploadRequest") r.DenySize 50000 r.Upload r.Path = "e:\inetpub\wwwroot\aspdb\upload\" myID=r.form("ID").value 'response.write(myID & "<BR>") ' Open the database from the current virtual directory dim rs, database database = Server.MapPath("/aspdb/upload/SuperUp.mdb") set rs = Server.CreateObject("ADODB.Recordset") ' Access connect string dim cnn cnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""" & database & """" rs.Open "table1", cnn, 1,3, 2 'adLockOptimistic, adCmdTable rs.AddNew 'response.write("MYID=" & myID & "<BR>") rs("ID")=myID rs("TimeStamp")=now() for each file in r.Files if file.clientFileName <> "" then if file.contenttype="image" then rs("ImageFilename") = file.ClientFileName rs("ImageContentType") = file.ContentType & "/" & file.ContentSubtype file.SaveToField rs("OLEOBJField") elseif file.contenttype="text" and instr(1,file.contenttype,"htm",1)=0 then rs("MemoFilename") = file.ClientFileName rs("MemoContentType") = file.ContentType & "/" & file.ContentSubtype file.SaveToField rs("MemoField") end if rs.update end if next rs.Close response.redirect("retrieve-3.asp") %> |
Retrieve-3.asp
| <B><I><font color="green" face="Arial,Helvetica" size="5">ASP-db SuperUp Demo - Retrieve Uploaded Data from Access DB</font> <p></I></B> <font face="Arial" size="4"><b> Images are resized to WIDTH=128. This demo stores the images as an OLE Object inside the Access database instead of storing as a file and use <IMG> to display.</b></font> <p> <% Set X= Server.CreateObject("ASP.DB") X.dbUnit = "999" X.dbMode = "Dual-Horiz" X.dbBLOB = "OLEOBJField,image/gif,Browser,0,128," X.dbFormHideFlds = "MemoField" X.dbFormMemo = "10 x 50,MemoField" X.dbGridDisplayFlds = "ID" X.dbGridHideFlds = "MemoField" X.dbMemoTextSize = -1 X.dbDSN = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=e:\inetpub\wwwroot\aspdb\upload\SuperUp.mdb" X.dbSQL = "SELECT AutoNum,ID,MemoFilename,MemoContentType,ImageFilename,ImageContentType,TimeStamp,OLEOBJField,MemoField FROM Table1 order by Autonum desc" X.ASPdb %> |