Upload af filer
Hej igen kære eksperter udi ASP etc...:-)Jeg sidder og retter noget kode til, som jeg har "lånt" fra en anden hjemmeside jeg har fået lavet engang.
Alting virker så lang tid jeg bibeholder en drop down liste hvoir man kan vælge hvilket dir filen skal uploades i. Jeg vil imidlertid gerne have lavet det om, så jeg KUN oploader til et forud defineret dir. Fjerner jeg drop down listen og erstatter med en variabel med dirnavn i, lægges filen ikke her men i UPLOAD... Hvad gør jeg mon forkert? Her er lidt kode:
-----------------------------------------------------
upload.asp
-------------------------------------------------------
<!--#include file="../odbc.asp"-->
<%
root = ""
download_path = Server.Mappath("/upload/")
%>
<html>
<head>
<title></title>
</head>
<body>
<form method="post" action="upload2.asp" ENCTYPE="multipart/form-data">
Uploades til følgende mappe:
<%
Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFso.Getfolder(download_path)
Set Folders = oFolder.SubFolders
%>
<select name="mappe">
<% For Each folder In Folders %>
<option value='<% = folder.name %>' selected><% = folder.name %></option>
<% NEXT %>
</select>
<br> <br>
Fil 1: <input type='FILE' class='formtxt' name='download' size='60'><br>
<br>
<input type="submit" name="Upload fil" value="Upload fil">
<br> <br>
</form>
-------------------------------------
upload2.asp - Her er asp siden der behandler det hele:
-----------------------------------
<!--#include file="../odbc.asp"-->
<%
root = ""
download_path = Server.Mappath("/upload/")
%>
<%
'On Error Resume Next
mappe = request("mappe")
Set Upload = Server.CreateObject("Persits.Upload.1")
Upload.SetMaxSize 400000, True
Upload.OverwriteFiles = true
Upload.Save
mappe = Upload.Form("mappe")
For Each File in Upload.Files
billede_stien = download_path & "/" & mappe & "/" & File.FileName
File.SaveAs billede_stien
Next
response.redirect("upload.asp")
%>