Avatar billede caroc Praktikant
29. juni 2003 - 13:22 Der er 11 kommentarer og
1 løsning

ASPsmartUpload problem

Jeg har vha. søgning her på siden fundet et stykke kode der ved hjælp af aspSmartUpload uploader et billede til en mappe og skriver til en database.
Men når jeg prøver at uploade en fil får jeg denne fejl:
Wrong selection : Size exceeded for this file : 'C:\Documents and Settings\Gozo\Skrivebord\sevel.jpg' (Error 1105)

prøv selv på: http://www.mount.dk/hbk2/www/admin/upload.asp


her kommer koden:

<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then

  On Error Resume Next
  '  Object creation
  Set upload = Server.CreateObject("aspSmartUpload.SmartUpload")
  'Max størrelse i bytes
  upload.MaxFileSize = 10000
 
  'Upload filerne til memory
  upload.Upload

  For each file In upload.Files
    If not file.IsMissing Then
      filnavn = "/hbk2/www/billeder/" & Session("brugerID") & "." & file.FileExt
      file.SaveAs filnavn
    end if
  next

  '  Trap errors
  If Err Then
    Response.Write("<b>Wrong selection : </b>" & Err.description)
  End If

  'Gem filnanvet i databasen
  if filnavn <> "" then
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("../../database/hbk.mdb")

    SQL = "INSERT INTO Billeder (brugerID, filnavn) VALUES (" & Session("brugerID") & ", '" & filnavn & "')"
    Conn.Execute(SQL)
    Conn.Close
    Set Conn = Nothing
  end if
   
%>
<center>
  <b><font face="Geneva, Arial, Helvetica, san-serif">Filen er nu uploaded og
  gemt </font></b>
</center>
<%
else
%>

<form method="post" action="" ENCTYPE="multipart/form-data">
<input type="file" name="fil1">
  <br>
  <input type="submit" name="Upload" value="Upload">
</form>

</body>
</html>
<% end if %>
Avatar billede caroc Praktikant
29. juni 2003 - 13:51 #1
hmm nu har jeg rettet fejlen..
men nu kommer der en ny fejl..
" Wrong selection : Type mismatch "

??? why ???
Avatar billede caroc Praktikant
29. juni 2003 - 13:53 #2
det ska måske siges det var en .jpg fil jeg prøvede på at uploade da jeg fik fejlen..
Avatar billede netro Nybegynder
29. juni 2003 - 17:17 #3
Må et billede ikke fylde mere end 10kb???
Avatar billede netro Nybegynder
29. juni 2003 - 17:21 #4
Bliver filerne uploadet til mappen, hvis de er på under 10kb?
Avatar billede caroc Praktikant
29. juni 2003 - 17:23 #5
jeg har ændret det med 10kb så det er ik længere problemet :)
prøv evt. selv på http://www.mount.dk/hbk2/www/admin/upload.asp
jeg ka i hvert fald ik uploade .jpg
Avatar billede netro Nybegynder
29. juni 2003 - 17:40 #6
Ja, den skriver Type mismatch, men bliver filerne placeret i mappen alligevel?
Avatar billede caroc Praktikant
29. juni 2003 - 17:54 #7
hmm tror jeg... hva hedder den mappe de skulle uploades til?
Avatar billede caroc Praktikant
29. juni 2003 - 17:54 #8
ups min fejl.. den hedder jo \billeder\ og nej den uploader ik .)
Avatar billede netro Nybegynder
29. juni 2003 - 18:20 #9
Prøv følgende:

If Request.ServerVariables("Request_Method") = "POST" Then

    On Error Resume Next
    Set MyUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
    MyUpload.MaxFileSize = 3000000
    MyUpload.AllowedFilesList = "jpg,jpeg,jpe,gif,png.bmp"

    MyUpload.Upload

    If Not MyUpload.files.item(1).IsMissing Then

        If Err.Number <> "0" Or Trim(MyUpload.files.item(1).TypeMIME) <> "image" Then
            Response.Write "Filen er ugyldig!"
        Else
            MyUpload.files.item(1).saveas "hbk2/www/billeder/" & Session("brugerID") & "." & MyUpload.files.item(1).FileExt

            'Gem i database

        End If
    End If

    Set MyUpload = Nothing
End If
Avatar billede caroc Praktikant
29. juni 2003 - 18:26 #10
hmm har jeg sat det rigtigt ind?? for det virker i hvert fald ik:

<%
If Request.ServerVariables("Request_Method") = "POST" Then

    On Error Resume Next
    Set MyUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
    MyUpload.MaxFileSize = 3000000
    MyUpload.AllowedFilesList = "jpg,jpeg,jpe,gif,png.bmp"

    MyUpload.Upload

    If Not MyUpload.files.item(1).IsMissing Then

        If Err.Number <> "0" Or Trim(MyUpload.files.item(1).TypeMIME) <> "image" Then
            Response.Write "Filen er ugyldig!"
        Else
            MyUpload.files.item(1).saveas "hbk2/www/billeder/" & Session("brugerID") & "." & MyUpload.files.item(1).FileExt

            'Gem i database

        End If
    End If

    Set MyUpload = Nothing
End If
  next

  '  Trap errors
  If Err Then
    Response.Write("<b>Wrong selection : </b>" & Err.description)
  End If

  'Gem filnanvet i databasen
  if filnavn <> "" then
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("../../database/hbk.mdb")

    SQL = "INSERT INTO Billeder (brugerID, filnavn) VALUES (" & Session("brugerID") & ", '" & filnavn & "')"
    Conn.Execute(SQL)
    Conn.Close
    Set Conn = Nothing
  end if
   
%>
<center>
  <b><font face="Geneva, Arial, Helvetica, san-serif">Filen er nu uploaded og
  gemt </font></b>
</center>
<%
else
%>

<form method="post" action="" ENCTYPE="multipart/form-data">
<input type="file" name="fil1">
  <br>
  <input type="submit" name="Upload" value="Upload">
</form>

</body>
</html>
<% end if %>
Avatar billede netro Nybegynder
29. juni 2003 - 18:40 #11
Nej! Men prøv dette:

*******************************************************

<%
If Request.ServerVariables("Request_Method") = "POST" Then

    On Error Resume Next
    Set MyUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
    MyUpload.MaxFileSize = 3000000
    MyUpload.AllowedFilesList = "jpg,jpeg,jpe,gif,png.bmp"

    MyUpload.Upload

    If Not MyUpload.files.item(1).IsMissing Then

        If Err.Number <> "0" Or Trim(MyUpload.files.item(1).TypeMIME) <> "image" Then
            Response.Write "Filen er ugyldig!"
        Else
            Filnavn = "hbk2/www/billeder/" & Session("brugerID") & "." & MyUpload.files.item(1).FileExt
            MyUpload.files.item(1).saveas Filnavn

            'Gem filnanvet i databasen
            Set Conn = Server.CreateObject("ADODB.Connection")
            Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("../../database/hbk.mdb")

            SQL = "INSERT INTO Billeder (brugerID, filnavn) VALUES (" & Session("brugerID") & ", '" & Filnavn & "')"
            Conn.Execute(SQL)
            Conn.Close
            Set Conn = Nothing

        End If
    End If

    Set MyUpload = Nothing

Else %>

    <form method="post" action="" ENCTYPE="multipart/form-data">
    <input type="file" name="fil1">
    <br>
    <input type="submit" name="Upload" value="Upload">
    </form>

    </body>
    </html>

<% End If %>
Avatar billede netro Nybegynder
29. juni 2003 - 18:42 #12
Der er lige et punktum mellem png og bmp i 7. linie. Det skal være et komma.
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