Simpel upload af flere billeder

Hvor kommer det første nummner fra?

Skal de 10 filer i samme række i databasen eller i hver sin?

de skal ind i samme række
felterne hedder
foto1
foto2
foto3
osv indtil
foto10

det første nummer hvad mener du??

For ikke at overskrive dem næste gang man uploader eller hedder de igen
foto1 --> foto10 ?

Men til at starte med skal formen laves om sådan der er 10 input felter for filer:

<form action="opret.asp" method="post" enctype="multipart/form-data" name="form1">
<input name="file1" type="file" size="21">
<input name="file2" type="file" size="21">
<input name="file3" type="file" size="21">
<input name="file4" type="file" size="21">
<input name="file5" type="file" size="21">
<input name="file6" type="file" size="21">
<input name="file7" type="file" size="21">
<input name="file8" type="file" size="21">
<input name="file9" type="file" size="21">
<input name="file10" type="file" size="21">
</form>

Så skal dette:

  sti = "/infratech/billeder/sager/"
  for each file in upload.Files
    If not file.IsMissing Then
      filnavn = sti & file.FileName
      file.saveas Server.MapPath(filnavn)
    else
      filnavn = ""
    end if
  next


Laves om til dette:

  sti = "/infratech/billeder/sager/"
  index = 1
  for each file in upload.Files
    If not file.IsMissing Then
      filnavn = sti & "foto" & index & "." & file.FileExt
      file.saveas Server.MapPath(filnavn)
      index = index + 1
    else
      filnavn = ""
    end if
  next

Det er en sag/rapport hvor man til hver rapport skal kunne uploade 10 billeder

Vil det du har skrevet nu overskrive tidligere billeder??

Ja det vil overskrive dem som er i folderen
/infratech/billeder/sager/

kan man så oprette en mappe i mappen sager til hver rapport?

Jo det kan man godt.
Hvor kommer navnet til mappen så fra?

kan man bruge rapportens id??

det er et autonummereringsfelt

Ja det kan man, hvilken database er det?
Skulle billederne ind i samme post ??

ja billederne skal ind i samme post/række i databasen
Det er access

jeg har lige afprøvet det du sagde jeg skulle rette, men den gemmer ikke nogen af stierne i databasen

Så skal det laves om til noget i stil med dette, stien skulle også komme med.:

<%
Set indlaeg = Server.CreateObject("ADODB.Recordset")

if Request.ServerVariables("REQUEST_METHOD") = "POST" then

  Set upload = Server.CreateObject("aspSmartUpload.SmartUpload")
  upload.Upload

  indlaeg.Open "SELECT * FROM tblsag", database,2 ,2
  indlaeg.AddNew
  indlaeg("foto1") = "xx"
  indlaeg.Update
  'Få ID på den nye post
  rapportid = indlaeg("id")

  sti = "/infratech/billeder/sager/" & rapportid & "/"
  index = 1
  for each file in upload.Files
    If not file.IsMissing Then
      filnavn = sti & "foto" & index & "." & file.FileExt
      file.saveas Server.MapPath(filnavn)
      indlaeg("foto" & index) = filnavn
      index = index + 1
    else
      filnavn = ""
    end if
  next

  Response.Redirect("default.asp")

  end if
%>

den giver fejl??
men kan det være fordi mappen ikke er der??

arh ja det nok rigtigt :)

Så prøv sådan her:

<%
Set indlaeg = Server.CreateObject("ADODB.Recordset")

