AspUpload version 2

Har du testat att skriva ut sökvägen? brukar hjälpa...

------------------
        )|(
       (o o)
-oo0-(_)-0oo-----
webeye.nu

det har jag väll gjort?

'file.SaveVirtual("/test")

'file.Save(Request.ServerVariables( "APPL_PHYSICAL_PATH" ) & "\\uploadbilder\\" & filnamn)

jag använde bara ' för att testa olika sätt, men inget fungerade, har tagit bort ' i min version :)

------------------
Micke & Annas Sajt
micke@micke-anna.nu

Vad jag menar med att skriva ut är att lägger till 'Response.write' för en sökväg så att du ser den som text i dokumentet när du kört sidan...

------------------
        )|(
       (o o)
-oo0-(_)-0oo-----
webeye.nu

vill du visa vad du menar?

------------------
Micke & Annas Sajt
micke@micke-anna.nu

Istället för:
file.Save(Request.ServerVariables( "APPL_PHYSICAL_PATH" ) & "\\uploadbilder\\" & filnamn)

så skriver du:
Response.write Request.ServerVariables( "APPL_PHYSICAL_PATH" ) & "\\uploadbilder\\" & filnamn

Nu kommer inte koden att fungera, men du kommer se vad som är fel, så att du kan åtgärda det... sedan ändrar du tillbaks till vad som blir rätt...

------------------
        )|(
       (o o)
-oo0-(_)-0oo-----
webeye.nu

har skrivit som du beskrev ovan, men jag fick inget fel mess...

det verkar som om koden "hoppar" över den raden...

/micke

------------------
Micke & Annas Sajt
micke@micke-anna.nu

... Och stod det inte nått annat på sidan när du körde den?

------------------
        )|(
       (o o)
-oo0-(_)-0oo-----
webeye.nu

Jag kanske inte hnänger med, men vad jag kan se så ska inget hända när den här koden körs.

Du har en if-sats....

If filtyp = "image/gif" or filtyp = "image/pjpeg" then

men filtyp är tomt, så det som ligger i if-satsen utförs aldrig.

Variabeln är tom, eftersom den tilldelas från en annan tom variabel, nämligen ContentType.

------------------
----------------------------
Gunnar Liljas - webbutvecklare
Leon Reklambyrå AB
Norrköping
ASP/VB/Perl/PHP/Tango

jo, det ser jag nu, men hur kollar man annars om en bild är gif eller jpg?

File.conenttype fungerar inte.

------------------
Micke & Annas Sajt
micke@micke-anna.nu

Du skapar file-objektet på fel sätt.

set file = Upload.Files("theFile")

ska det vara. File-objektet har dessutom en egenskap (property) som heter ImageType, som är bekväm att använda.

If File.ImageType <> "GIF" and File.ImageType <> "JPG" Then
Response.Write "Filen måste vara av typen JPEG eller GIF"
else
gör allt som ska göras......

Jag har själv aldrig använt ASPUpload, men jag tror att Files-collection-objektet finns tillgängligt även om man inte kör en Upload.Save.

[Redigerat av emission den 24 apr 2000]

hej,

jag har rättat till det felet, allt fungerar nu förutom "fil extension" alltså bilderna sparas som bild + senaste id + ext , men de sparas bara som bild10. (tex) den känner inte av om det är en jpg eller en gif...

har testat att bara lägga till .jpg efter där bilden kopieras, men det hjälper inte...

sökvägen + storlek sparas riktigt.

<%

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

Upload.Save("d:\\Inetpub\\wwwroot\\test\\uploadbilder")

Set File = Upload.Files(1)

filtyp = File.ImageType
filstorlek = File.Size
beskrivning = upload.Form("beskrivning") 

If filtyp = "GIF" or filtyp = "JPG" or filtyp = "gif" or filtyp = "jpg" Then

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=d:\\Inetpub\\wwwroot\\test\\data\\upload.mdb"

SQLStmt = "Insert into upload "
SQLStmt = SQLStmt  & " (beskrivning, storlek)"
SQLStmt = SQLStmt  & " Values('" & beskrivning & "', " & filstorlek & ")"
Connection.Execute(SQLStmt)
SET SQLStmt = Nothing

SQLStmt = "Select Max(Id) as senasteid from upload"
SET RS = Connection.Execute(SQLStmt)
senasteid = RS("senasteid")
RS.Close
SET SQLStmt = Nothing

If file.ImageType = "gif" Then
Extension = "gif"
elseif file.ImageType = "jpg" Then
Extension = "jpg"
elseif file.ImageType = "GIF" Then
Extension = "jpg"
elseif file.ImageType = "jpg" Then
Extension = "jpg"
End If

filnamn = "bild" & senasteid & "." & jpg

For Each File in Upload.Files
File.Copy "d:\\Inetpub\\wwwroot\\test\\uploadbilder\\bild" & senasteid & "." & jpg
File.Delete 
Next

SQLStmt = "Update upload "
SQLStmt = SQLStmt  & " SET Filnamn = '" & Filnamn & "'"
SQLStmt = SQLStmt  & " Where Id = " & senasteid
Connection.Execute(SQLStmt)
SET SQLStmt = Nothing

Connection.Close

End If

%>

------------------
Micke & Annas Sajt
micke@micke-anna.nu

senasteid & "." & jpg

borde vara

senasteid & ".jpg"

vilket du säkert är med på, men använd

extension="." & LCase(File.Imagetype)

och

senasteid & extension

i stället

------------------
----------------------------
Gunnar Liljas - webbutvecklare
Leon Reklambyrå AB
Norrköping
ASP/VB/Perl/PHP/Tango

tack så mycket för hjälpen, nu fungerar det äntligen...

men är det en fördel att lägga in hela bilden också i databasen? tar ju en himla mycket plats.

du kan titta in på http://www.micke-anna.nu/video/ så ser du sidan ni har hjälpt mig med.

------------------
Micke & Annas Sajt
micke@micke-anna.nu

Nä, det är helt onödigt att lägga in bilden i databasen också.

psst! topplistan stavas med två "p", och filmbolag är ett ord