Slette filer med ASP
Hejsa.Jeg har følgende lille script der viser alle filerne i mappen "UPLOAD":
-----------------------------------
<font size="6" color="#000000">Uploadede filer.</font>
<%
' Indsæt mappens navn her:
path = "UPLOAD"
%>
<html>
<body>
<% if Request.Form("file") = "" then%>
<form method="post" name="form" action="<%="" & Request.ServerVariables("SCRIPT_NAME") & ""%>">
<%
dim fs,f
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=fs.GetFolder(server.mappath(path))
for each file in f.files
name = file.name
%>
<a href="upload/<%=Left(name, Len(name))%>"><%=Left(name, Len(name))%></a>
<br>
<%
next
set f=nothing
set fs=nothing
%>
</form>
<%
else
file = replace(Request.Form("file"),", ",",")
fileArr = split(file,",")
for i=0 to ubound(fileArr)
if fileArr(i) <> "" then
end if
next
end if
%>
</body>
</html>
-----------------------------------
Nu kunne jeg godt tænke mig et link ud for hvert filnavn der henviser til filen slet.asp, så når jeg trykker på dette link bliver filen slettet. Min slet.asp ser i øjeblikket sådan ud:
-----------------------------------
<%
dim fs
Set fs=Server.CreateObject("Scripting.FileSystemObject")
fs.CreateTextFile "d:\web\localuser\xxx.dk\public_html\UPLOAD\UPLOAD\FILNAVN",True
if fs.FileExists("d:\web\localuser\xxx.dk\public_html\UPLOAD\UPLOAD\FILNAVN") then
fs.DeleteFile("d:\web\localuser\xxx.dk\public_html\UPLOAD\UPLOAD\FILNAVN")
end if
set fs=nothing
%>
-----------------------------------
I stedet for "FILNAVN" skal der i stedet stå det fulde navn på den fil der bliver vist i mit forrige script.
Hvordan skal mine 2 scripts se ud for at det virker??