08. oktober 2005 - 14:13Der er
9 kommentarer og 1 løsning
ASPSmart upload til mappe og database
Jeg har før anvendt Persits upload komponenten, men skal nu anvende ASPSmart upload i stedet. Her støder jeg dog på nogle problemer når jeg vil indsætte filnavnet i databasen. Hvorledes kan jeg gøre dette. Jeg har prøvet med dette:
Sql.asp: <% ' Variables ' ********* Dim mySmartUpload Dim intCount
' Object creation ' *************** Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload ' ****** mySmartUpload.Upload
' Save the files with their original names in a virtual path of the web server ' **************************************************************************** intCount = mySmartUpload.Save("upload") %>
Kan godt se hvad du mener, men som jeg har lavet det øverst, virkede med persits. Har nu lige prøvet med request.form i stedet, og det virkede ikke. Der får jeg denne fejl: Microsoft VBScript runtime error '800a01a8' Object required: '' /upload/sql.asp, line 32 (hvilket er insert linien)
cpufan, jeg forstår ikke helt hvor jeg skal indsætte dine linier. Kan jeg få dig til at smelte det sammen med mit eksempel. Ved nemlig ikke om jeg skal anvende request.upload, request form, eller slet ikke noget som i mit første eksempel.
intCount = mySmartUpload.Save("upload") ' ind herefter Count = 1 For each file In mySmartUpload.Files ' Only if the file exist ' ********************** If not file.IsMissing Then
FILE & count = file.FileName Count = Count + 1 End If Next ' men før dette Set Conn = Server.CreateObject("ADODB.Connection") ' jeg har omdøbt min tæller da jeg kan se du har en intcount i forvejen 'så brug dette her kode. ' så behøves du ikke request.form eller upload.form
Microsoft VBScript runtime error '800a01b6' Object doesn't support this property or method: 'file' /upload/sql.asp, line 32
Linie 32 er samme linie som før. Alt i alt ser det nu således ud:
<% ' Variables ' ********* Dim mySmartUpload Dim intCount
' Object creation ' *************** Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload ' ****** mySmartUpload.Upload
' Save the files with their original names in a virtual path of the web server ' **************************************************************************** intCount = mySmartUpload.Save("upload")
dim count, FILE1, FILE2 count = 1 For each file In mySmartUpload.Files ' Only if the file exist ' ********************** If not file.IsMissing Then
FILE + count = file.FileName Count = Count + 1 End If Next ' så behøves du ikke request.form eller upload.form Set Conn = Server.CreateObject("ADODB.Connection") DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; " DSN = DSN & "DBQ=" & Server.MapPath("/vti_log/prove.mdb") Conn.Open DSN strSQL = "Insert into prove (FILE1, FILE2) values('" & FILE1 & "', '" & FILE2 & "')" Conn.Execute(strSQL) Response.write "Fil(er) uploadet" Response.Write(intCount & " file(s) uploaded.") Conn.Close Set Conn = Nothing %>
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
