I have a simple one here, let's you see files and images in the upload dir, and delete them with a click.
It needs to be in the admin/includes folder
just past it into a new file, put it in the admin/includes folder, and away you go.
***************************************************
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<script language="JavaScript">
function confirm_delete(strFileName)
{
if (confirm("Are you sure that you would like to delete " + strFileName + "?"))
{
document.location = "fmanager.asp?Action=Delete&File=" + strFileName;
}
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
ImagesPath = "../../uploads/"
If Request.QueryString("Action") = "Delete" Then
Dim strImage
strImage = ImagesPath & Request.QueryString("File")
response.write(server.mappath(strImage))
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(server.mappath(strImage))
objFSO.Close
Set objFSO = Nothing
End If
%>
<table border="0" cellpadding="0" cellspacing="0" width="400" align="center">
<tr>
<td align="left" width="10"><img src="../images/left.gif" width="8" height="20" border="0" alt=""></td>
<td width="100%" align="center">Image Management</td>
<td align="right" width="10"><img src="../images/right.gif" width="8" height="20" border="0" alt=""></td>
</tr>
<tr>
<td colspan="3" valign="top">
<table border="0" width="100%" bgcolor="#000000" cellpadding="0" cellspacing="1" valign="top">
<tr>
<td bgcolor="#fffff0" valign="top">
<table cellpadding="0" cellspacing="0" border="0" width="100%">
<tr>
<td>
<table width="100%" border="0" align="left" cellpadding="3" cellspacing="0">
<tr align="left" valign="top">
<td width="155"><font class="Bold">File Name</font></td>
<td width="55" align="center"><font class="Bold">Size</font></td>
<td align="center"><font class="Bold">Date</font></td>
<td align="center"><font class="Bold">Actions</font></td>
</tr><%
Dim objFSO 'File System Object
Dim objFile 'File Object
Dim objFolder 'Folder Object
Set objFSO = CreateObject("Scripting.FileSystemObject") 'Create File System Object To Get list of files
Set objFolder = objFSO.GetFolder(server.mappath(ImagesPath)) 'Set the object folder To the mapped path
'For Each file In the folder
For Each objFile In objFolder.Files
if objFile.Name <> "blank.gif" then %>
<tr align="left" valign="top">
<td>
<b><%=objFile.Name%></b><br>
<% response.write "<img src='" & ImagesPath & objfile.name & "'>" %>
<hr>
</td><td><%
'We will format the file size so it looks pretty
if objFile.Size <1024 Then
Response.Write objFile.Size & " Bytes"
ElseIf objFile.Size < 1048576 Then
Response.Write Round(objFile.Size / 1024.1) & " KB"
Else
Response.Write Round((objFile.Size/1024)/1024.1) & " MB"
End if %>
</td>
<td><%=objFile.DateLastModified%></td>
<td align="center">[<a href="javascript:confirm_delete('<%=objFile.Name%>')">Del</a>]</td>
</tr><%
end if
Next %>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
**********************************************
Edited by Stefano
Topic Options
Post Options
Thanks(0)
