Meddelande

Minska
No announcement yet.

Uploadscript utan komponent 2

Minska
X
 
  • Filter
  • Klockan
  • Show
Clear All
new posts

  • Uploadscript utan komponent 2

    En förbättrad ASP-klass, som bygger på det första uploadscriptet jag slängde upp, ligger nu under script-arkivet.

    Frågor eller förslag om denna klass postas i denna tråd.

    Håll till godo!

    /override

    RED. Länken var ju fel! Nu är den rätt iaf.
    Last edited by OveRRidE; 2003-09-07, 16:23.
    http://truemaybefalse.blogspot.com - Med en debugger i högsta hugg

  • #2
    Fint som attan Undrar bara hur jag får fram det riktiga filnamnet, har inget kollat igenom det riktigt till 100% än men just nu bli filnamnet MyFileName.*

    Mvh

    Kommentera


    • #3
      Du får sätta propertyn NewFileName till det du vill döpa din fil till, innan den laddas upp. MyFileName är standardinställning.

      [kod]
      With objUpload
      .InputFormName = "UploadFile"
      .UploadPath = "myFolder/"
      .NewFileName = "dittFilNamn"
      .UploadFile

      strFullPath = .UploadedFilePath
      End With
      [/kod]
      Vill du ha ett slumpat namn, finns det en funktion för detta också, titta i exempelfilen bara, där är en rad som är bortkommenterad.
      http://truemaybefalse.blogspot.com - Med en debugger i högsta hugg

      Kommentera


      • #4
        Jo såg det men gör "dittFilNamn" så att det riktiga filnamnet kommer?

        Menar, om jag laddar upp en fil som heter "kalleanka.gif" så vill jag att den ska heta kalleanka.gif och inte MyFileName.gif..

        Hoppas du förstår vad jag menar!

        Mvh

        Kommentera


        • #5
          "dittFilNamn" är bara en variabel som innehåller värdet från "objUpload.NewFileName"
          /SteveP

          Kommentera


          • #6
            Aha! det var så han menade Tack!

            Kommentera


            • #7
              PatrikB upd_overrupload_v1.5.zip

              [kod]
              HeJ!
              Jag provade PatrikB upd_overrupload_v1.5.zip men det funkar inte får fel
              meddelande.
              Microsoft VBScript runtime (0x800A004C)
              Path not found
              /upp/upload/classes/clsupload.asp, line 261

              Och clsupload.asp line 261 är:
              Set objFile = objFSO.CreateTextFile(sFilePath, bOverwrite)
              / Ivar
              [/kod]
              Ivar

              Kommentera


              • #8
                Hur ser sökvägen ut som du skickar in som argument?
                skriv ut den före INNAN du anropar metoden SaveToFile

                Har precis laddat upp en ny variant med en liten bugg-fix.
                Det visade sig att om man inte fyllde i alla file-fields så "flippa det ur". Kanske är det det som spökar hos dig.
                Skicka gärna med lite kod så blir det också lättare att hjälpa dig.

                Ny variant finns att hämta här (version 1.5.1): http://www.webforum.nu/showthread.ph...58&forumid=148

                Laddade precis upp den och hoppas att den snart blir godkännd av voigtann1

                cya,
                /PatrikB

                Kommentera


                • #9
                  [kod]
                  Hej PatrikB !
                  Jag fick det att fungera men då var jag tvungen att ändra <!--#INCLUDE VIRTUAL="clsupload.asp"--> till <!--#INCLUDE file="clsupload.asp"-->
                  Alltså jag plockade bort filen clsupload.asp från mappen classes
                  / ivar
                  [/kod]
                  Ivar

                  Kommentera


                  • #10
                    fast jag tycker nog att man ska samla alla sina class-filer på ett och samma ställe, tex i mappen classes.
                    inkluden ska sedan se ut så här:

                    [kod]<!--#INCLUDE VIRTUAL="/classes/clsUpload.asp"-->[/kod]

                    cya,
                    /PatrikB

                    Kommentera


                    • #11
                      Du laddade väl ner uppdateringen av classen?

                      Om inte, gör det

                      cya,
                      /PatrikB

                      Kommentera


                      • #12
                        Tack PatrikB det funkar bra men om man ska spara uppladdade filer i databasen var ska jag lägga till koden?
                        / Ivar
                        Ivar

                        Kommentera


                        • #13
                          Nackdelen med att inkludera med Virtual är väl onekligen att den utgår från roten!?!
                          /solbulle
                          Hemmabio | Spelautomater | The Who

                          Kommentera


                          • #14
                            Ivar:
                            Vilken kod? Vad ska du spara i databasen?

                            Solbulle:
                            Nackdel? Varför är det en nackdel med virtual?

                            Själv ser jag bara det som en fördel. Skulle man behöva "strukturera" om en site så slipper du gå och ändra i en massa filer där include file används. Ett annat sätt är att du slipper "hålla reda på" hur många steg upp i hierarkin du behöver gå. Från root vet man ju vart allt ligger

                            Just my €0.02

                            cya,
                            /PatrikB

                            Kommentera


                            • #15
                              [kod]
                              PatrikB:
                              Ja jag vill spara länken till uppladdade filer i databasen har försökt med den här koden men funkar ej.

                              set connect = server.createobject("ADODB.connection")
                              Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/annonser.mdb") & ";pwd=;"
                              Set RecSet= Server.CreateObject("ADODB.Recordset")
                              SQL= "INSERT INTO items (item,fileName,filename1) VALUES('" & strName & "','" & thefile& "','"&anotherFile&"')"
                              connect.Execute(SQL)
                              connect.close
                              Set RecSet= Nothing
                              / Ivar
                              [/kod]
                              Ivar

                              Kommentera

                              Working...
                              X