Upload fil til mappe

Og det skal uploades til mappen "../../Dokumenter/"

Har du adgang til ASP Uplad?

Jeg bruger wannafind ... tjekker lige

hos wannafind har du adgang til aspSmartUpload og AspUPLOAD - aspSmartUpload er desværre udgået så det bedste er nok at vælge AspUPLOAD og det kan du finde dokumentation og eksempler på her; http://www.aspupload.com/ (kig evt under "live demos" for færdige eksempler)

Ok - jeg har fundet ud af det :-)

Jeg har dette kode til dig - filerne bliver gemt i en mappe der hedder dokumenter i roden, det vil sige: /dokumenter/ - det kan du selv ændre på.

<%
If lCase(Request.ServerVariables("REQUEST_METHOD")) = "post" Then

  Set Upload = Server.CreateObject("Persits.Upload.1")

  Upload.OverwriteFiles = False
  On Error Resume Next

  Upload.SetMaxSize 1048576    ' Filstørrele på 1 mb
  Count = Upload.Save Server.Mappath("/dokumenter/") ' Mappen filerne blive gemt i

  If Err <> 0 Then ' Hvis der opstod fejl
    Response.Write("Der opstod en fejl: " & Err.Description & "")
  Else
 
  For Each File in Upload.Files

    Response.Write("Filnavn: " & File.OriginalPath & "<br>")
    Response.Write("Filstørrelse: " & File.Size)
 
  Next

  End If

  Set Upload = Nothing
 
Else
%>

<form action="?" enctype="multipart/form-data" method="post">

<input type="file" name="file" style="width:300px;"><br>
<input type="submit" value="Upload fil">

</form>

<% End If %>

Det er utestet det her script.

Active Server Pages error 'ASP 0113'

Script timed out

/office-launcher/web/upload.asp

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

hvis du uploader meget store billeder vil denne fejl opstå - så kan du sætte en højere timeout på;

http://www.w3schools.com/asp/prop_scripttimeout.asp

Nu har jeg bikset dette sammen og det virker lige bortset fra at jeg ikke kan få filnavnet med i den sendte email...


<%
Set Upload = Server.CreateObject("Persits.Upload.1")
   
  Upload.OverwriteFiles = False
  On Error Resume Next
   
  Upload.SetMaxSize 1048576    ' Filstørrele på 1 mb
  Upload.Save Server.Mappath("/rapporter/") ' Mappen filerne blive gemt i
   
  If Err <> 0 Then ' Hvis der opstod fejl
    Response.Write("Der opstod en fejl: " & Err.Description & "")
  Else
   
  End If
   
  Set Upload = Nothing


  Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
    Mailer.FromName="Rapport"
    Mailer.FromAddress="robot@xxxx.dk"
    Mailer.RemoteHost="mail.xxxxxx.dk"
    Mailer.AddBCC "xxxxxx","xxxxx"
    Mailer.AddBCC "xxxxxx","xxxxx"
   
    strBesked = "<font face='verdana' size='1'>Til rette vedkommende,<br><br><br>Der er nu uploaded en ny vagtrapport...<br><a href='http://www.xxx.dk/rapport/' target='_blank'>Klik her</a></font>"
   
    Mailer.Subject="Vagtrapport"
    Mailer.BodyText = strBesked
    Mailer.ContentType="text/html"
   
    Mailer.SendMail
    Set Mailer = Nothing

  Response.Redirect "menu.asp?menupunkt=VAGTRAPPORT&msg=<strong>Rapporten er nu afsendt!</strong>"
%>

filnavnet skal indsættes efter http://www.xxx.dk/rapporter/FILNAVN.xxx ...

Lukker...