Avatar billede vagn16 Nybegynder
04. april 2002 - 17:14 Der er 3 kommentarer og
1 løsning

ASPupload m. begrænsninger!

Hej!

Jeg har fundet fgl. på aspupload.com:

<%

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.Save "d:\home\tlnetdk\www\upload"

For Each File in Upload.Files

If File.ImageType <> "GIF" and File.ImageType <> "JPG" Then
  Response.Write "GIF or JPG files only please!"
  Exit For
End If

If File.ImageWidth > 150 Then
  Response.Write "Image width cannot exceed 150 pixels."
  Exit For
End If

If File.ImageHeight > 200 Then
  Response.Write "Image height cannot exceed 200 pixels."
  Exit For
End If

Next

%>

Den uploader fint nok og den giver også rigtige fejlmeddelelser men: den uploader selvom der er en fejl - og det er jo noget lort!

Som jeg ser det så uploader den jo filen inden den tjekker... har prøvet at rykke rundt på det - men så virker det ikke!

Nogen ideer ???

På forhånd tak!!

vagn / 16
Avatar billede gryn Nybegynder
04. april 2002 - 18:34 #1
Man kunne skrive:

If File.ImageHeight > 200 Then
  Response.redirect("fejlside.asp")
  Exit For

Men der findes jok også en nemmere løsning
Avatar billede gryn Nybegynder
04. april 2002 - 18:36 #2
Du kan også prøve med

<%
dim fejl
Set Upload = Server.CreateObject("Persits.Upload.1")

For Each File in Upload.Files

If File.ImageType <> "GIF" and File.ImageType <> "JPG" Then
  Response.Write "GIF or JPG files only please!"
fejl = 1
  Exit For
End If

If File.ImageWidth > 150 Then
  Response.Write "Image width cannot exceed 150 pixels."
fejl = 1
  Exit For
End If

If File.ImageHeight > 200 Then
  Response.Write "Image height cannot exceed 200 pixels."
fejl = 1
  Exit For
End If

Next

If fejl = 0
Upload.Save "d:hometlnetdkwwwupload"
end if
%>
Avatar billede online-help.dk Nybegynder
04. april 2002 - 19:51 #3
lytter med...
Avatar billede gryn Nybegynder
05. april 2002 - 15:02 #4
Hovsa... Jeg mente:

<%
dim fejl
fejl = 0
Set Upload = Server.CreateObject("Persits.Upload.1")

For Each File in Upload.Files

If File.ImageType <> "GIF" and File.ImageType <> "JPG" Then
  Response.Write "GIF or JPG files only please!"
fejl = 1
  Exit For
End If

If File.ImageWidth > 150 Then
  Response.Write "Image width cannot exceed 150 pixels."
fejl = 1
  Exit For
End If

If File.ImageHeight > 200 Then
  Response.Write "Image height cannot exceed 200 pixels."
fejl = 1
  Exit For
End If

Next

If fejl = 0
Upload.Save "d:hometlnetdkwwwupload"
end if
%>
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