Avatar billede neander Nybegynder
23. oktober 2003 - 14:28 Der er 8 kommentarer og
1 løsning

aspSmartUpload og gemme info i database?

Jeg sender en fil sammen med andre formular-data ved at bruge aspSmartUpload sample 5:

http://www.aspsmart.com/scripts/aspSmartUpload/publigen/content/templates/show.asp?P=356&L=EN

Hvordan kan jeg gemme de data i en database som jeg sender gennem formularen?
Avatar billede neander Nybegynder
23. oktober 2003 - 14:29 #1
Her er hele mit ASP script, som fanger filen, og gemmer den i mappen download:

<%
  Dim mySmartUpload
  Dim item
  Dim value
  Dim file

  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
  mySmartUpload.Upload
  intCount = mySmartUpload.Save("./download")


  Response.Write("<BR><STRONG>Files Collection</STRONG><BR>")

  Response.Write("Number of files =" & mySmartUpload.Files.count &"<BR>")
  Response.Write("Total bytes of files =" & mySmartUpload.Files.TotalBytes &"<BR>")

  For each file In mySmartUpload.Files
      Response.Write(file.FileName & " (" & file.Size & "bytes)<BR>")
  Next


  Response.Write("<BR><STRONG>Form Collection</STRONG><BR>")

  For each item In mySmartUpload.Form
      For each value In mySmartUpload.Form(item)
        Response.Write(item & " = " & value & "<BR>")
      Next
  Next
%>
Avatar billede mm12010 Nybegynder
23. oktober 2003 - 14:34 #2
mySmartUpload.Form virker på samme måde som Request.From som du kan se når du udskriver:
  For each item In mySmartUpload.Form
      For each value In mySmartUpload.Form(item)
        Response.Write(item & " = " & value & "<BR>")
      Next
  Next

så du kan lægge dine andre formular-data i variabler på følgende måde:

din_variabel = mySmartUpload.Form("dit_formfelt")
Avatar billede neander Nybegynder
23. oktober 2003 - 14:37 #3
hmm.... det ville bare være super, tester det lige :)
Avatar billede neander Nybegynder
23. oktober 2003 - 14:44 #4
Det virker, men hvordan kan jeg så fange filstørrelse og filnavn fra filupload-formen?

Jeg har scriptet det således:
Set rs = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM Filer WHERE 1 = 2"
rs.Open Query, Connect, 1, 2
rs.AddNew
rs("Beskrivelse") = info

rs("Navn") = mySmartUpload.Form("navn")

rs.Update



Response.Write("<BR><STRONG>Form Collection</STRONG><BR>")


  For each item In mySmartUpload.Form
      For each value In mySmartUpload.Form(item)
        Response.Write(item & " = " & value & "<BR>")
      Next
  Next
Avatar billede mm12010 Nybegynder
23. oktober 2003 - 14:51 #5
filNavn = mySmartUpload.Files(1).FileName
FilStorelse = mySmartUpload.Files.TotalBytes '<-- ikke helt præcist, men næsten :o)
Avatar billede neander Nybegynder
23. oktober 2003 - 14:56 #6
Hurra! Det virker, men hvorfor skal der egentlig stå (1) i
mySmartUpload.Files(1).FileName?
Avatar billede mm12010 Nybegynder
23. oktober 2003 - 15:04 #7
det er hvis du har flere filer, så kan man angive hvilken af dem man skal bruge
Avatar billede neander Nybegynder
23. oktober 2003 - 15:12 #8
ahh.... ok. Tak for hjælpen!
Avatar billede mm12010 Nybegynder
24. oktober 2003 - 11:23 #9
selv tak :o)
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