Avatar billede wilweb Nybegynder
09. april 2005 - 23:01 Der er 11 kommentarer og
2 løsninger

Upload fil med Persits.Upload.1 og skriv til db

Denne simple upload virker fint, men hvordan får jeg formens felter ned i en database?

min access database ser såleder ud:
ID | filbeskrivelse | filnavn

min form ser således ud:

<html>
<body>
<form method="post" enctype="multipart/form-data" action="uploaded.asp">
Indtast der beskriver din fil<br />
<input name="filbeskrivelse" type="text" size="40" maxlength="40"><br />
  <input name="file1" type=file size="40">
  &nbsp;&nbsp;&nbsp;<input type=submit value="upload!">
</form>
</body>
</html>

'uploaded.asp
<%
'open db
Set Conn = Server.CreateObject("ADODB.Connection")
dsn = "DRIVER={Microsoft Access Driver (*.mdb)}; "
dsn = dsn & "DBQ=d:/web/ttt.dk/database/billeder.mdb"'web
Conn.Open dsn

'upload
  Set Upload = Server.CreateObject("Persits.Upload.1")
  Count = Upload.Save("d:/web/ttt.dk/www/ttt-system/presse")
  Response.Write Count & " fil(er) modtaget."

'### hvordan får jeg fat i filnavn og filbeskrivelsen til databasen???????? ###############
'skriv til db
filbeskrivelse = request.form("filbeskrivelse")
filenavn =
    strSQL = "INSERT INTO upload (filbeskrivelse, filnavn) VALUES ('" & filbeskrivelse & "','" & filnavn & "')"         
    Set rs = Conn.Execute(strSQL)
%>
Avatar billede mikkelk Nybegynder
09. april 2005 - 23:13 #1
For Each File in Upload.Files
            Response.Write File.Name & "= " & File.Path & " (" & File.Size &")<BR>" Next
Avatar billede mikkelk Nybegynder
09. april 2005 - 23:13 #2
Hov:
For Each File in Upload.Files
Response.Write File.Name & "= " & File.Path & " (" & File.Size &")<BR>"
Next
Avatar billede mikkelk Nybegynder
09. april 2005 - 23:14 #3
Avatar billede wilweb Nybegynder
09. april 2005 - 23:15 #4
hvor sætter jeg den ind???
Avatar billede wilweb Nybegynder
09. april 2005 - 23:17 #5
Måske sådanne her:
filbeskrivelse = request.form("filbeskrivelse")
filenavn = File.Name
strSQL = "INSERT INTO upload (filbeskrivelse, filnavn) VALUES ('" & filbeskrivelse & "','" & filnavn & "')"         
Set rs = Conn.Execute(strSQL)
Avatar billede mikkelk Nybegynder
09. april 2005 - 23:20 #6
'upload
  Set Upload = Server.CreateObject("Persits.Upload.1")
  Count = Upload.Save("d:/web/ttt.dk/www/ttt-system/presse")
  Response.Write Count & " fil(er) modtaget."
For Each File in Upload.Files
filenavn = File.Name
filbeskrivelse = upload.form("filbeskrivelse")
Next
Avatar billede mikkelk Nybegynder
09. april 2005 - 23:21 #7
Du kan ikke bruge request.form, men skal istedet bruge upload.form, som vist.
Avatar billede wilweb Nybegynder
09. april 2005 - 23:23 #8
Ok, prøver det lige :>
Avatar billede mikkelk Nybegynder
09. april 2005 - 23:31 #9
success?
Avatar billede wilweb Nybegynder
09. april 2005 - 23:49 #10
Fik det til at virke efter jeg rettede denne linje:
Count = Upload.Save("d:/web/ttt.dk/www/ttt-system/presse")
til
Count = Upload.Save("d:\web\ttt.dk\www\ttt-system\presse")

Tusinde tak for hjælpen, husk lige at smide et svar :>
Avatar billede wilweb Nybegynder
10. april 2005 - 00:19 #11
Næ File.Name indeholder 'file1' altså navnet på form feltet og ikke værdien!
Avatar billede mikkelk Nybegynder
10. april 2005 - 20:28 #12
Det burde den nu ikke.
Du kan også prøve med
Upload.Files(1).Path eller Upload.Files(1).Name

Ellers prøv at kig i manualen: http://www.aspupload.com/Manual.htm
Avatar billede wilweb Nybegynder
09. maj 2005 - 17:54 #13
kan ikke få dit forslag til at virke!!
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester