For man kan godt lave det på en mere dynamisk måde, men man kan ikke undvære, at navnene kendes i forvejen, hvis du skal flytte noget af arbejdet over i browseren ...
-- så skal det nemlig laves med javascript, som naturligvis ikke kan aflæse indholdet på serverens harddisk, det skal i så fald ske serverside !-)
-- iøvrigt kunne man ligesågodt skrive koden med 3 bogstaver mere, så også de browsere, som følger industristandarden, fungerer:
.hand { cursor:hand; cursor:pointer; }
-- og
<script typee="text/javascript"> function putimg(x) { document.getElementById('actpic').src='images/img'+x+'.jpg'; } function inspic() { window.opener.allelm.src.value=document.getElementById('actpic').src window.close(); } </script>
Du kan kun aflæse brugerens filer på harddisken, hvis han svarer Tillad i en meget grim prompt-box, som fortæller at han er i gang med at overlade hele sin computer til dig (hvilket han i princippet også gør, da du så kan alt fra at slette harddisken til at skrive virus ind i system-filer !-)
-- og input type file kan man bruge til at få brugeren til at hente en fil på harddisken ...
-- hvis det er billeder på serverens harddisk, kan de ikke aflæses på klient-maskinen, men skal aflæses på serveren og så skal fil-navne (og evt. placeringer !-) skrives ind i koden, så man kan nå dem via noget javascript ...
Javascript kan ikke aflæse indholdet, men det kan du med noget serverside scripting !o]
koden som henter og viser filerne skal IKKE være i js. men asp , det er kun overførelsen af af filnavn og sti som skal "ordnes" via js.
her er asp - koden, ikke at du kan bruge den til noget
<% 'hvis id er forskellig fra ingenting If Request.Querystring("FilID") <> "" then
'Forberedelse af mappe og filnavn til sletning File = Request.querystring("FilID") Sti = Request.querystring("Sti") fil = File
'Slet den valgte fil i den mappen der skal slettes fra Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(Server.Mappath(Sti & fil)) Then objFSO.DeleteFile Server.Mappath(Sti & fil) End If
File = "" Sti = ""
Response.Redirect("filliste_personale.asp") %>
<% Else
Sti= "../../../pix/event/"
Set FSO = CreateObject("Scripting.FileSystemObject") Set Folder = FSO.GetFolder(Server.MapPath(sti))
Set FolderFiles = Folder.Files For Each File In FolderFiles 'If Not Right(File.Name,10) = "anonym.jpg" Then If inStr(File,".jpg") or inStr(file,".gif") Then
slet = file.name %> <a href="#" onclick="top.opener.document.FORMNAVN.EventBillede.value='<%=File.name%>'"> <img title="<%=File.name%>" width="60" src="<%= sti %><%=File.name%>" border="0"></a> <br> <br> <strong>Billedenavn:</strong> <%=File.name%><br> <br> <font size="-2" color="#000000">Slet <a onclick="return confirm('Er du sikker på at du vil slette ?')"href=filliste_personale.asp?FilID=<%= slet %>&Sti=<%= sti %>><%= slet %></a></font> <hr align="center" width="100%" size="1" noshade > <br> <% End If 'End if Next
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.