Avatar billede labanen Nybegynder
16. februar 2004 - 15:13 Der 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
Avatar billede eagleeye Praktikant
16. februar 2004 - 16:31 #1
Skal det være hele stien d:\g\e\... eller skal det være /intranet/upload?
Avatar billede labanen Nybegynder
16. februar 2004 - 16:43 #2
det skal bare være /intranet/upload/fil.ext

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>
Avatar billede labanen Nybegynder
16. februar 2004 - 16:44 #3
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 :

For Each File in Upload.Files
Avatar billede eagleeye Praktikant
16. februar 2004 - 16:46 #4
Så ville jeg gøre sådan her:


<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>
Avatar billede labanen Nybegynder
16. februar 2004 - 17:11 #5
kan du ikke lave den uden "for" løkken ? der uploades bare en fil hver gang.

Ellers syntes jeg nu ikke din kode lever op til at grine af, det ser noget mere rationelt ud en det jeg havde copy/pastet mig frem til.
Avatar billede labanen Nybegynder
16. februar 2004 - 17:16 #6
der har sneget sig en fejl ind..

File.Name returnere ikke et brugbart filnavn, men blot "FILE1"
Avatar billede eagleeye Praktikant
16. februar 2004 - 17:17 #7
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
Avatar billede labanen Nybegynder
16. februar 2004 - 17:17 #8
det var derfor jeg brugte FSO metoderne der til at få fat i navnet og extension.
Avatar billede eagleeye Praktikant
16. februar 2004 - 17:18 #9
doh :)

file.Name  skal være  file.FileName
Avatar billede labanen Nybegynder
16. februar 2004 - 17:19 #10
ah smart nok... den kommando kendte jeg ikke. Nu ser det rigtigt ud.

Jeg tester lige. Laver du et svar så er pointene dine.

og mange tak for hjælpen !
Avatar billede eagleeye Praktikant
16. februar 2004 - 17:19 #11
Filnavnet på filen er i .FileName det var bare forkert skrevet af mig :)
sådan denne linje:
filnavn = sti & "/" &  File.Name

Bliver:
filnavn = sti & "/" &  File.FileName
Avatar billede labanen Nybegynder
16. februar 2004 - 17:23 #12
jeps det regnede jeg ud.. og det virker perfekt nu.

Nu mangler jeg bare et svar at give nogen point :o)
Avatar billede eagleeye Praktikant
16. februar 2004 - 17:23 #13
Ok, her et svar :))

Kender du denne side? Det gør du sikkert, men det er online manualen til ASPupload:
http://www.aspupload.com/objectreference.html
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester