Split en sti+filnavn

jeg tvivler meget på at du kan hive klientens fulde sti ud på den måde - og så er det også meget mere simpelt end som så;

Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
mySmartUpload.files.item("formfeltnavn").SaveAs "billednavn.gif"
Set mySmartUpload = Nothing

Uploader den kode bare ikke billedet og overskriver evt. eksisterende billedenavn?

Jeg vil netop undgå at den overskriver eksisterende filer med samme filnavn, men tilgengæld smider folk tilbage til upload siden med en "filnavn eksisterer allerede" besked.

Jeg vil foreslå at lave en funktion der giver alle billeder et unikt filnavn når de bliver uploadet.
Så behøves du ikke at kontrollere filnavne fremover.

Ikke en optimal løsning, da billederne skal bruges til en shop og dermed gerne skulle kunne findes hurtigt igen.

Men kan man ikke på en måde detecte hvor det sidste \ tegn er...og så lave en punktum split på alt indhold efter det tegn?

ser vist ud til at man alligevel kan få den fulde sti; FilePathName

anyway - nu ved jeg ikke præcis hvad du vil frem til men det lyder lidt smartere at angive unikke filnavne. Hvis der endelig er en grund til det kan du bruge .FileName til at få filnavnet ud og så vha FSO checke op på om filen eksisterer i forvejen.

Det kan godt være at det er mig der ikke forstår AspSmartUpload...men hvis jeg laver nedenstående, så viderestiller den IKKE:

  strTargetPath = Server.MapPath("/Upload")
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
   
 
  For each file In mySmartUpload.Files
      response.redirect "test.asp?file=" & file.FileName
  Next
 
  mySmartUpload.Upload
  str = mySmartUpload.Save(strTargetPath)

Det du er ude i virker heller ikke hverken særlig logisk eller hensigsmæssigt - hvis nu der er to filer vil du kun kunne viderestille 1 gang så et loop virker underligt at have. Endelig lukker du ikke for det du har initialiseret hvilket er spild af ressourcer.

dublet = false
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
If MySmartUpLoad.Files.Item("teaserbillede").FileName <> "" then
  'start loop med FSO
    If LCase(MySmartUpLoad.Files.Item("formfeltnavn").FileExt) = LCase(filnavn fra fso) Then
      dublet = true
    End If
  'loop
  If dublet = false Then
    mySmartUpload.files.item("formfeltnavn").SaveAs "billednavn.gif"
  End If
End If
Set mySmartUpload = Nothing

If dublet = true Then
  'redirect
End If



... eller deromkring

Nedenstående virker faktisk:

  strTargetPath = Server.MapPath("/Upload")
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

  mySmartUpload.Upload

    For each file In mySmartUpload.Files
    SQL = "SELECT * FROM produkter WHERE VareFilNavn = '" & file.FileName & "'"
    set rs1 = conn.execute(SQL)
    if not rs1.eof then
      response.redirect "test.asp?file=" & file.FileName
    end if
    set rs1 = nothing

  Next
 
  Set mySmartUpload = Nothing
  str = mySmartUpload.Save(strTargetPath)

Hov..de nederste 2 linjer skal selvfølgelig byttes om.  Og der KAN kun uploades 1 fil i formularen.

troede ikke du gemte filnavn i basen - for når du gør det ville det ellers være let at omdøbe.

I ovenstående skal du huske på, at hvis brugeren redirectes nulstiller du hverken dit recordset eller aspsmartupload.

Så vidt jeg kan se, nulstiller jeg da recordsettet. Men korrekt...smartupload skal også nulstilles.

Ja, valgte at gemme filnavnet i basen, da jeg indså at det også kunne bruges til andet på sitet.  Men det virker nu.  Du får lidt points for dine gode forslag og de informerende indlæg. :)

du nulstiller først efter du redirecter - altså når den slet ikke til den linie der nulstiller.