Software Artisans File UP (SAFileUP)
The Standard in Transactional File Uploads and Secure DownloadsSAFileUp allows File Upload from any browser to Microsoft's Internet Information Server. Fully scriptable via Active Server Pages. Compliant with RFC 1867.
FileUp allows users with a Web browser to transmit files from their local hard disk to a server running Microsoft Internet Information Server (IIS), or to a separate file server which is networked to the Web server.
Files can be of any format, such as Word documents, images or plain text. Developers can use FileUp to receive and process user input, while staying within the context of their Active Server application.
FileUp also includes file download and file management controls, which allow you to simply and easily download files from the Web server to the user's browser, manipulate files, change ACLs and permissions, and register DLLs.
<HTML>
<BODY>
< FORM ACTION="safileup.asp"
ENCTYPE="MULTIPART/FORM-DATA"
METHOD="POST">
< TABLE WIDTH="600">
< TR>
< TD ALIGN="RIGHT"
VALIGN="TOP" width="103">
< p align="left">Enter
Filename:</p>
< /TD>
< TD ALIGN="LEFT"
width="578"><INPUT
TYPE="FILE" NAME="FILE1">
< p><INPUT TYPE="SUBMIT"
NAME="SUB1" VALUE="Upload
File"></p>
< /TD>
< /TR>
< /TABLE>
< /FORM>
</BODY>
< /HTML>
Code for Upload.asp
<%
'--- Instanciate SA-FileUp
'---
Set upl = Server.CreateObject("SoftArtisans.FileUp")
'---
'--- Set the default path
to store uploaded files.
'--- Set it to your directory,
we have the "E:\Inetpub\yourdir\web\upload"
as an example.
upl.Path = "E:\Inetpub\yourdir\web\upload"
%>
< % if upl.IsEmpty Then
%>
The file that you uploaded
was empty. Most likely,
you did not specify a
valid filename to your browser
or you left the filename
field blank.
Please try again.
< % ElseIf upl.ContentDisposition
<> "form-data"
Then %>
Your upload did not succeed,
most likely because your
browser
does not support Upload
via this mechanism.
< %Else %>
< P>The file was successfully
transmitted by the user.</P>
< %
on error resume next
'---
'--- Save the file now.
If you want to preserve
the original user's filename,
use
'---
upl.Save
End If
%>
More: Full details + Knowledge base available at:http://www.safileup.com
