11 svar · 397 visningar · startad av illusion
Fso.MoveFile UPLOAD_PATH & "\" & Session("fil") , UPLOAD_PATH & "\" & Session("nytt")
Det här är linjen som genererar felkoden Åtkomst nekad. Jag har tagit bort skrivskyddet på mappen, jag har varit inne på webbutdelning, ngn som har ngt tips?
IUSR_XXXX har inte tillräckliga rättigheter i mappen.
Men jag har ju ändrat till full åtkomst.
Har du alltså satt filsystemsrättigheterna för windowsanvändaren IUSR_XXXX för aktuell mapp?
Ja
Jag har satt fulla rättigheter på alla konton där finns. Ger fortfarande samma fel.
Jag försöker byta namn på filen som sammtidigt laddas upp på servern till typ IP:et_sessionid_randomnr.
Lite mer kod:
' Bygger det nya filnamnet. Så att inga bilder kan överskrivas, så vill vi istället
' att det skall stå now()_session.sessionid_randomnr och det kan man göra på följande sätt:
filename = Right(""& Request.Servervariables("REMOTE_ADDR") &"_"& date() &"_"& session.sessionid &"_" & trim(Nynamn), 50)
' Bygger ihop det nya filnamnet
Nytt = filename & extension
Session("nytt") = Nytt
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Session("fil") = extract_filename(Upload("upload").Item("filename"))
UPLOAD_PATH = Server.MapPath("_img")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set Folder = Fso.getFolder(UPLOAD_PATH)
If Fso.FileExists(UPLOAD_PATH & "\" & Session("nytt")) Then
Fso.DeleteFile(UPLOAD_PATH & "\" & Session("nytt"))
Fso.MoveFile UPLOAD_PATH & "\" & Session("fil") , UPLOAD_PATH & "\" & Session("nytt")
Else
Felaktiga raden --> Fso.MoveFile UPLOAD_PATH & "\" & Session("fil") , UPLOAD_PATH & "\" & Session("nytt")
End If
Och koden generera denna text:
Feltyp:
Körningsfel i Microsoft VBScript (0x800A0046)
Åtkomst nekad.
/gallery/upload.asp, line 131
Jag kan radera filen.
HEJ!
Konstigt isåfall.
Den kod jag använder för för detta ser ut på motsvarande sätt.
1. Ser att du har bilderna i mappen "_img", sådana mappar är väl skyddade utifrån, kan det vara så att det är felet?
(I FrontPage var det så tidigare, gäller ej längre?)
2. Om du hamnar tre rader upp (If Fso.FileExists...), fungerar den MoveFile?
3. Testa att hårdkoda in filnamn, gärna på en fil som inte lagts upp med FSO.
Har du skrivit ut hela strängen, med dina sessions för att se att de verkligen innehåller det du tror?
