ASP Upload
What browsers
are compatible with .asp files? You may use the following
browsers (RFC 1867-compliant) to upload files:
How do I upload
to a data directory? You may upload up to three
files and the corresponding asp script to a data directory by creating the following
HTML form:
<HTML>
<% Set Upload = Server.CreateObject
("Persits.Upload.1") How do I upload
to a database? You may upload three files
to a database by creating the following HTML form:
<HTML>
Uploading files to a
to a database requires a few more lines of code than that of a data directory
as follows:
<% Set Upload = Server.CreateObject
("Persits.Upload.1")
' Process all files
received ' Display description
field ' Display all selected
categories How do I upload
an image from my database to a web page? To include an uploaded image
from your database in a web page you can use a regular <IMG> tag in your
HTML page with the SRC attribute pointing to the asp script. Please see the
following examples:
<HTML>
<% Set Upload = Server.CreateObject
("Persits.Upload.1")
<body bgcolor=FFFFFF text="#000000" link="#990000">
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="upload.asp">
<INPUT TYPE= FILE SIZE= 60 NAME="FILE1"> <BR>
<INPUT TYPE= FILE SIZE= 60 NAME="FILE2"> <BR>
<INPUT TYPE= FILE SIZE= 60 NAME="FILE3"> <BR>
<INPUT TYPE="SUBMIT" VALUE="Upload!">
</FORM>
</BODY>
</HTML>
Count = Upload.SaveVirtual ("/data") %>
<% = Count %> file(s) uploaded.
<body bgcolor=FFFFFF text="#000000" link="#990000">
<FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="DataUpload.asp">
<INPUT TYPE=FILE NAME="FILE1"><BR>
<INPUT TYPE=FILE NAME="FILE2"><BR>
<INPUT TYPE=FILE NAME="FILE3"><BR>
<INPUT TYPE=TEXT NAME="DESCRIPTION"><BR>
<SELECT NAME="CATEGORY" MULTIPLE>
<OPTION>Image
<OPTION>Text
<OPTION>Source Code
<OPTION>Archive
</SELECT><BR>
<INPUT TYPE=SUBMIT VALUE="Upload!">
</FORM>
</BODY>
</HTML>
' Upload files
%>
Upload.OverwriteFiles = False ' Generate unique names
Upload.SetMaxSize 1048576 ' Truncate files above 1MB
Upload.SaveVirtual "/data" ' Save to data directory
For Each File in Upload.Files
File.ToDatabase ' Save in the database as blob
"DSN=userid.dsn_name;UID=user_id;PWD=account_Password;",_"insert into
UploadTable (id, FilePath, image)values (12, '" & File.Path &
'",?)"
Next
Response.Write Upload.Form ("Description") & "<BR>"
For Each Item in Upload.Form
If Item.Name = "Category" Then
Response.Write Item.Value & "<BR>"
End If
Next
<BODY<br> <IMGSRC="getimage.asp?id=12">
</BODY>
</HTML>
Set db = Server.CreateObject("ADODB.Connection")
%>
db.Open "userid.dsn"
Set rs =db.Execute("SELECT image FROM uploadTable where id = " & Request("id"
)
Response.ContentType = "image/gif" (or "image/jpeg")
Response.BinaryWrite rs("image")