12. juni 2003 - 16:51Der er
23 kommentarer og 1 løsning
Oprettelse af mapper og billeder på hjemmeside
Hej Allesammen, Jeg har et problem jeg har prøvet med alle mulige source koder osv (ASPsmartUpload osv) men kan ikke finde ud af det! Jeg så et spørgsmål: http://www.eksperten.dk/spm/246351 Som burde være enkelt, men nej jeg fatter det ikke! Jeg har sammensat en lille guide: http://www.slyngelstuen.dk/temp/Upload/upload.htm som beskriver hvordan jeg gerne ville have det til at se ud. Er der en venlig sjæl som imod et lille point beløb har lyst til at hjælpe mig, eller med andre ord sammensætte et upload script, som beskrevet i linket herover.
ellebaek> Jo mange tak for det... Jeg ved godt jeg sikkert er besværlig, men kunne jeg få dig til at lave baggrunden med denne farve #5A2900 og teksten med denne farve #FFFFFF Mappe-listen ligger her (Rod)/gfx/Billedarkiv/ og når den opretter en mappe skal den placeres under samme destination..?!
Nej overhovedet ikke.... bare det virker....:) Bare den ikke uploader for langsom, men virker så må du bruge hvilken script eller komponent du har lyst til... :)
ellebaek> Nu virker det og næsten; man kan create mapper, men der er et problem med at uploade billeder, der står at der er en fejl i sample1.asp linie 17... det er sikkert fordi at AspSmartUpload er et komponent, er der et sted hvor jeg kan finde det...? eller er problemet et andet?
Det er den komponent siderne er lavet til. Jeg har prøvet det på min egen server, den generere objektet og skal til at uploade, men uploader intet, nok fordi jeg har sat det forkert op. Jeg har oprettet et spg. her på exp. Men der er ingen der har svaret på det, så jeg må selv rodde videre med det...
Jeg har fundet fejlen på siden.. Så nu uploader den hos mig.
Skift indholdet af siden sample1 ud med denne kode. Så virker den...
<HTML> <BODY BGCOLOR="white">
<H1>Trin 3</H1> <HR>
<% ' 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 ' ************************************************************************** mappe = mysmartupload.form("fileupload_dir") file.SaveAs(server.mappath("gfx/billedarkiv/" & mappe & "/" & file.FileName)) ' 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 ' *************************************************** Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")
' Display the number of files uploaded ' ************************************ Response.Write(intCount & " file(s) uploaded.<BR>") %>
<% ' 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 '************************************************************************* mappe = mysmartupload.form("fileupload_dir") file.SaveAs(server.mappath("gfx/billedarkiv/" & mappe & "/" & file.FileName)) ' 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 ' *************************************************** 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>
Det var lige fordi jeg havde glemt at udkommentere den linie... Nu burde det virke.!
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.
