Avatar billede medievil Nybegynder
27. maj 2003 - 13:41 Der er 11 kommentarer og
2 løsninger

Upload kun JPG

Hej !

Jeg har 3 problemer:

1. Der er en fejl i scriptet når den tjekker om billedet ikke er JPG !
2. Den skal skrive hvis filen er over 150000
3. Filen skal gemme som session("brugernavn")

Scriptet:

<% if mode = "gem" then %>
<font size="1" face="Tahoma" color="#000000">
<%
    error = "no"
    Set Upload = Server.CreateObject("Persits.Upload.1")
    Upload.SetMaxSize 150000


If File.ImageType <> "JPG" Then
  Response.Write "GIF or JPG files only please!"
  error = "yes"
End If

Set File = Upload.Files("FILE1")
If File Is Nothing Then
  Response.Write "Der er ikke valgt en fil."
  error = "yes"
Else
  Response.Write "<b>Filen</b> er gemt"
End If

If error <> "yes" then
  Upload.SaveVirtual("/usersystem/profilimg")
end if
%>
</font>
<% end if %>

tak !
Avatar billede dna Nybegynder
27. maj 2003 - 14:41 #1
IF ucase(file.ext) <> "JPG" OR ucase(file.ext) <> "GIF" THEN
  Response.write "GIF OR JPG ONLY"
END IF
Avatar billede medievil Nybegynder
27. maj 2003 - 14:48 #2
Jeg får denne fejl:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/usersystem/Uploadbillede.asp, line 51
Avatar billede spile Nybegynder
27. maj 2003 - 15:56 #3
AllowedFilesList = "JPG,JPEG,jpg,jpeg"
Avatar billede medievil Nybegynder
27. maj 2003 - 16:11 #4
Tak, men hver gang jeg uploader nu så skriver den: Der er ikke valgt en fil!

Fra koden:

If File Is Nothing Then
  Response.Write "Der er ikke valgt en fil."
  error = "yes"
Else
Avatar billede medievil Nybegynder
27. maj 2003 - 16:51 #5
Sådan her ser det ud nu:
<%
    Set Upload = Server.CreateObject("Persits.Upload.1")
    Upload.SetMaxSize 150000
    AllowedFilesList = "JPG,JPEG,jpg,jpeg"

    Response.Write "<b>Filen</b> er gemt"
    Upload.SaveVirtual("/usersystem/profilimg")
%>

Men man kan uploade alle filer ???
Avatar billede goose Nybegynder
27. maj 2003 - 17:35 #6
Prøv følgende:

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SetMaxSize 150000
Upload.SaveVirtual("/usersystem/profilimg")
If File.ImageType <> "JPG" Then
file.delete
response.redirect "fejlside.asp"
else
Response.Write "<b>Filen</b> er gemt"
%>

/Goose
Avatar billede goose Nybegynder
27. maj 2003 - 18:12 #7
ups, mangler lige en end if til sidst:

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SetMaxSize 150000
Upload.SaveVirtual("/usersystem/profilimg")
If File.ImageType <> "JPG" Then
file.delete
response.redirect "fejlside.asp"
else
Response.Write "<b>Filen</b> er gemt"
end if
%>

/Goose
Avatar billede medievil Nybegynder
28. maj 2003 - 13:44 #8
Næsten rigtigt den skulle se sådan her ud:

<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SetMaxSize 150000
Upload.SaveVirtual("/usersystem/profilimg")
Set File = Upload.Files("FILE1")
If File.ImageType <> "JPG" Then
file.delete
response.redirect "fejlside.asp"
else
Response.Write "<b>Filen</b> er gemt"
end if
%>
Avatar billede medievil Nybegynder
28. maj 2003 - 13:46 #9
Men kan man ikke gøre så den går til fejlside.asp hvis filen er for stor også????
Avatar billede nozio Nybegynder
28. maj 2003 - 13:55 #10
Set Upload = Server.CreateObject("Persits.Upload.1")

' size value for how large of a file you will allow to be uploaded.
Upload.SetMaxSize 500000 , true
On Error resume next

Count = Upload.Save ( Server.MapPath("images") )

errMessage = "your upload was bigger than 500000K"

IF Err.Number = 8 then  'error 8 is when its over the size you want.

Response.Redirect "Form.asp" & REDIRID & "&Error=" & errMessage
Response.End
Else
Avatar billede medievil Nybegynder
28. maj 2003 - 13:57 #11
kigger lige på det !
Avatar billede medievil Nybegynder
28. maj 2003 - 14:04 #12
Nice ! Den skulle lige tilpasses men nu virker det !

Til jer der leder efter det samme her er scriptet:
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SetMaxSize 100000 , true
On Error resume next

Upload.SaveVirtual("/usersystem/profilimg")

IF Err.Number = 8 then
response.redirect "uploadbillede.asp?error=Din fil fylder mere end 100 kb. !"
end if

'// tjekker om filen er JPG
Set File = Upload.Files("FILE1")
If File.ImageType <> "JPG" or File.ImageType <> "JPEG" Then
file.delete
response.redirect "uploadbillede.asp?error=Din fil type er ikke .jpg eller jpeg !"
else
Response.Write "<b>Filen</b> er gemt"
end if
%>
Avatar billede medievil Nybegynder
28. maj 2003 - 14:06 #13
I deler points, fordi i har begge løst et problem for mig !

Jeg vil oprette et nyt spørgsmål til det sidste hvordan man gemmer filen som session("brugernavn")
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