ASP: Lese mappeinnhold (bilder)

[JohnRichard]

Hei!

 

Er det noen måte jeg kan lese ut alle filene som ligger i en bestemt mappe, og hente tilleggsinformasjon fra en database dersom det finnes?

 

Er vel kun filnavnet jeg kan matche på i databasen.

[backup]

Her har du iallfall et asp-script som sender alle jpg- og gif-filer i mappa webutvikling på roten i www, tilbake til klienten:

 

<%

strFolder = server.mappath("\webutvikling") 'mappe på roten i www

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(strFolder)

Set colFiles = objFolder.Files

For Each objFile In colFiles

if right(objfile.Name,3) ="jpg" or right(objfile.Name,3)= "gif" then

response.write "<img src = " & objFile & "><br>"

end if

Next

%>

 

I loopen fikser du hvordan du egentlig vil ha bildene på websida til klienten og med "or" legger du til flere bildetyper etter behov. Det med databasen bør du nok gir mer opplysninger om tror jeg for å få konkrete tips her.

Endret 11. april 2006 av backup

[JohnRichard]

Dette hjelper meg greit på vei.

Databasen har jeg kontroll på, men kunne trengt en måte å mathe filnavnet mot databasen på, slik at jeg kunne hentet ut felter fra databasen der hvor filnavnet matcher feltet FileName i databasen for. eksempel.

[backup]

Ok, her har du et eksempel der databasen heter minDatabase.mdb (access-database), tabellen heter minTabell og bildekollonnen heter bildeFilNavn. Bytt dette ut med dine egne navn.

 

<%

strFolder = server.mappath("\webutvikling") 'mappe på roten i www

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFolder = objFSO.GetFolder(strFolder)

Set colFiles = objFolder.Files

Set conn = Server.CreateObject("ADODB.Connection")

Set rs = Server.CreateObject("ADODB.RecordSet")

DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)};"

databaseadresse = Server.MapPath("minDatabase.mdb")

DSNtemp=dsntemp & "DBQ=" & databaseadresse

conn.Open DSNtemp

SQLquery = "SELECT * FROM minTabell"

For Each objFile In colFiles

if right(objfile.Name,3) ="jpg" or right(objfile.Name,3)= "gif" then

rs.Open SQLquery, conn

rs.MoveFirst

do while Not rs.eof

if rs.Fields("bildeFilnavn") = right(objfile.Name,3) then

'her gjør du det du vil hvis match

end if

rs.MoveNext

loop

rs.Close

end if

Next

%>

Endret 11. april 2006 av backup

[JohnRichard]

Respekt.

 

Tusen takk for at du lånte meg litt av din tid

 

[backup]

Bare hyggelig å hjelpe folk som veit hva dem driver med, at dem tar hintene dem får, som du!