if Request.ServerVariables("REQUEST_METHOD") = "POST" then

  Set upload = Server.CreateObject("aspSmartUpload.SmartUpload")
  upload.Upload

  indlaeg.Open "SELECT * FROM tblsag", database,2 ,2
  indlaeg.AddNew
  indlaeg("foto1") = "xx"
  indlaeg.Update
  'Få ID på den nye post
  rapportid = indlaeg("id")

  sti = "/infratech/billeder/sager/" & rapportid & "/"

  Set fs=Server.CreateObject("Scripting.FileSystemObject")
  If fs.FolderExists(Server.Mappath(sti)) = false Then
    fs.CreateFolder(Server.Mappath(sti))
  end if
  index = 1
  for each file in upload.Files
    If not file.IsMissing Then
      filnavn = sti & "foto" & index & "." & file.FileExt
      file.saveas Server.MapPath(filnavn)
      indlaeg("foto" & index) = filnavn
      index = index + 1
    else
      filnavn = ""
    end if
  next

  Response.Redirect("default.asp")

  end if
%>

nu tænker den i lang tid men der sker ikke rigtig andet end at den tænker??

hvad med
  indlaeg("foto1") = "xx"

skal der ikke være fra foto1 til 10 eller hvad??

der er stadig fejl det tog bare lidt tid

Prøv at sætte en response.write ind efter stien er lavet:

sti = "/infratech/billeder/sager/" & rapportid & "/"
Response.Write sti
Response.End

og se hvad den skriver?

stadig fejl

men kan jeg sende filen til dig så du kan se på den??

jeg har ikke aspsmartupload..

hvad hedder din autonummer kolonne?

Hvis den ikke hedder ID så ret denne linje sådan den passer med navnet:

rapportid = indlaeg("id")

den hedder id

men
      indlaeg("foto" & index) = filnavn
skal vel også stå inde i
indlaeg.addnew
indlaeg.update
???

Nej det skulle ikke være nødvendigt.

Har du kolonnerne foto1, foto2, foto3 ..> foto10 ?

ja det virkede jo fint hvis jeg kun havde et billed

Siger den ikke hvor fejlen kommer og evt en fejl kode?

Jeg har nu rettet det til dette
og nu kan jeg uploade en sag hvis der ikke er noget billed, men hvis der er et billed er der fejl
<%
Set indlaeg = Server.CreateObject("ADODB.Recordset")

if Request.ServerVariables("REQUEST_METHOD") = "POST" then

  Set upload = Server.CreateObject("aspSmartUpload.SmartUpload")
  upload.Upload

  indlaeg.Open "SELECT * FROM tblsag", database,2 ,2

  sti = "/infratech/billeder/sager/"

  index = 1
  for each file in upload.Files
    If not file.IsMissing Then
      filnavn = sti & "foto" & index & "." & file.FileExt
      file.saveas Server.MapPath(filnavn)
      indlaeg("foto" & index) = filnavn
      index = index + 1
    else
      filnavn = ""
    end if
  next

  Response.Redirect("default.asp")

  end if
%>

så fejler den i denne linje:
indlaeg("foto" & index) = filnavn

Prøv at tilføje indlaeg.Addnew efter .open

indlaeg.Open "SELECT * FROM tblsag", database,2 ,2
indlaeg.AddNew

nej der står bare
http 500 internal server error

Du skulle gerne få en bedre fejl kode/beskrivelse ved at slå denne fra i IE:

funktioner -> internetindstillinger -> avanceret -> fjern kryds i "vis meddelelse om uskadelige http-fejl"

skal det så ikke stå længere ende
ved
indlaeg.addnew
indlaeg("foto1") = filnavn
indlaeg.update

Nej ikke hvis man skal hvade alle 10 filer ind i databasen

jeg er lige væk nogle timer.. :)

okay, skriv når du er her igen

kan det desuden være rigtigt at filerne ikke må være for store???

Dette virker på den måde at alle billeder bliver uploadet til mappen sager samtidig med at stierne gemmes i databasen

Men hvordan får jeg det lavet sådan at de gemmes i den "id"-folder vi snakkede om??
<%
Set indlaeg = Server.CreateObject("ADODB.Recordset")

