Avatar billede blaatand Nybegynder
02. august 2002 - 17:22 Der er 7 kommentarer og
1 løsning

Upload script gemmer ikke som den skal.... :(

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SaveToMemory ' Gem filer i hukommelsen

Path = "d:\home\uodandk\www"
Count = 0
For Each File in Upload.Files
  if (Right(File.Name, 3) <> "w3g") then
    File.SaveAs Path & "\" & File.Name
    Count = Count + 1
  end if
Next
Response.Write Count & " fil(er) modtaget."
%>




Problemet er simpelthen at filen bliver uploaded, men den gemmer ikke filen under det navn den har fra PCen med billedet...

det ligger på http://www.uo-dan.dk/test hvis nogen vil se fejlmeddelser osv...
Avatar billede eagleeye Praktikant
02. august 2002 - 17:26 #1
Prøv med File.ExtractFilename i sted for File.Name:


For Each File in Upload.Files
  if (Right(File.ExtractFilename, 3) <> "w3g") then
    File.SaveAs Path & "\" & File.ExtractFilename
    Count = Count + 1
  end if
Next
Avatar billede eagleeye Praktikant
02. august 2002 - 17:28 #2
Og hvis du vil sikre W3g også kommer igennem så kan du tilføje LCase omkring i if sætnigen:

  if (LCase(Right(File.ExtractFilename, 3)) <> "w3g") then
Avatar billede blaatand Nybegynder
02. august 2002 - 17:31 #3
http://www.uo-dan.dk/test/

den går ikke igennem.... den uploader slet ikke nogen fil efter den første ændring, eller den anden..
Avatar billede blaatand Nybegynder
02. august 2002 - 17:31 #4
koden ser nu ud som følger:


<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SaveToMemory ' Gem filer i hukommelsen

Path = "d:\home\uodandk\www\test"
Count = 0
For Each File in Upload.Files
  if (LCase(Right(File.ExtractFilename, 3)) <> "w3g") then
    File.SaveAs Path & "\" & File.ExtractFilename
    Count = Count + 1
  end if
Next
Response.Write Count & " fil(er) modtaget."
%>
Avatar billede eagleeye Praktikant
02. august 2002 - 17:57 #5
arh vil du uploade file men extention w3g ??? så skal der = og ikke <> i if sætningen:

  if (LCase(Right(File.ExtractFilename, 3)) = "w3g") then
Avatar billede blaatand Nybegynder
02. august 2002 - 18:00 #6
totalt kool der... at det virker altså :D

er du frisk på at tjene 200 points mere, og hjælpe mig med at lægge det ind på en database så man kan tilføje tekst til den?
Avatar billede eagleeye Praktikant
02. august 2002 - 18:10 #7
Det ville jeg utrolig meget gerne, men jeg er på vej ud af døren nu.

Se evt dette spm for hjælp : http://www.eksperten.dk/spm/241327



Form kunne være:

<form method="post" enctype="multipart/form-data" action="recive.asp">
  <input type=file name="virtual1"><br>
  <input type=text name="navnet"><br>
  <input type=submit value="upload!">
</form>


Database...

<% Din kode som gemmer filen: %>

<%
' Databaseforbindelse
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("db.mdb")
Conn.Open DSN

strSQL = "INSERT INTO tabel (navnet) VALUES ('" & upload.form("navnet") & "')"

' SQL sætning eksekveres
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>


--------
Det du skal være opmærksom på er at du skal bruge Upload.Form og ikke Request.Form for at hendte form input felter.
Avatar billede blaatand Nybegynder
02. august 2002 - 18:13 #8
Najs, jeg giver det et kig!

jeg poster her en gang hvis jeg ikke kan få det til at virke... :)

men mange tak for den hjælp du har givet mig :)
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