AspUpload, Kan ikke lave filnavn om ?

Billedet skal vel ha et unikt navn ikk? :-)

Jo men det har jeg en metode til.. Før i tiden brugte jeg upload uden komponent, men nu hvor jeg har fået webhotel med Komponenter, vil jeg bruge dem i stedet :-) ..

Jeg skal bare vide hvordan jeg bestemmer dens filnavn ?

Jeg bruger ASP image - det er jo næsten det samme. Understøtter dit webhotel også det? For så har jeg en super nem metode liggende.

Ja det understøtter også AspImage..

Det er web10 :)

Ok - kender ikke web10 - men prøv med dette. Fandt ud af du ikke behøvede ASP Image alligevel :-)

<%
Server.ScriptTimeout = 3600

Set Upload = Server.CreateObject("Persits.Upload")

' Gemmer i hukommelsen
Count = Upload.Save

Set File = Upload.Files("file1")

strType = LCase(File1.ImageType)
strName = Split(File1.Filename,".")

File.SaveAs Server.Mappath("/datamappen") & "\" & strName & strType
%>

<form method="post" enctype="multipart/form-data" action="UploadScript.asp">

<input type="file" name="file1" size="45">

<input type="submit" name="submit" value="Upload">

</form>

Så får jeg fejlen:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/Opretscooter4.asp, line 203

--------------------------------

Line 203: strType = LCase(File1.ImageType)

Når okay.. 2sek

Nej får stadig samme fejl.

<%
Server.ScriptTimeout = 3600

Set Upload = Server.CreateObject("Persits.Upload")

' Gemmer i hukommelsen
Count = Upload.Save

Set File = Upload.Files("file1")

strType = LCase(File.ImageType)
strName = Split(File.Filename,".")

File.SaveAs Server.Mappath("/datamappen") & "\" & strName & strType
%>

Nej får samme fejl igen.. Men fandt en anden løsning:

-----------------
Set Upload = Server.CreateObject("Persits.Upload")

' Prevent overwriting
Upload.OverwriteFiles = False

' Save to disk
Upload.Save Server.Mappath("../Sti/...")

' Use session ID as the new file name
NewName = Session.SessionID

For Each File in Upload.Files
  File.Copy Server.Mappath("../sti/") & "/" & NewName & File.ext
  File.Delete
  Response.Write "New name: " & NewName & File.ext & "<BR>"
Next

-------------------------

Men tak for hjælpsomheden Madeindk.. hvis du lægger et svar så deler vi points :-)

Ok - her er mit svar så :-)

Svar..

Dette er den "rigtige" kode til det:

Set Upload = Server.CreateObject("Persits.Upload")
'Save UDEN sti, så filerne bliver gemt i serverens hukomelse.
Upload.Save
Path = Server.Mappath("/uploadMappe")
For Each File in Upload.Files
  'Gem filen på disk.
  File.SaveAs Path & "\" & NewName & File.Ext
Next

Sådan kan man også gøre det :-)

Den anden fungerer bare fint hos mig.