if Request.ServerVariables("REQUEST_METHOD") = "POST" then

  Set upload = Server.CreateObject("aspSmartUpload.SmartUpload")
  upload.Upload

  indlaeg.Open "SELECT * FROM tblsag", database,2 ,2
 
  indlaeg.addnew

  sti = "/infratech/billeder/sager/"
  index = 1
  for each file in upload.Files
    If not file.IsMissing Then
      filnavn = sti & "foto" & index & "." & file.FileExt
      file.saveas Server.MapPath(filnavn)
      indlaeg("foto" & index) = filnavn
      index = index + 1
    else
      filnavn = ""
    end if
  next

  indlaeg.Update

  Response.Redirect("default.asp")

end if
%>

>>kan det desuden være rigtigt at filerne ikke må være for store???
Det mulligt der er max størrelse

Hvad så hvis du udvider:
  indlaeg.Open "SELECT * FROM tblsag", database,2 ,2
 
  indlaeg.addnew

til:
  indlaeg.Open "SELECT * FROM tblsag", database,2 ,2
 
  indlaeg.addnew
  indlaeg.Update
  id = indlaeg("id")
response.write id
response.End

Får du ikke et tal skrevet ud?

jeg fandt selv ud af det

men hvordan finder jeg ud af hvilken max størrelse der er

Prøver og kigger her:
http://www.aspsmart.com/aspSmartUpload/

Man kan styre max størrelse på en fil eller alle filer med disse to:
.TotalMaxFileSize
.MaxFileSize
men jeg syntes umiddelbart ikke der er en max størrelse opgivet.

okay men sådan kom koden til at se ud

Kan du så sige mig hvordan jeg sletter billederne igen??

den blev således

<%
Set indlaeg = Server.CreateObject("ADODB.Recordset")

if Request.ServerVariables("REQUEST_METHOD") = "POST" then

  Set upload = Server.CreateObject("aspSmartUpload.SmartUpload")
  upload.Upload

  indlaeg.Open "SELECT * FROM tblsag", database,2 ,2

  Sql1 = "Select * From tblsag order by id desc"
  Set Rs1 = database.Execute(Sql1)
  rapportid=rs1("id")+1
  indlaeg.addnew

  sti = "/infratech/billeder/sager/" & rapportid & "/"
  Set fs=Server.CreateObject("Scripting.FileSystemObject")
  If fs.FolderExists(Server.Mappath(sti)) = false Then
    fs.CreateFolder(Server.Mappath(sti))
  end if
  index = 1
  for each file in upload.Files
    If not file.IsMissing Then
      filnavn = sti & "foto" & index & "." & file.FileExt
      file.saveas Server.MapPath(filnavn)
      indlaeg("foto" & index) = filnavn
      index = index + 1
    else
      filnavn = ""
    end if
  next

  indlaeg.Update

  Response.Redirect("default.asp")

end if
%>

Du kan slette en fil med FileSystemObject:


<%
filnavn = "/infratech/billeder/sager/foto1.jpg"
Set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FileExists(Server.Mappath(filnavn)) then
  fs.DeleteFile(Server.Mappath(filnavn))
end if
set fs=nothing
%>

det skal jeg lige have hjælp til i morgen hvis det er okay med dig??

kan vi ellers ikke prøve at sætte en totalmaxfilesize på den jeg allerede har lavet

Ja man sætte max size ind før man kalder .Upload et eks:

  Set upload = Server.CreateObject("aspSmartUpload.SmartUpload")
  upload.TotalMaxFileSize = 1000000
  upload.MaxFileSize = 250000
  upload.Upload

okay men
vil du hjælpe mig med det andet i morgen

Ja vi kan kigge på det, men det bliver først i morgen aften.

det er kommet lidt problemer da jeg bliver nødt til at bruge noget ala
  rapportid=indlaeg("id")

men strængen er tom
Hvad kan vi gøre???

Hvis du er der så skriv lige eagleeye

Jeg fandt ud af det meste, nu mangler der kun en slettefunktion
Så hvis du er der eagleeye så skriv lige :-)

