Avatar billede andersasp Nybegynder
03. oktober 2006 - 15:06 Der er 3 kommentarer og
1 løsning

Upload af flere filer

Hejsa eksperter,

Jeg skal have uploadet nogle billeder via aspupload, hvor de så samtidig bliver gemt i min database. Jeg er dog lidt blank her, da jeg altid kun har uploadet et billede af gangen..

Håber der er nogle der kan hjælpe

Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open MM_frisornetdata_STRING

Tnogle = Upload.form("Tnogle")

    Set Upload = Server.CreateObject("Persits.Upload.1")
    Upload.ProgressID = Request.QueryString("PID")
    Count = Upload.SaveToMemory

    if count <> 0 then
       
        usename    = Day(now) & Month(Now) & Year(Now) & Hour(Now) & Minute(Now) & Second(now)
       
        Upload.OverwriteFiles = true

        Set File = Upload.Files("file1")
        If File is nothing then
        response.Redirect("index8.asp?error=2")
        end if
       
        If not File is nothing then
       
        if File.Ext = ".jpg" OR File.Ext = ".JPG" then
        PathI = "c:\webs\tester\upload\billeder\" & usename & File.Ext
        usethispicturenameI = usename & File.Ext
        File.SaveAs PathI
        else
        response.Redirect("index8.asp?error=file")
        end if
        end if
    end if


strSql= "INSERT INTO frisorertekster (Tsti, Tnogle) VALUES ('" & Tsti & "', '" & Tnogle & "')"

  Conn.Execute(strSql)
    Conn.Close


-----------------------------------------
Jeg tror dog jeg er ude i noget alt for meget fyld, og derfor ville jeg lige høre eksperterne før jeg gik videre!

På forhånd tak!
Avatar billede fennec Nybegynder
03. oktober 2006 - 16:00 #1
Det er meget simpel. Se deres kode her:
http://www.aspupload.com/manual_simple.html

Resultatet bliver noget i denne stil:
For Each File in Upload.Files
  conn.execute("insert into ...")
Next
Avatar billede fennec Nybegynder
03. oktober 2006 - 16:07 #2
For Each File in Upload.Files

returnere KUN de filer der er blevet uploadet. Det er derfor ikke nødvendige at lave tjek på om filen eksistere.

Din kode i en mere udbygget udgave:

Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.ProgressID = Request.QueryString("PID")
Upload.SaveToMemory
usename = Day(now) & Month(Now) & Year(Now) & Hour(Now) & Minute(Now) & Second(now)
For Each File in Upload.Files
  if File.Ext = ".jpg" OR File.Ext = ".JPG" then
    PathI = "c:\webs\tester\upload\billeder\" & usename & File.Ext
    usethispicturenameI = usename & File.Ext
    File.SaveAs PathI
    strSql= "INSERT INTO frisorertekster (Tsti, Tnogle) VALUES ('" & Tsti & "', '" & Tnogle & "')"
    Conn.Execute(strSql)
  end if
next

Jeg kan ikke helt forstå hvor du får "Tsti" fra. Ville gætte på den skulle være "PathI".
Avatar billede andersasp Nybegynder
03. oktober 2006 - 18:23 #3
Kanon, det virker perfekt.. tusinde tak!
Avatar billede fennec Nybegynder
04. oktober 2006 - 08:23 #4
.o) <-- One Eyed Jack
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

IT-JOB

Politiets Efterretningstjeneste

Er du vores næste iOS hacker?

Capgemini Danmark A/S

Open Application (Denmark)

Netcompany A/S

IT Consultant