UPLOAD_PATH = Server.MapPath("pics") Set Fso = Server.CreateObject("Scripting.FileSystemObject") Set Folder = Fso.getFolder(UPLOAD_PATH) If (Request.ServerVariables("REQUEST_METHOD") = "POST") Then Set Upload = get_upload_files() fcontent = Upload("upload").Item("content")
allowlist = ".gif,.jpg,.bmp" extension = right(extract_filename(Upload("upload").Item("filename")),4) If Fso.FileExists(UPLOAD_PATH & "\" & extract_filename(Upload("upload").Item("filename"))) Then Session("mess") = "En fil med det navn findes i databasen!" Response.Redirect "upload.asp" Else If instr(allowlist,extension) then Set File = Fso.CreateTextFile(UPLOAD_PATH & "\" & extract_filename(Upload("upload").Item("filename"))) Else Session("mess") = "Du må <b>inte</b> ikke uploade en fil i det format.<br>Kun <b>" & allowlist & "</b> er godkendte." Response.Redirect "upload.asp" End If End If For i = 1 to LenB(fcontent) File.Write chr(AscB(MidB(fcontent, i, 1))) Next File.Close: Set File = Nothing Session("fil") = extract_filename(Upload("upload").Item("filename")) Session("visa") = "ok" Response.Redirect "skicka.asp" End If%>
Jeg vil lige som cpufan påstå at du ikke har skriverettighed til den mappe. Men hvis Scannet siger du har skriverettighed, vil jeg gerne høre deres forklaring på hvorfor du får en "Permission denied", for jeg kan ikke se det kan være andet end manglene rettighed.
den første jeg talte med der inde var ikke helt på dupperne. Du har jeg fået adgang og alt virker. smider i begge et svar så fordeler jeg lidt points, forhøjer det til 60 så for i 30 hver
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.