14. september 2003 - 17:44Der er
2 kommentarer og 1 løsning
aspSmartUpload hjælp til upload i access
Jeg skal have have mulighed for at uploade 2 stk. grafik til en mappe med navn grafik. Navene skal ind i en access database i samme post som grafik1 og grafik2. tabelnavn=grafiktabel Her er hvad jeg kunne finde på aspSmartUpload hjemmeside:
<HTML> <BODY BGCOLOR="white">
<H1>aspSmartUpload : Sample 5</H1> <HR>
<% ' Variables ' ********* Dim mySmartUpload Dim item Dim value Dim file
' Object creation ' *************** Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Informations about files ' ************************ Response.Write("Number of files =" & mySmartUpload.Files.count &"<BR>") Response.Write("Total bytes of files =" & mySmartUpload.Files.TotalBytes &"<BR>")
' Select each file ' **************** For each file In mySmartUpload.Files Response.Write(file.FileName & " (" & file.Size & "bytes)<BR>") Next
' FORM Collection ' *************** Response.Write("<BR><STRONG>Form Collection</STRONG><BR>")
' Select each item ' **************** For each item In mySmartUpload.Form ' Select each value of the current item ' ************************************* For each value In mySmartUpload.Form(item) Response.Write(item & " = " & value & "<BR>") Next Next %> </BODY> </HTML>
Men det ser ud som følgende: upload.asp: <% ' Variables ' ********* Dim mySmartUpload Dim file Dim intCount intCount=0
' Object creation ' *************** Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
' Upload ' ****** mySmartUpload.Upload
' Select each file ' **************** For each file In mySmartUpload.Files ' Only if the file exist ' ********************** If file.IsMissing = false Then ' Save the files with his original names in a virtual path of the web server ' ************************************************************************** file.SaveAs(server.mappath("files/" & file.FileName)) if CStr(intCount) = "0" then streng = streng & "'" & file.FileName & "', " else streng = streng & "'" & file.FileName & "'" end if ' sample with a physical path 'file.SaveAs("c:\" & file.FileName)
' Tæl antal filer... ' ****************************************** intCount = intCount + 1 End If Next
' Display the number of files which could be uploaded ' *************************************************** set rs = Server.CreateObject("ADODB.Connection") str = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("database.mdb") rs.open str sql = "insert into grafiktabel(grafik1, grafik2) values(" & streng & ")" set rs = rs.execute(sql) Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")
' Display the number of files uploaded ' ************************************ Response.Write(intCount & " file(s) uploaded.<BR>") %>
Så skal du have en mappe der hedder files, i denne mappe bliver filerne uploadet... Du kan selv tilpasse sql'en hvis der er flere oplysninger der skal indtastes i databasen, som det er nu indsættes kun billednavnet for hvert af de 2 billeder i tabellerne grafik1 og grafik2...
det kommer an på hvor store filer jeg bruger. Med alm. txt. filer går det rimelig hurtigt. Mens hvis jeg uploader gif filer af en rimelig størrelse går det tilsvarende langsommere.
Synes godt om
Ny brugerNybegynder
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.
