21. august 2003 - 10:09Der er
17 kommentarer og 1 løsning
billeder i mapper
Hej
Jeg har en side der skal vise en masse billeder (da det er fotografer).
Fotograferne skal selv uploade alle billederne, så det skal være så nemt som muligt.
Kan det lade sig gøre at lave et asp script der kan tjekke hvilke billeder der ligger i en given mappe og returnere resultatet (med billedernes navne) til flash?
Som det er nu bliver de nød til at gå ind i et lille modul hvor de skal skrive navnene på billederne, som så gemmes i en tekstfil.
<% dir = request.querystring("dir") Set fso = CreateObject("Scripting.FileSystemObject") Set folderObject = fso.GetFolder(Server.MapPath(dir)) Set filer = FolderObject.Files
For Each File In filer Response.Write File.name Next %>
Sådan her..
Så henter du siden med: default.asp?dir=mappe
Så kan du på den måde få vist alle filer i mappen ved navn mappe...
ellebæk: Det ser fornuftigt ud. Giv mig lige lidt tid til at teste det i. (ikke fordi jeg ikke tror det virker, jeg skal lige finde ud af hvordan jeg bruger det sammen med flash...)
<% dir = request.querystring("dir") Set fso = CreateObject("Scripting.FileSystemObject") Set folderObject = fso.GetFolder(Server.MapPath(dir)) Set filer = FolderObject.Files
For Each File In filer Response.Write File.name & "<br>" streng = File.name & "<br>" Next
set fso = CreateObject("Scripting.FileSystemObject") set fso = fso.openTextFile(Server.Mappath("dinfil.txt"),2) fso.write streng
%> Sådan her, så kan den også skrive til en tekstfil..!
Så virker det som det skal.. <% dir = request.querystring("dir") Set fso = CreateObject("Scripting.FileSystemObject") Set folderObject = fso.GetFolder(Server.MapPath(dir)) Set filer = FolderObject.Files
For Each File In filer Response.Write File.name & "<br>" streng = streng & File.name & Vbcrlf Next
set fso = CreateObject("Scripting.FileSystemObject") set fso = fso.openTextFile(Server.Mappath("dinfil.txt"),2) fso.write streng
jeg ved godt jeg ikke fatter så meget : ) Er det her rigtigt:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dir = request.querystring("dir") Set fso = CreateObject("Scripting.FileSystemObject") Set folderObject = fso.GetFolder(Server.MapPath(dir)) Set filer = FolderObject.Files
For Each File In filer Response.Write File.name & "<br>" streng = File.name & "<br>" Next %> <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head>
<body> <% dir = request.querystring("dir") Set fso = CreateObject("Scripting.FileSystemObject") Set folderObject = fso.GetFolder(Server.MapPath(dir)) Set filer = FolderObject.Files
For Each File In filer Response.Write File.name & "<br>" streng = File.name & "<br>" Next %>
</body> </html>
Sådan her... Så kan du skifte alt asp-koden ud med det jeg skrev til sidst hvis det skal kunne bruges i forbindelse med skrivning til en tekstfil...
det skal ikke skrive en textfil. Det var bare et eksempel på en asp funktion edr blev brugt i flash.
Behøves jeg overhovedet alt det der html halløj? Kan jeg ikke bare skrive:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% dir = request.querystring("dir") Set fso = CreateObject("Scripting.FileSystemObject") Set folderObject = fso.GetFolder(Server.MapPath(dir)) Set filer = FolderObject.Files
For Each File In filer Response.Write File.name & "<br>" streng = streng & File.name & Vbcrlf Next %>
Hvad skal Language være hvis det skal køre fra en almindelig asp server?
du kan sagtens nøjes med kun... <% dir = request.querystring("dir") Set fso = CreateObject("Scripting.FileSystemObject") Set folderObject = fso.GetFolder(Server.MapPath(dir)) Set filer = FolderObject.Files
For Each File In filer Response.Write File.name & "<br>" streng = streng & File.name & Vbcrlf 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.
