Avatar billede stefware Nybegynder
18. januar 2003 - 01:15 Der er 2 kommentarer og
1 løsning

Upload af 2 filer Dundas Upload

Mit sidste ? blev vist lidt kompliceret og for langt, så jeg prøver at dele det lidt op.

Jeg skal have uploaded 2 filer ved hjælp af Dundas Upload, og skrevet dem ind i en DB, lige nu kommer kun den ene fil op og bliver skrevet ind i DB'en.

Scriptsene ser sådanne her ud:

Upload.asp
<form name="UploadForm" action="Process.asp" enctype="multipart/form-data" method="post">

<p>
UPLOAD INFORMATION
<table width="400" border="0" cellPadding="3" cellSpacing="3"  align="center">
  <tr>
    <td>File to upload #1: </td>
    <td><input NAME="File1" TYPE="file"></td></tr>
  <TR>
    <td>File to upload #2: </td>
    <td><input NAME="File2" TYPE="file"></td></TR>
  <TR>
    td></TR>
  </table>
<p>
<input type="submit" value="Upload File(s)" id="submit1" name="submit1">
<br></form>

Process.asp
<%
Set dbforb = Server.CreateObject("ADODB.Connection")
    dbforb.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dbldb.mdb")

Set objUpload = Server.CreateObject("Dundas.Upload.2")
objUpload.UseUniqueNames = true
sti = Server.MapPath(".") & "\"

Set objNextFile = objUpload.GetNextFile()
objNextFile.Save sti
fileName = objUpload.GetFileName(objNextFile.OriginalPath)

billede = fileName

Set objUpload = Nothing

strSAV= "insert into anmeldelser (billede) values ('" & billede &"')"
dbforb.Execute(strSAV)

DB:dbldb.mdb
Tabel:anmeldelser
Kolonne:billede
Avatar billede eagleeye Praktikant
19. januar 2003 - 02:14 #1
Du skal havde et loop ind så den looper gennem alle de filer som er uploaded.


Så dette styk kode:

Set objNextFile = objUpload.GetNextFile()
objNextFile.Save sti
fileName = objUpload.GetFileName(objNextFile.OriginalPath)

billede = fileName

Set objUpload = Nothing

strSAV= "insert into anmeldelser (billede) values ('" & billede &"')"
dbforb.Execute(strSAV)



Bliver til dette:


Set objNextFile = objUpload.GetNextFile()

Do Until objNextFile Is Nothing
  objNextFile.Save sti
  fileName = objUpload.GetFileName(objNextFile.OriginalPath)

  billede = fileName

  strSAV= "insert into anmeldelser (billede) values ('" & billede &"')"
  dbforb.Execute(strSAV)

  Set objNextFile = objUpload.GetNextFile()

loop
Set objUpload = Nothing
Avatar billede eagleeye Praktikant
19. januar 2003 - 02:15 #2
Se evt på Dundas hjemmeside her for Dundas Upload:
http://www.dundas.com/products/onlinedocs/FreeProds/Upload/Properties_(Dundas_Upload_Control_1.0).htm

Og her for GetNextFile:
http://www.dundas.com/products/onlinedocs/FreeProds/Upload/GetNextFile_(Dundas_Upload_Control).htm
Avatar billede stefware Nybegynder
19. januar 2003 - 11:42 #3
Takker for hjælpen!!!! Jeg har siddet og rodet rundt på Dundas hjemmeside, men jeg syntes det er noget rodet at finde rundt i specielt når man ikke er særlig godt til ASP! Nu skal jeg bare have det bygget sammen med alle de andre ting, og lagt navnet på billede 1 ind som pic_1 og billede 2 ind som pic_2 i en tabel, men det er noget helt andet!
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