Så lykkedes det!
Denne kode skulle gerne vise alle billeder i en bestemt mappe.
Det kører i asp og det eneste problem er at man ikke kan opdatere siden bagefter.
Here goes:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "
http://www.w3.org/TR/html4/loose.dtd"><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Alle billeder</title>
</head>
<body>
<% If Request.QueryString("picname")<>"" Then %>
<% Dim Billednavn, MappeMedBilleder
Billednavn = Request.Querystring("picname")
MappeMedBilleder = "/admin/images/uploaded_images/" ' Stien til den mappe der indeholder billedet du vil slette
Set fso = Server.CreateObject("Scripting.FileSystemObject") ' Åbner FileSystemObject
fso.DeleteFile (Server.Mappath(MappeMedBilleder & Billednavn)) 'Sletter filen, hvor du har defineret MappeMedBilleder, og billednavn
%>
<% End If %>
<%
dim jm_fso, jm_file, jm_types, jm_path, jm_folder,jm_show,jm_i,jm_ext
jm_ext=true
jm_path = "uploaded_images" ' Sti til mappen med billeder der skal vises
jm_types = split(replace("jpeg, jpg, gif"," ",""),",") ' Her angives hvilke filtype der skal vises
Set jm_fso = Server.CreateObject("Scripting.FileSystemObject")
Set jm_folder = jm_fso.GetFolder(Server.MapPath(jm_path))
response.Write("<table border=""0"" cellspacing=""6"">")
For Each jm_file in jm_folder.Files
jm_show=false
for jm_i=0 to ubound(jm_types,1)
If lcase(right(jm_file.name,3)) = jm_types(jm_i) then jm_show=true
next
If jm_show=true then
%>
<tr>
<td><a href="show_images.asp?picname=<%= jm_File.Name %>" onclick="return confirm('Er du sikker på at du vil slette billedet: <%= jm_File.Name %>?');"><img src="uploaded_images/<%= jm_File.Name %>" alt="Slet: <%= jm_File.Name %>?" border="0" ></a></td>
<td><%= jm_File.Name %> </td>
</tr>
<%
end if
next
%>
</table>
<%
set jm_file=nothing
set jm_folder = nothing
set jm_fso=nothing%>
<br>
</body>
</html>
Slettet bruger
Ny bruger
Nybegynder
Opret
Preview
