> Jeg vil først lige sige, at der er en fejl i det script jeg sendte dig:
> Skift linien:
> filespec = Server.MapPath(dir & "/" & fil.name) & "/" & request(dir &
> "/" & fil.name)
> med denne:
> filespec = Server.MapPath(dir) & "/" & fil.name
OK.
> Prøv at sende hele din kode med i et indlæg og skriv også meget gerne et
> link til den side du arbejder på. Så vil jeg prøve at kigge på det.
Jeg har fået kæmpet mig igennem en side med elektronisk logbog, debatforum,
kalender, intern mailfunktion, og en upload funktion.
(jeg syntes selv den er en smule genial
jeg har lavet en "demoversion"
på
www.logporten.dk/demo her er uploadfunktionen slået fra...
Det er så i uploadfunktionen jeg gerne vil have lidt hjælp. Her kan eleverne
aflevere deres opgaver, læreren kan så rette opgaverne og aflevere dem
tilbage. Opgaven bliver placeret i mappen "upload" og når de bliver
afleveret er det i mappen "afleveret"
Men når så året er omme, skulle det jo gerne være sådan at læreren kan
slette alle opgaverne og starte på en frisk. Jeg kan jo sagtens selv slette
dem via FP-extention, men det bedste er jo hvis læreren selv sletter dem.
Jeg har lavet disse 2 sider:
"slette_opgaver.asp" med koden:
[<a href="admin_slet_alle_opgaver.asp" onClick="return confirm('Vil du
slette alle opgaver?');">Slet alle opgaver</a>]
"admin_slet_alle_opgaver.asp" med koden:
<%
dir = "upload"
Dim fso
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofile = filesys.GetFolder(server.MapPath(dir))
Set filecoll = demofile.Files
For Each fil in filecoll
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.MapPath(dir) & "/" & fil.name
fso.DeleteFile(filespec)
Next
%>
Nu får jeg så fejlen:
Microsoft VBScript runtime error '800a0046'
Permission denied
/test/admin_slet_alle_opgaver.asp, line 15
Det må vel betyde manglende rettigheder, eller hva'?
Håber du kan bruge denne lange smøre til noget.
Hilsen Gert Simonsen