Introduction
First install SoftArtisans.FileUp component
to upload the files. Or you can use any other file upload component that you have access to.
Then, create the table into SQL Server
create table test (
file_id int identity(1,1),
file_type varchar(50),
file_name varchar(50),
file_data image,
date_created smalldatetime)
Create the ASP File (upload.asp) to save the file into SQL Server
Html Code
<form ENCTYPE="multipart/form-data" METHOD="post"
ACTION="upload.asp" name="frmUpload">
<input type="file" size="15" src="" width="67" height="18"
id="FILE1" NAME="FILE1" value="Search">
<input TYPE="submit" NAME="btnEnviar" VALUE="Submit">
</form>
ASP Code
Dim objUpload
Set objUpload = Server.CreateObject("SoftArtisans.FileUp")
Set MSCS = Server.CreateObject("ADODB.Connection")
MSCS .ConnectionTimeout = 90
MSCS .Open "DSN=DSN_NAME;UID=USERNAME;PWD=PASSWORD;DATABASE=DATABASE_NAME"
If objUpload.Form("FILE1") <> "" Then
Set Rs = Server.CreateObject ("ADODB.Recordset")
Rs.Open "test", MSCS, 2, 3
Rs.AddNew
Rs("file_name") = objUpload.Form("FILE1").UserFilename
objUpload.Form("FILE1").SaveAsBlob Rs("file_data")
Rs("file_type") = objUpload.Form("FILE1").contentType
Rs("date_created") = now()
Rs.upDate()
Rs.Close
Response.Write "Uploaded Successfully"
End If
Set objUpload = Nothing
%>
Now create the view_upload.asp to view the file
<%
Set MSCS= Server.CreateObject("ADODB.Connection")
MSCS.ConnectionTimeout = 90
MSCS.Open "DSN=DSN_NAME;UID=USERNAME;PWD=PASSWORD;DATABASE=DATABASE_NAME"
Set Rs = Server.CreateObject ("ADODB.Recordset")
strSQL = "SELECT * FROM test WHERE file_id = " & request("id")
Rs.Open strSQL, MSCS, 2, 3
Response.ContentType = Rs("file_type")
Response.BinaryWrite Rs("file_data")
Rs.close
%>To view the file saved number 1 browse to
http://server.com/view_upload.asp?id=1