List and delete files

Enables users to list and delete files

CodeFunctionName

What is this?

Public

Not Tested

Original Work

'**************************************
' Name: DeleteFiles+
' Description:'
'Based on the original DeleteFiles by Jason Buck, this ASP page
'allows the user to list and delete files in the directory in which it resides.
'
'The modifications include an "are you sure" screen,
'displaying an image file, hiding this script itself so it won't be listed and
'css buttons.
' By: David Felton
'
' Inputs:'
'QueryStrings are still passed to dispaly the screens and delete the files.
'
'file=file or file=image
'Distingushes between images and other file types
'
'delete=show,delete=sure, or delete=yes
'will show a file, display the are you sure screen and
'lastly call the delete function
'
'FN=passes which file will be deleted
'
' Returns:'
'list of files in the directory,
'display of an image/file name
'are you sure screen
'confirmation of deletion screen
'
' Side Effects:'
'Simple... the file is GONE and cannot be undone.
'
'This code is copyrighted and has ' limited warranties.Please see
' http://www.Planet-Source-Code.com/xq/ASP/txtCodeId.6798/lngWId.4/qx/vb/scripts/ShowCode.htm 'for details. '**************************************
<HTML >
<HEAD >
<TITLE >Delete a File </TITLE >
<!-- This style creates the buttons For the script -- >
<style >
<!--
body, td, li, p, table, input
{
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 8pt;
}
a:hover.Button
{
color: #FF0000;
background: #CCCCCC;
}
A.Button
{
text-decoration: none;
color: #000000;
background: #CCCCCC;
}
.Button
{
text-align: center;
text-decoration: none;
color: #000000;
background: #CCCCCC;
border-top: 2px solid #EEEEEE;
border-left: 2px solid #EEEEEE;
border-right: 2px solid #999999;
border-bottom: 2px solid #999999;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 8pt;
padding-left: 4;
padding-right: 4;
padding-top: 2;
padding-bottom: 2;
}
-- >
</style >
</HEAD >

<BODY >

 File Deletion 
<%
strdelete = request.querystring("delete")
strFN = request.querystring("FN")
strFT = request.querystring("file")
'display the SHOW-ME-THE-FILE screen
if strdelete = "Show" Then
if strFT = "image" Then
response.write " <Img width=320 height=240 src=" & strFN & " > "
response.write " <A class=button href=default.asp?file=image&delete=Sure&FN=" & strFN & " >Delete? </A > "
response.write " <A class=button href=default.asp >List Files </A > "
Else
response.write " " & strFN & " "
response.write " <A class=button href=default.asp?file=file&delete=Sure&FN=" & strFN & " >Delete? </A > "
response.write " <A class=button href=default.asp >List Files </A > "
End if
response.end
End if
'display the ARE-YOU-SURE screen
if strdelete = "Sure" Then
if strFT = "image" Then
response.write " <Img width=320 height=240 src=" & strFN & " > "
response.write " Are You Sure You Want To Delete This File? "
response.write " <A class=button href=default.asp?delete=Yes&FN=" & strFN & " >Yes, Delete It. </A > "
response.write " <A class=button href=default.asp >NO, Do Not Delete It! </A > "
Else
response.write " " & strFN & " "
response.write " Are You Sure You Want To Delete This File? "
response.write " <A class=button href=default.asp?delete=Yes&FN=" & strFN & " >Yes, Delete It. </A > "
response.write " <A class=button href=default.asp >NO, Do Not Delete It! </A > "
End if
response.end
End if
'call the delete function
if strdelete = "Yes" Then
call functionDF()
End if

'the delete function
Sub functionDF()
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.GetFile(Server.MapPath(strFN))
f1.Delete
Response.Write " File " & strFN & " Deleted! "
Response.Write " <A class=button href=default.asp >Return To List </A > "
Response.End
End Sub
'view files in this directory
dirtowalk = "./"

'display the files
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(dirtowalk))
Set fc = f.Files
response.write " <HR >"
response.write " File List "
For Each tobdel In fc

'dont display this page
if tobdel.name = "default.asp" Then
response.write ""
'is the file an image?
ElseIf right(tobdel.name, 4) = ".jpg" Then
response.write " <A class=button href=default.asp?file=image&delete=Show&FN=" & tobdel.name & " > View </A > "
response.write " <A class=button href=default.asp?file=image&delete=Sure&FN=" & tobdel.name & " > Del </A > " & tobdel.name & " "
ElseIf right(tobdel.name, 4) = ".gif" Then
response.write " <A class=button href=default.asp?file=image&delete=Show&FN=" & tobdel.name & " > View </A > "
response.write " <A class=button href=default.asp?file=image&delete=Sure&FN=" & tobdel.name & " > Del </A > " & tobdel.name & " "
ElseIf right(tobdel.name, 4) = "jpeg" Then
response.write " <A class=button href=default.asp?file=image&delete=Show&FN=" & tobdel.name & " > View </A > "
response.write " <A class=button href=default.asp?file=image&delete=Sure&FN=" & tobdel.name & " > Del </A > " & tobdel.name & " "
'...or another file type
Else
response.write " <A class=button href=default.asp?file=file&delete=Show&FN=" & tobdel.name & " > View </A > "
response.write " <A class=button href=default.asp?file=file&delete=Sure&FN=" & tobdel.name & " > Del </A > " & tobdel.name & " "
End if
Next

% >


</BODY >
</HTML >