16. februar 2004 - 15:13Der er
12 kommentarer og 1 løsning
sti til uploadet fil
Jeg har et lille script som uploader en fil fra en formular og så indsætter noget tekst i en database. Jeg vil gerne have at jeg kan trække stien til min nyligt uploadede ud og tilføje den til en variabel jeg så senere skriver til databasen.
Set Upload = Server.CreateObject("Persits.Upload.1") Upload.Save "d:\g\e\getech\www\intranet\upload" header = Upload.form("header") text = Upload.form("text") etc etc etc og skriver til sidst disse til databasen.
det som skal tilføjes er inde i mit hoved noget i stil med : text = Upload.form("text") text = text + [stien til fil]
er der ikke nogen experter der kan knække den nød ? upload componenten er aspupload 3.0.0.3
Jeg boksede frem og tilbage og fandt noget som ganske vidste er noget bøvlet kode men som rent faktisk virker.
Der skal kun uploades en fil af gangen :
<kode at grine af> Set Upload = Server.CreateObject("Persits.Upload.1") Upload.Save "d:\g\e\getech\www\intranet\upload" For Each File in Upload.Files langsti = File.Path Set fs=Server.CreateObject("Scripting.FileSystemObject") kortsti = (fs.GetBaseName(langsti)) set fs=nothing kortsti = kortsti & "." Set fs=Server.CreateObject("Scripting.FileSystemObject") kortsti = kortsti &(fs.GetExtensionName(langsti)) set fs=nothing strlink = "<p>Attached file : <a href=''upload/" & kortsti & "''>link</a>" Next </kode at grine af>
det må kunne kortes lidt ned... for eksempel burde man ikke have et loop når nu det kun drejer sig om en enkelt fil. men jeg kan ikke få det op at køre uden denne linie :
<kode at grine af> Set Upload = Server.CreateObject("Persits.Upload.1") sti = "/intranet/upload" Upload.Save Server.Mappath(sti) For Each File in Upload.Files filnavn = sti & "/" & File.Name strlink = "<p>Attached file : <a href=""" & filnavn & """>link</a>" Next </kode at grine af>
Jo du kan også tilgå filerne ved at skrive form input navnet sådan her:
Set Upload = Server.CreateObject("Persits.Upload.1") sti = "/intranet/upload" Upload.Save Server.Mappath(sti) If Not Upload.Files("FILE1") Is Nothing Then Set file = Upload.Files("FILE1") filnavn = sti & "/" & File.Name strlink = "<p>Attached file : <a href=""" & filnavn & """>link</a>" end if
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.