ja, hvornår skal filerne slettes?

der skal være en checkboks til hvert billed hvormed det slettes hvis denne checkboks chekes

Vælges de ud fra ID i databasen??

jeg fandt lige ud af at jeg først skal have lavet om i denne kode så den ikke overskriver tidligere uploade filer hvis man er inde og rette i sagen

  sti = "/infratech/billeder/sager/" & id & "/"
  Set fs=Server.CreateObject("Scripting.FileSystemObject")
  If fs.FolderExists(Server.Mappath(sti)) = false Then
    fs.CreateFolder(Server.Mappath(sti))
  end if
  index = 1
  for each file in upload.Files
    If not file.IsMissing Then
      filnavn = sti & "foto" & index & "." & file.FileExt
      file.saveas Server.MapPath(filnavn)
      indlaeg("foto" & index) = filnavn
      index = index + 1
    else
      indlaeg("foto" & index) = ""
      index = index + 1
    end if
  next

Kan du hjælpe med det

Slet filerne.
Hvis man vælger det ud fra et ID altså den folder som billederne ligger i.:

<%
id = Request.QuesryString("id")
sti = "/infratech/billeder/sager/" & id & "/"

sfil = Request.ServerVariables("SCRIPT_NAME")
set fs=Server.CreateObject("Scripting.FileSystemObject")

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
  filnavne = Request.Form("sletmig")
  arr = Split(filnavne,",")
  for i = lbound(arr) to ubound(arr)
    if fs.FileExists(Server.Mappath(sti & arr(i))) Then
      fs.DeleteFile (Server.Mappath(sti & arr(i)))
    end if
  next
end if

set f=fs.GetFolder(Server.Mappath(sti))
%>
<form action="<%=sfil%>?id=<%=id%>" method="post">
<% for each file in f.files %>
  <img src="<%=sti & file.name%>"><input type="checkbox" name="sletmig" value="<%=file.name%>"><br>
<% next %>
<input type="submit" name="Sletdem" value="Slet">
</form>
<%
set f=nothing
set fs=nothing
%>

jeg skal lige have ordnet det andet først så hvis du ville hjælpe med det først???

Så må dette :

  index = 1
  for each file in upload.Files
    If not file.IsMissing Then
      filnavn = sti & "foto" & index & "." & file.FileExt
      file.saveas Server.MapPath(filnavn)
      indlaeg("foto" & index) = filnavn
      index = index + 1

laves om til dette:

  index = 0
  for each file in upload.Files
    If not file.IsMissing Then
      do
        index=index+1
        filnavn = sti & "foto" & index & "." & file.FileExt
      loop while fs.FileExists(filnavn)
      file.saveas Server.MapPath(filnavn)
      indlaeg("foto" & index) = filnavn

det giver fejl

det er jo ikke ligemeget hvor hvert billed bliver gemt
filen fra file1 skal gemmes i foto1
filen fra file2 skal gemmes i foto2
Hvis du forstår

Det er derfor jeg har lavet lidt om i det vi kom frem til i går

kan jeg ikke lave en funktion for hvert billed i stedet for at skulle loope, det fungere jo ikke helt??

Husk også det er en side hvor man kan opdatere sagen

Så må du hendte et billed af gange:

for index = 1 to 10
  If Not Upload.Files("FILE"&index) Is Nothing Then
    Set file = Upload.Files("FILE"&index)
    filnavn = sti & "foto" & index & "." & file.FileExt
    file.saveas Server.MapPath(filnavn)
    indlaeg("foto" & index) = filnavn
  end if
next

ja det virker næsten men
hvis der ikke er valgt nogen filskal der ikke uploades noget til databasen eller mappen

kan du klare det??

er du der endnu???

jeg håber du kommer igen senere i dag og svarer på det sidste
PLEASE :-)

Hvis du vil have lidt point for hjælpen må du lægge et svar eagleeye

ok:)

Jeg takker mange gange