Avatar billede ellebaek Nybegynder
22. juni 2003 - 17:48 Der er 15 kommentarer og
1 løsning

AspSmartUpload uploader intet

Jeg har oprettet dette spg. en gang.
Men prøver igen nu..!
tidligere spg!
http://www.eksperten.dk/spm/364317

Jeg har installeret ASPSmartUpload på min egen server, derefter prøver jeg at uploade en fil til min server med følgende script:
<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim intCount
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
  mySmartUpload.Upload

'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then
      '  Save the files with his original names in a virtual path of the web server
      '  ****************************************************************************
        'file.SaveAs(server.mappath("\gfx\billedarkiv\" & MySmartUpload.form("fileUpload_dir")) & file.FileName)
        ' sample with a physical path
        file.SaveAs("c:\" & file.FileName)

      '  Display the properties of the current file
      '  ******************************************
        Response.Write("Name = " & file.Name & "<BR>")
        Response.Write("Size = " & file.Size & "<BR>")
        Response.Write("FileName = " & file.FileName & "<BR>")
        Response.Write("FileExt = " & file.FileExt & "<BR>")
        Response.Write("FilePathName = " & file.FilePathName & "<BR>")
        Response.Write("ContentType = " & file.ContentType & "<BR>")
        Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
        Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
        Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")
        intCount = intCount + 1
      End If
  Next

'  Display the number of files which could be uploaded
'  ***************************************************
  Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")
response.write "<a href='default.asp'>Tilbage</a>"
%>


Jeg får følgende resultat fra scriptet:
Formen fileUpload_dir findes på den side jeg submitter til denne side.
Resultatet af et kald til dette script er følgende:
Name = FILE1
Size = 7796
FileName = Dhmhelp.txt
FileExt = txt
FilePathName = D:\DO_DATA\Dhmhelp.txt
ContentType = text/plain
ContentDisp = form-data
TypeMIME = text
SubTypeMIME = plain

10 files could be uploaded.
1 file(s) uploaded.
Tilbage

Men problemet er at der ikke bliver uploadet filer til nogen mapper..

Jeg har prøvet både:
file.SaveAs(server.mappath("\gfx\billedarkiv\" & MySmartUpload.form("fileUpload_dir")) & file.FileName)

og med:
file.SaveAs("c:\" & file.FileName)

Jeg har i forvejen ingen erfaring med SmartUpload, men jeg tror jeg har fået det installeret rigtigt da der ikke kommer nogen fejl fra scriptet...Håber der er nogen der kan hjælpe!

..Ellebæk!
Avatar billede eagleeye Praktikant
22. juni 2003 - 19:07 #1
Måske der kan være et problem med at gemme i c:\  ?
Prøv at gemme i wwwroot:

file.SaveAs(server.mappath("/" & file.FileName))
Avatar billede ellebaek Nybegynder
22. juni 2003 - 19:13 #2
Hej eagle...

Det gav heller ikke noget bedre resultat..
Den uploader stadig ikke noget. Kan det være fordi ASPSmartUpload ikke er rigtigt registreret ??
Avatar billede eagleeye Praktikant
22. juni 2003 - 19:16 #3
Hvis den skriver alt det omkring filen så tror jeg den er installeret rigtigt. Du har ikke en On Error Resume Next linje et sted i filen ?

Kunne det tænkes det var noget med rettigheder, evt hvis det er XP, og brug at komponent.
Avatar billede ellebaek Nybegynder
22. juni 2003 - 19:18 #4
Jeg kører 98 med pws, så jeg tror ikke det er rettighederne der er et problem.

Jeg har kun det script der er i spørgsmålet...
Avatar billede eagleeye Praktikant
22. juni 2003 - 20:04 #5
Hmm underlidt. Måske det afligevel ikke er instlleret helt rigtigt. Det jeg syntes er underlidt er at den ikke melder fejl, men det ser jo ud som om den loader filen rigtigt.
Avatar billede ellebaek Nybegynder
22. juni 2003 - 20:08 #6
ja, det synes jeg også er spøjst.!

jeg søgte her rundt omkring, og fandt forskellige ting der skulle gøres under installationen.

Jeg har placeret den fil der skal registreres flere steder, for at være sikker på den eksistere i pathen.
Den ligger både i c:\windows\system
c:\
og
c:\windows\system32

Men ved ikke hvilken fil det kan være der er forkert registreret...!
Avatar billede eagleeye Praktikant
22. juni 2003 - 20:20 #7
Er den registreret?

1st Solution: Using RegSVR32
Copy aspSmartUpload.dll into a directory on the NT server (e.g. c:\mydir).
Save the component using the commands :
REGSVR32.EXE c:\mydir\aspSmartUpload.dll (From DOS or the Start/Run prompt)
Avatar billede ellebaek Nybegynder
22. juni 2003 - 20:26 #8
Jeg har registreret den fil...

Den anden skal vidst ikke registreres i andet end pathen, og det burde den være når den ligger i c:\windows\system ikke sandt ?
Avatar billede eagleeye Praktikant
22. juni 2003 - 20:41 #9
Ja den anden skal ligge i path'en. Enten ved at kopier den ind i c:\windows\ eller anden sti som er i PATH.
Avatar billede Slettet bruger
22. juni 2003 - 20:45 #10
Hmm er du sikker på at c:\windows\system er en del af path? Prøv at starte en dos boks op og skrive set, så kan du se hvilke biblioteker der er i din path. Ellers så smid den i system32, den er du sikker på er med i path.
Avatar billede ellebaek Nybegynder
22. juni 2003 - 20:48 #11
jeg har lige prøvet det du siger bertie...

Begge dll filer ligger i c:\windows der er en del af pathen.

Jeg er rimelig sat af i det her.
Det er trist når man gerne vil have det til at virke..
Avatar billede Slettet bruger
22. juni 2003 - 20:54 #12
Hmm, prøv at lave en mappe c:\upload eller sådan noget, højreklik på mappen og vælg egenskaber, nu kan jeg ikke lige huske hvordan det ser ud i 98, men hvis du har en fane der hedder sikkerhed så prøv om du ikke kan tilføje brugeren IUSR_maskinenavn til brugerene der har rettigheder til at skrive i mappen.
Avatar billede Slettet bruger
22. juni 2003 - 20:54 #13
Husk når du har gjort det at genstarte maskinen inden du prøver at uploade igen.
Avatar billede ellebaek Nybegynder
22. juni 2003 - 21:53 #14
Jeg har genstartet...!

Der er ikke nogen rettigheder for forskellige brugere i win98. I hvert fald ikke under egenskaber.!

Det hjælper ikke at genstarte..
Avatar billede ellebaek Nybegynder
30. juni 2003 - 15:28 #15
hmm...

Lader til mit problem er sværere at løse end som så.

tak for hjælpen begge 2...

..Ellebæk!
Avatar billede ellebaek Nybegynder
04. juli 2003 - 22:37 #16
Bortset fra det, så fandt jeg fejlen...
hvis jeg i stedet skrev
<%
'  Variables
'  *********
  Dim mySmartUpload
  Dim intCount
       
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
  mySmartUpload.Upload

'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If file.IsMissing = false Then
      '  Save the files with his original names in a virtual path of the web server
      '  ****************************************************************************
        'file.SaveAs(server.mappath("\gfx\billedarkiv\" & MySmartUpload.form("fileUpload_dir")) & file.FileName)
        ' sample with a physical path
        file.SaveAs("c:\" & file.FileName)

      '  Display the properties of the current file
      '  ******************************************
        Response.Write("Name = " & file.Name & "<BR>")
        Response.Write("Size = " & file.Size & "<BR>")
        Response.Write("FileName = " & file.FileName & "<BR>")
        Response.Write("FileExt = " & file.FileExt & "<BR>")
        Response.Write("FilePathName = " & file.FilePathName & "<BR>")
        Response.Write("ContentType = " & file.ContentType & "<BR>")
        Response.Write("ContentDisp = " & file.ContentDisp & "<BR>")
        Response.Write("TypeMIME = " & file.TypeMIME & "<BR>")
        Response.Write("SubTypeMIME = " & file.SubTypeMIME & "<BR>")
        intCount = intCount + 1
      End If
  Next

'  Display the number of files which could be uploaded
'  ***************************************************
  Response.Write("<BR>" & mySmartUpload.Files.Count & " files could be uploaded.<BR>")

'  Display the number of files uploaded
'  ************************************
  Response.Write(intCount & " file(s) uploaded.<BR>")
response.write "<a href='default.asp'>Tilbage</a>"
%>

så virkede scriptet...
Synes nu ikke det burde gøre nogen forskel, men det gjorde det...!
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