Søg
Avatar billede no_doubt Nybegynder
25. maj 2002 - 19:37 Der er 14 kommentarer og
1 løsning

FSO Image

Er der en der kan finde ud af at kombinere Javascript og ASP jeg har følgende Java Script : <script language="javascript">
function visbilled( billedUrl ) {
  window.open( "visning.htm?"+billedUrl, "picvindue",
          "resizable=1" );
}; //end visbilled( string )
</script>

<html>

<head>
<title></title>
</head>

<body>

<table border="0" width="100%">
  <tr>
    <td width="20%"><p align="center"><a href="java script:void(0)"
    onclick="visbilled('hmm.JPG')"><font color="#000000" face="Arial"><small>Others Logged On
    - WIN XP</small></font></a></td>
    <td width="20%"><p align="center"><a href="java script:void(0)"
    onclick="visbilled('Ekspertenarray.JPG')"><font color="#000000" face="Arial"><small>Eksperten
    - Array</small></font></a></td>
    <td width="20%"><p align="center"><a href="java script:void(0)"
    onclick="visbilled('fejl.JPG')"><font color="#000000" face="Arial"><small>16 BIT - WIN XP</small></font></a></td>
    <td width="20%"><p align="center"><a href="java script:void(0)"
    onclick="visbilled('xpfejl.JPG')"><font color="#000000" face="Arial"><small>Udråbstegn
    Systray - WIN XP</small></font></a></td>
    <td width="20%"></td>
  </tr>
</table>
</body>
</html>

Hvor jeg bare gerne vil have FSO til liste alle billederne og så skal javascriptet tage over og åbne det givne billede, sådan så det bliver listet sådan her. http://www.fredericia-bynight.dk/eksperten/VisBilledet.htm
Avatar billede eagleeye Praktikant
25. maj 2002 - 23:55 #1
du kan gøre noget i stil med, dog ved jeg ikke hvor du får deskrivelsen til hvert bille fra?:

<html>
<head>
<script language="javascript">
function visbilled( billedUrl ) {
  window.open( "visning.htm?"+billedUrl, "picvindue", "resizable=1" );
}; //end visbilled( string )
</script>
</head>
<body>
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
myPath = server.MapPath(".")
Set folder = FSO.GetFolder(myPath)
%>
<table border="0" width="100%">
  <tr>
<%
for each file in folder.files
%> 
  <td width="20%"><p align="center"><a href="java script:void(0)"
  onclick="visbilled('<%=file.name%>')"><font color="#000000" face="Arial">
  xxTEKSTxx</p>
  <p align="center">
  <img src="<%=file.name%>" width="110" height="70" alt="hmm.JPG (9072 bytes)"></td> 
 
<%
next
%>
  </tr>
</table>

</body>
</html>
Avatar billede no_doubt Nybegynder
26. maj 2002 - 00:48 #2
Jamen det tager sig ud sådan : http://www.fredericia-bynight.dk/eksperten/BilledPop.asp
Avatar billede eagleeye Praktikant
26. maj 2002 - 01:31 #3
Ja..? som jeg skrev før så kan den jo ikke skrive en smart beskrivelse til filen... Hvis du vil hvade X pr linie så smat den kun viser jpg jpeg og gif filer så prøv denne..:

<html>
<head>
<script language="javascript">
function visbilled( billedUrl ) {
  window.open( "visning.htm?"+billedUrl, "picvindue", "resizable=1" );
}; //end visbilled( string )
</script>
</head>
<body>
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
myPath = server.MapPath(".")
Set folder = FSO.GetFolder(myPath)
%>
<table border="0" width="100%">

<%
noColPrRow = 0
maxColsPrRow = 4
for each file in folder.files
  indexExt = inStrRev(file.name, ".")
  if indexExt > 0 then
    fileExt = lcase(mid(file.name,indexExt+1))
  else
    fileExt = ""
  end if
 
  if fileExt = "jpg" OR fileExt = "jpeg" OR fileExt = "gif" then
    if noColPrRow = 0 then
      Response.Write "<tr>"
    end if
%> 
  <td width="20%"><p align="center"><a href="java script:void(0)"
  onclick="visbilled('<%=file.name%>')"><font color="#000000" face="Arial">
  xxTEKSTxx</p>
  <p align="center">
  <img src="<%=file.name%>" width="110" height="70" alt="hmm.JPG (9072 bytes)"></td>
<%
    noColPrRow = noColPrRow + 1
    if noColPrRow = maxColsPrRow then
      Response.Write "<tr>"
      noColPrRow = 0
    end if
   
  end if
next
%>
</table>

</body>
</html>
Avatar billede eagleeye Praktikant
26. maj 2002 - 01:35 #4
du kan rette denne:
<img src="<%=file.name%>" width="110" height="70" alt="hmm.JPG (9072 bytes)"></td>

Til denne hvis du ikke vil alle billeder med ALT="hmmm.jpg"
<img src="<%=file.name%>" width="110" height="70" alt="<%=file.name%>"></td>
Avatar billede no_doubt Nybegynder
26. maj 2002 - 01:39 #5
Ja sådan ca. på nær at der hvor der står tekst skal navnet på billedet være og der skal være rækker med 3 i hver
Avatar billede eagleeye Praktikant
26. maj 2002 - 11:19 #6
For 3 pr rækker ret denne linie :
maxColsPrRow = 4 
til:
maxColsPrRow = 3

