<%@ Language=VBScript %> <% Option Explicit %> <% Const ImageFilePath = "." Const DeleteButtonLabel = "Delete Selected Images" Dim objFSO Dim objFolder Dim objFile Dim strFileName Dim strFileExtension Dim blnShowImages If Request.QueryString("ShowImages") = "" Then blnShowImages = false Else blnShowImages = CBool(Request.QueryString("ShowImages")) End If If Request.Form("btnDelete") = DeleteButtonLabel Then Set objFSO = Server.CreateObject("Scripting.FileSystemObject") For Each strFileName In Request.Form("delete") objFSO.DeleteFile(Server.MapPath(ImageFilePath & "/" & strFileName)) Next Set objFSO = Nothing End If %> ASP 101 Image Browser & Killer!
Listing     Reference     Search     Home
" method="post"> <% Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(ImageFilePath)) For Each objFile In objFolder.Files strFileExtension = LCase(Mid(objFile.Name, InStrRev(objFile.Name, ".", -1, 1) + 1)) If strFileExtension = "gif" Or strFileExtension = "jpg" Or strFileExtension = "jpeg" Then ' Original image file identification option: 'If objFile.Type = "GIF Image" Or if objFile.Type = "JPEG Image" Then %> <% If blnShowImages Then %> <% Else %> <% End If %> <% End If Next Set objFolder = Nothing Set objFSO = Nothing %>
Name ?ShowImages=<%= Not blnShowImages %>">Toggle Images     <% if request.cookies("zomaxp") = "Master" then %> Check To Delete <% end if %>
<% if request.cookies("zomaxp") = "Master" then %> <% end if %>
"> <%= objFile.Name %> " /> "> View Image
Listing     Top     Search