<HTML> <BODY BGCOLOR="white"> <H1>aspSmartUpload : Sample 2</H1> <HR> <% 'response.end ' 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 not file.IsMissing Then ' Save the files with his original names in a virtual path of the web server ' ************************************************************************** file.SaveAs("upload\" & file.FileName) ' sample with a physical path ' file.SaveAs("c:\temp\" & file.FileName)
' Display the number of files which could be uploaded ' *************************************************** Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")
' Display the number of files uploaded ' ************************************ Response.Write(intCount & " file(s) uploaded.<BR>") %> </BODY> </HTML>
Jeg har brugt regsvr32 på aspsmartupload.dll kopieret ind i Windows biblioteket i min Vista Premium. Først registrerede jeg komponenten i et lavere biblitek, men det virkede ikke. Jeg ved ikke om den første registrering så forstyrrer.
Jeg har prøvet at lave et eks, som kun ligger i en fil, men det kan nemt gennes i to filer. Men dette skulle virke:
----------------- upload.asp -------------------
<html> <head></head> <body> <% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Set upload = Server.CreateObject("aspSmartUpload.SmartUpload") 'Max størrelse i bytes upload.MaxFileSize = 1000000 'Kun disse typer er okay upload.AllowedFilesList = "jpg,jpeg,JPG,JPEG" 'Stien til den mappe filerne skal gemms i filSti = "d:\web\localuser\domain.dk\public_html\upload\"
upload.Upload
For each file In upload.Files If not file.IsMissing Then 'Alle filerne gemmes file.SaveAs (filsti + file.filename) end if next %> <center> Gennemført </center> <% else %>
weiz Tak, det vil jeg kunne bruge senere. I mellemtiden er jeg gået over til Free ASP Upload, hvor jeg har fået det til at virke: http://www.freeaspupload.net/freeaspupload/documentation.asp Fik du prøvet mine koder og fik du så fejlen, som jeg fik? Send lige svar for point.
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.