Upload til forskellige underbiblioteker
Jeg har et problem med at uploade til forskellige foldere. Jeg har hentet noget kode, der kan uploade til en bestemt folder og hvis denne ikke eksisterer, bliver den oprettet. Dog er stien skrevet ind i koden, mens jeg har behov for at den er dynamisk, f.eks. upload/files/21/ hvor '21' er ID-feltet fra databasen, da jeg ønsker at gruppere filerne under det ID de er uploaded under.----kode----
Submit:
....
<h4><br>
<INPUT NAME="fileupload_file" TYPE="file">
<% Response.Write "<INPUT NAME='fileupload_dir' TYPE='hidden' VALUE='" & strLocation &"'><BR>"
'Response.Write "<INPUT NAME='fileupload_dir' TYPE='hidden' VALUE='upload/files/65'><BR>"
Response.Write strLocation
%> <br>
<input name="Action" type="submit" value="Upload now">
</h4>
<h4><b>Notice!</b> If a file has been uploaded at this exact location
it will be overwritten!</h4>
</form>
...
Reply:
.....
Dim objDict
'Hent fil og evt. øvrige data
'Set objDict = FileUpload(Null, 10000, Null, "txt", "upload/files/65", True, True)
Set objDict = FileUpload(Null, 10000, Null, "txt", "'"&strLocation&"'", True, True)
Response.Write strLocation & "<br>"
'Giv passende resultat
If objDict("FILEUPLOAD_STATUS") = 0 Then
'Giv en positiv besked
Response.Write "Filen <A HREF=""" & objDict("FILEUPLOAD_URL") & """>" & objDict("FILEUPLOAD_FILENAME") & "</A> er uploaded til mappen " & objDict("FILEUPLOAD_DIR") & "<BR>"
Response.Write "Det er en fil af typen " & objDict("FILEUPLOAD_CONTENTTYPE") & " og den fylder " & objDict("FILEUPLOAD_SIZE") & " bytes.<BR>"
Else
'Giv en negativ besked
Response.Write objDict("FILEUPLOAD_STATUSTXT") & " (Fejl nummer " & objDict("FILEUPLOAD_STATUS") & ")<BR>"
End If
....
----------slut------
Jeg angiver stien i 'strLocation', men Set objDict vil kun acceptere en "rigtig" sti og ikke en variabel...
Nogen forslag? Er det fordi jeg har rod i mine apostroffer?
Mvh
U.K.
