NeedVBHelp
Programmer
I try to make an asp/html page that allow user to upload file to blob field in sql server.
please help.
thanks
tvuong tvuong@kempercm.com
Programmer.
please help.
thanks
tvuong tvuong@kempercm.com
Programmer.
Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Saving image file to sql server
- Thread starter NeedVBHelp
- Start date
- Status
Guest_imported
New member
- Jan 1, 1970
- 0
the html would look something like:
<FORM METHOD="POST" ACTION="Sample4.asp" ENCTYPE="multipart/form-data">
<INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="FILE2" SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="FILE3" SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="FILE4" SIZE="50"><BR>
<INPUT TYPE="SUBMIT" VALUE="Upload">
</FORM>
But you need a component to call in Sample4.asp to process the upload. Here's the Sample4.asp code:
<HTML>
<BODY BGCOLOR="white">
<H1>aspSmartUpload : Sample 4</H1>
<HR>
<%
' Variables
' *********
Dim mySmartUpload
Dim file
Dim oConn
Dim oRs
Dim intCount
intCount=1
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject(&quot;aspSmartUpload.SmartUpload&quot
' Upload
' ******
mySmartUpload.Upload
' Connect to the DB
' *****************
Set oConn = openConnection( )
'curDir = Server.MapPath(&quot;Sample.mdb&quot
'oConn.Open &quot;DBQ=&quot;&amp; curDir &amp;&quot;;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;&quot;
' Open a recordset
' ****************
strSQL = &quot;SELECT RecordID, FileName, Type, [File] FROM tblFiles &quot;
Set oRs = Server.CreateObject(&quot;ADODB.recordset&quot
'Set oRs.ActiveConnection = oConn
'oRs.Source = strSQL
oRs.LockType = 3
Call oRs.Open( strSQL, oConn, adOpenDynamic, adLockPessimistic )
' Select each file
' ****************
For each file In mySmartUpload.Files
' Only if the file exist
' **********************
If not file.IsMissing Then
' Add the current file in a DB field
' **********************************
oRs.AddNew
file.FileToField oRs.Fields(&quot;File&quot
oRs(&quot;FileName&quot = file.FileName
oRS( &quot;Type&quot; ) = &quot;tst&quot;
oRS( &quot;RecordID&quot; ) = intCount
oRs.Update
intCount = intCount + 1
End If
Next
' Display the number of files uploaded
' ************************************
Response.Write(intCount &amp; &quot; file(s) uploaded.<BR>&quot
' Destruction
' ***********
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
%>
</BODY>
</HTML>
<%
function openConnection()
Dim objConnection
set objConnection = Server.CreateObject(&quot;ADODB.Connection&quot
objConnection.Provider = &quot;SQLOLEDB&quot;
objConnection.Open &quot;Source=dev1;UID=sa;PWD=;Initial Catalog=bcc1-military;&quot;
' objConnection.Open Application(&quot;ConnectionString&quot
set openConnection = objConnection
end function
%>
The above is a quickie but you should really use sp's to talk to the db.
I recommend the SmartASP component only because it is free !
JAC
<FORM METHOD="POST" ACTION="Sample4.asp" ENCTYPE="multipart/form-data">
<INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="FILE2" SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="FILE3" SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="FILE4" SIZE="50"><BR>
<INPUT TYPE="SUBMIT" VALUE="Upload">
</FORM>
But you need a component to call in Sample4.asp to process the upload. Here's the Sample4.asp code:
<HTML>
<BODY BGCOLOR="white">
<H1>aspSmartUpload : Sample 4</H1>
<HR>
<%
' Variables
' *********
Dim mySmartUpload
Dim file
Dim oConn
Dim oRs
Dim intCount
intCount=1
' Object creation
' ***************
Set mySmartUpload = Server.CreateObject(&quot;aspSmartUpload.SmartUpload&quot
' Upload
' ******
mySmartUpload.Upload
' Connect to the DB
' *****************
Set oConn = openConnection( )
'curDir = Server.MapPath(&quot;Sample.mdb&quot
'oConn.Open &quot;DBQ=&quot;&amp; curDir &amp;&quot;;Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;&quot;
' Open a recordset
' ****************
strSQL = &quot;SELECT RecordID, FileName, Type, [File] FROM tblFiles &quot;
Set oRs = Server.CreateObject(&quot;ADODB.recordset&quot
'Set oRs.ActiveConnection = oConn
'oRs.Source = strSQL
oRs.LockType = 3
Call oRs.Open( strSQL, oConn, adOpenDynamic, adLockPessimistic )
' Select each file
' ****************
For each file In mySmartUpload.Files
' Only if the file exist
' **********************
If not file.IsMissing Then
' Add the current file in a DB field
' **********************************
oRs.AddNew
file.FileToField oRs.Fields(&quot;File&quot
oRs(&quot;FileName&quot
= file.FileNameoRS( &quot;Type&quot; ) = &quot;tst&quot;
oRS( &quot;RecordID&quot; ) = intCount
oRs.Update
intCount = intCount + 1
End If
Next
' Display the number of files uploaded
' ************************************
Response.Write(intCount &amp; &quot; file(s) uploaded.<BR>&quot
' Destruction
' ***********
oRs.Close
oConn.Close
Set oRs = Nothing
Set oConn = Nothing
%>
</BODY>
</HTML>
<%
function openConnection()
Dim objConnection
set objConnection = Server.CreateObject(&quot;ADODB.Connection&quot
objConnection.Provider = &quot;SQLOLEDB&quot;
objConnection.Open &quot;Source=dev1;UID=sa;PWD=;Initial Catalog=bcc1-military;&quot;
' objConnection.Open Application(&quot;ConnectionString&quot
set openConnection = objConnection
end function
%>
The above is a quickie but you should really use sp's to talk to the db.
I recommend the SmartASP component only because it is free !
JAC
- Status
Similar threads
- Locked
- Question