For teksten over billedet, ret denne linie:
xxTEKSTxx</p>
Til:
<%=file.name%></p>
Avatar billede eagleeye Praktikant
26. maj 2002 - 12:00 #7
hmm jeg prøvede lige dit link. Der var stadig et <tr> fra den førse kode..

Prøv at paste alt dette ind:

<html>
<head>
<script language="javascript">
function visbilled( billedUrl ) {
  window.open( "visning.htm?"+billedUrl, "picvindue", "resizable=1" );
}; //end visbilled( string )
</script>
</head>
<body>
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
myPath = server.MapPath(".")
Set folder = FSO.GetFolder(myPath)
%>
<table border="0" width="100%">

<%
noColPrRow = 0
maxColsPrRow = 3
for each file in folder.files
  indexExt = inStrRev(file.name, ".")
  if indexExt > 0 then
    fileExt = lcase(mid(file.name,indexExt+1))
  else
    fileExt = ""
  end if
 
  if fileExt = "jpg" OR fileExt = "jpeg" OR fileExt = "gif" then
    if noColPrRow = 0 then
      Response.Write "<tr>"
    end if
%> 
  <td width="20%"><p align="center"><a href="java script:void(0)"
  onclick="visbilled('<%=file.name%>')"><font color="#000000" face="Arial">
  <%=file.name%></p>
  <p align="center">
  <img src="<%=file.name%>" width="110" height="70" alt="<%=file.name%>"></td>
<%
    noColPrRow = noColPrRow + 1
    if noColPrRow = maxColsPrRow then
      Response.Write "<tr>"
      noColPrRow = 0
    end if
   
  end if
next
%>
</table>

</body>
</html>
Avatar billede no_doubt Nybegynder
26. maj 2002 - 12:59 #8
ja sån også skal man kunne sætte dem op lodret. så man selv kan bestemme hvor mange der skal være på linje.
Avatar billede eagleeye Praktikant
26. maj 2002 - 13:31 #9
ikke forstået ?  hvis man har 6 billeder hvordan skal de vises
[1][4]
[2][5]
[3][6]

Eller
[1][2][3]
[4][5][6]
Avatar billede no_doubt Nybegynder
26. maj 2002 - 14:21 #10
sidste løsning men det ville være rart om man selv i koden kunne bestemme.
Avatar billede eagleeye Praktikant
26. maj 2002 - 14:42 #11
Brug koden i kommentar (26/05-2002 12:00:06)

Du kan selv bestemme antallet ved at ændre maxColsPrRow:
maxColsPrRow = 3  'giver 3 pr rækker
maxColsPrRow = 6  'giver 6 pr rækker

Eller hvordan mener du ændre?
Avatar billede no_doubt Nybegynder
26. maj 2002 - 15:42 #12
Hvorfor er denne med : noColPrRow = 0
Det virker ikke som om den gør noget, nå.. men jeg kan ikke få det til at virker.
Avatar billede eagleeye Praktikant
26. maj 2002 - 16:24 #13
Denne:  noColPrRow  bruges som tæller for at holde styr på hvor mange kolonner der er skrvet ud...
Avatar billede no_doubt Nybegynder
26. maj 2002 - 16:40 #14
kan du lave det så man selv kan bestemme hvor mange rækker og kolonner der skal være
Avatar billede eagleeye Praktikant
26. maj 2002 - 20:52 #15
Vil du blande de to metoder?
Det skal laves i stil med: det bliver lige hurtig da jeg er på vej ud af døren er først tilbage tirsdag aften..:

Her kan du bestemme hvor mange rækker der skal være pr kolonne ved at ændre RowPrTable.

RowPrTable = 4
noRowPrTable = 0

response.write ("<table><tr>")
for each file in folder.files
  indexExt = inStrRev(file.name, ".")
  if indexExt > 0 then
    fileExt = lcase(mid(file.name,indexExt+1))
  else
    fileExt = ""
  end if
 
  if fileExt = "jpg" OR fileExt = "jpeg" OR fileExt = "gif" then
    if noRowPrTable = 0 then
      Response.write "<td><table>"
    end if
    %><tr>
  <td width="20%"><p align="center"><a href="java script:void(0)"
  onclick="visbilled('<%=file.name%>')"><font color="#000000" face="Arial">
  <%=file.name%></p>
  <p align="center">
  <img src="<%=file.name%>" width="110" height="70" alt="<%=file.name%>"></td>
  </tr>
  <%
    noRowPrTable = noRowPrTable + 1
    if noRowPrTable = RowPrTable then
      response.write "</table></td>"
      noRowPrTable = 0
    end if
  end if
next
response.write ("</tr></table>")
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 19:20 Hvor kan man finde en god bærbar computer? Af Strawberry i PC
I går 15:45 lukke sikkerhedshuller Af Asky i PHP
21/1018:38 Værktøj til redigering af hjemmeside på android tablet Af Lisbet 80 i Apps til Android
20/1014:59 Fejl ved forsøg på åbning af Access mdb og mde Databaser Af Uvanga i Access
19/1014:58 Scanner program til PC Af fjorbak i Andet software
White papers
Flere white papers »