Avatar billede dp2001 Juniormester
25. juni 2003 - 21:16 Der er 3 kommentarer og
1 løsning

Restriktioner ifb. med aspSmartUpload

Hvorfor virker nedenstående ikke? Når jeg uploader filtype <> ".jpg" eller filstørrelse > 102400 byte - så drøner det lige igennem med succes i stedet for at give mig en fejlbesked som forventet.

---------------------------------------------

<HTML>
<BODY BGCOLOR="white">

<%
  On Error Resume Next

'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
  mySmartUpload.Upload

'  Get variables
'  *********
  medie = mySmartUpload.Form("MyMedie")
  id = mySmartUpload.Form("MyId")
  fuldsti = mySmartUpload.Form("MyFuldsti")

'  Only allow jpg-files
'  ***************************
  mySmartUpload.AllowedFilesList = "jpg"

'  Only allow files smaller than 102400 bytes
'  *****************************************
  mySmartUpload.MaxFileSize = 102400

  if Err Then
  Response.Write("<b>Wrong selection : </b>" & Err.description)
  else

'  SaveAs
'  ****************************************************************************
  mySmartUpload.Files.Item(1).SaveAs (fuldsti)

'  Redirect til dd.asp
'  ************************************
  link = "dd.asp?m=" & medie & "&id=" & id
  response.redirect (link)


  end if
%>
</BODY>
</HTML>
Avatar billede eagleeye Praktikant
25. juni 2003 - 21:20 #1
Prøv at flytte alt det med størrelse og fil type op mellem disse to linjer:

  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

' Prøv med det her

  mySmartUpload.Upload
Avatar billede dp2001 Juniormester
25. juni 2003 - 21:24 #2
Virker!

,,,,,,,,,,,,, (takker)!
Avatar billede ellebaek Nybegynder
25. juni 2003 - 21:24 #3
<HTML>
<BODY BGCOLOR="white">

<%
  On Error Resume Next

'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Only allow jpg-files
'  ***************************
  mySmartUpload.AllowedFilesList = "jpg"

'  Only allow files smaller than 102400 bytes
'  *****************************************
  mySmartUpload.MaxFileSize = 102400


'  Upload
'  ******
  mySmartUpload.Upload

'  Get variables
'  *********
  medie = mySmartUpload.Form("MyMedie")
  id = mySmartUpload.Form("MyId")
  fuldsti = mySmartUpload.Form("MyFuldsti")


  if Err Then
  Response.Write("<b>Wrong selection : </b>" & Err.description)
  else

'  SaveAs
'  ****************************************************************************
  mySmartUpload.Files.Item(1).SaveAs (fuldsti)

'  Redirect til dd.asp
'  ************************************
  link = "dd.asp?m=" & medie & "&id=" & id
  response.redirect (link)


  end if
%>
</BODY>
</HTML>
Avatar billede ellebaek Nybegynder
25. juni 2003 - 21:24 #4
Øvs...

Ikke til når man er for langsom!
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