AspUpload problem (fil saknas)

5 svar · 244 visningar · startad av corona 8 sep. 2004

coronaMedlem sedan feb. 200470 inlägg

Trådstart8 sep. 2004 08:45#1

Hej!

Har problem med min AspUpload kod. Får allt att fungera utom när själva fältet för bild/fil är tom dvs bild/fil saknas.
Har provat massa men det går inte. Undrar om någon kan tipsa mig hur jag ska göra.
Jag får inget felmeddelande utan koden körs fast bild/fil saknas.

Här är min kod:

<%	'on error resume next

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

actualName   = upload.Form("id")
Session("ID") = actualName

Set File  = upload.Form("thefile")

For Each File in Upload.Files

' **** Detta fungerar inte *****
If File Is Nothing Then
Response.Redirect "redigera_bild_fel.asp?Fil=Fel&ID=" & actualName
Exit For
End If 
' **************************

If File.ImageType <> "GIF" and File.ImageType <> "JPG" Then
Response.Redirect "redigera_bild_fel.asp?Bild=Typ&ID=" & actualName
Exit For
End If 

If File.ImageWidth > 200 Then
Response.Redirect "redigera_bild_fel.asp?Width=Stor&ID=" & actualName
Exit For
End If 

If File.ImageHeight > 300 Then
Response.Redirect "redigera_bild_fel.asp?Height=Stor&ID=" & actualName
Exit For
End If 

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

FileName = actualName & extension

File.SaveAs "c:\inetpub\wwwroot\PRODUKTER\bilder\" & actualName & File.ext
Next 

Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "SELECT * FROM Produkter WHERE ID = " & actualName
RecSet.Open Addera, DB, adOpenStatic, adLockOptimistic

RecSet("Bild") = FileName
RecSet.Update
Dim IDprodukt
IDprodukt = RecSet("ID")
RecSet.Close
Set RecSet = nothing
%>

/Annette

EclipseMedlem sedan juli 20003 825 inlägg

8 sep. 2004 10:04#2

on error resume next?

Du har avmarkerat det ovan...

Vad är det du vill, att det ska bli eller inte ska bli felmeddelande!?

EclipseMedlem sedan juli 20003 825 inlägg

8 sep. 2004 10:10#3

Använder ditt webbhotel aspSmartImage?

I så fall kan du automatiskt redigera bilden i koden om den är för bred eller för hög. Användaren behöver inte märka något.

Fördelen är mindre kåd att underhålla och ett mer användarvänligt system.

coronaMedlem sedan feb. 200470 inlägg

8 sep. 2004 12:17#4

Servern som jag kommer använda mig av har bara AspUpload installerad.
Även om jag aktiverar on error resume next så händer inget utan koden körs.
Fast om jag försöker ladda upp en större bild och om den är av annat felformat reagerar koden på detta.
Problemet är att den inte reagerar på om jag bara klickar på ladda upp dvs ej har med sökvägen till bilden i bildfältet i mitt formulär.
/Annette

@ndersMedlem sedan juni 200032 967 inlägg

8 sep. 2004 12:27#5

manulen skrev:

The Save method returns the number of files successfully uploaded.

Jag hade således provat något sånt härnt:

Set upload   = Server.CreateObject("Persits.Upload.1")
intCount = Upload.Save

if intCount = 0 then
    ' inga filer :(
    response.redirect "blah.asp"
end if

mvh

coronaMedlem sedan feb. 200470 inlägg

8 sep. 2004 13:16#6

Tack!!!!
Nu fungerar det!

/Annette