Søg
Avatar billede zildjian Nybegynder
18. september 2003 - 19:44 Der er 12 kommentarer og
1 løsning

ASP Upload X 4 og filnavn

Hej...
Jeg skal lige bruge en kode, der kan loade følgende felter op fra en form:

Billede1
Billede2
Billede3
Billede4

Jeg skal selv kunne angive et filnavn, f.eks now() eller lign, for at sikre at der ikke kommer 2 filer med samme navn...

På forhånd tak
Avatar billede zildjian Nybegynder
18. september 2003 - 19:52 #1
jeg har forresten både asp upload og asp smart upload
Avatar billede eagleeye Praktikant
18. september 2003 - 20:14 #2
Du kan sætte Now ind i nanvet, dog skal : og / laves om til tom da de ikke er tilalde tegn i navnet:

datoTid = Replace(now(),"/","")
datoTid = Replace(datoTid,"-","")
datoTid = Replace(datoTid,":","")


filnavn1 = datoTid & billede1.name
filnavn2 = datoTid & billede2.name
osv..

er det sådan noget du tænker på?
Avatar billede zildjian Nybegynder
18. september 2003 - 20:15 #3
ja, præcist! kan du komme med et komplet eksempel? har aldrig arbejdet med uploads før :)
Avatar billede eagleeye Praktikant
18. september 2003 - 20:23 #4
Nu skriver du, du både har ASPupload og ASPsmartupload hvilen vil du bruger, det meste af koden vil være ens..:

Set upload = Server.CreateObject("Persits.Upload")
'Gem i memory
Upload.Save

Set filnavn1 = Upload.Files(1)
Set filnavn2 = Upload.Files(2)
Set filnavn3 = Upload.Files(3)
Set filnavn4 = Upload.Files(4)

datoTid = Replace(now(),"/","")
datoTid = Replace(datoTid,"-","")
datoTid = Replace(datoTid,":","")

if isNull(filnavn1) = false OR isEmpty(filnavn1) = false then
  filnavn1.SaveAs Server.MapPath("/images/" & datoTid & filnavn1.Filename)
end if
if isNull(filnavn2) = false OR isEmpty(filnavn2) = false then
  filnavn2.SaveAs Server.MapPath("/images/" & datoTid & filnavn2.Filename)
end if
if isNull(filnavn3) = false OR isEmpty(filnavn3) = false then
  filnavn3.SaveAs Server.MapPath("/images/" & datoTid & filnavn3.Filename)
end if
if isNull(filnavn4) = false OR isEmpty(filnavn4) = false then
  filnavn4.SaveAs Server.MapPath("/images/" & datoTid & filnavn4.Filename)
end if



----

Hvis du ikke skal bruge filnanve til at gemme i en databasen kan du lave et loop og gemme filerne:

Set upload = Server.CreateObject("Persits.Upload")
'Gem i memory
Upload.Save

datoTid = Replace(now(),"/","")
datoTid = Replace(datoTid,"-","")
datoTid = Replace(datoTid,":","")

for each file in Upload.Files
  file.SaveAs Server.MapPath("/images/" & datoTid & file.Filename)
next
Avatar billede zildjian Nybegynder
18. september 2003 - 20:30 #5
Persits.Upload.1 error '800a003d'

Wrong Content-Type. Make sure you have included the attribute ENCTYPE="multipart/form-data" in your form.

added_car.asp, line 6

på linie 6 er
Upload.Save

kanon fedt du gider at hjælpe!
Avatar billede eagleeye Praktikant
18. september 2003 - 20:42 #6
Du skal havde lavet en form hvor man kan vælge de 4 billeder og et eksemple på en simpel form. Man skal huske at bruge ENCTYPE="multipart/form-data" i <form> tagen for at den kan uploade filerne rigtigt.

<HTML>
<BODY BGCOLOR="#FFFFFF">
  <FORM METHOD="POST" ENCTYPE="multipart/form-data" ACTION="UploadScript1.asp">
      <INPUT TYPE="FILE" SIZE="40" NAME="FILE1"><BR>
      <INPUT TYPE="FILE" SIZE="40" NAME="FILE2"><BR>
      <INPUT TYPE="FILE" SIZE="40" NAME="FILE3"><BR>
      <INPUT TYPE="FILE" SIZE="40" NAME="FILE4"><BR>
  <INPUT TYPE=SUBMIT VALUE="Upload!">
  </FORM>
</BODY>
</HTML>
Avatar billede zildjian Nybegynder
18. september 2003 - 20:49 #7
Jaja, selvfølgelig havde jeg en form, men ikke lige tilføjet det der... FEDT! så kører det!! mange tak for hjælpen
Avatar billede zildjian Nybegynder
18. september 2003 - 20:49 #8
smider du lige svar
Avatar billede eagleeye Praktikant
18. september 2003 - 20:51 #9
Ja det gør jeg da ;)
Du kender sikkert siden, men her online manualen til ASPupload:
http://www.aspupload.com/manual.html
Avatar billede zildjian Nybegynder
18. september 2003 - 20:55 #10
Jeg har prøvet at kigge på det, men fik knap så meget ud af det :)
Men det gjorde jeg af din hjælp, mange tak!
Avatar billede zildjian Nybegynder
18. september 2003 - 21:27 #11
Ka jeg lige få dig til at svare på et til spg?
Det er nemlig sådan, at hvis jeg bruger variables, sessions, eller trækker noget fra request.form, så melder koden fejl? har du en ide til hvordan jeg lige får gemt datane, fra formen videre så jeg også kan skrive det til databasen??
Avatar billede eagleeye Praktikant
18. september 2003 - 21:31 #12
Det glemte jeg måske at skrive ;)

HVis du har andre form felter så skal du rette Request.Form("xxx") til navnet på upload komponentern i det før vist eksempler er navnet upload så alle request.Form("xxx") skal rettes til (hvor xxx er navnet på input feltet ;)):

upload.Form("xxx")
Avatar billede zildjian Nybegynder
18. september 2003 - 21:46 #13
Fedt, mange tak, hehe :)
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 11:47 VB script Af Jenshentze i Word
I dag 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel
04/0913:47 Dette er ikke en kommerciel session i Windows 11 Af eksmojo i Windows
White papers
Flere white papers »