De fleste virksomheder har efterhånden bevist, at AI virker.
Pilotprojekter leverer resultater. Medarbejdere bruger generative AI-værktøjer. Nye use cases dukker op på tværs af organisationen.
på en hjemmeside skal det nok lige siges, det skal bare være sådan at mappen bliver defineret i fso som overstående og vise sådan 1 2 3 4 5 6 Næste side
if Request.QueryString("billede") = "" then start = request.querystring("start") if start = "" then start = 0
Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(server.mappath(billedeSti))
Set fc = f.Files For Each billed in fc if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(billed.name))) > 0 then arrayBuild = arrayBuild & billed.name & "|" end if next if arrayBuild <> "" then arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))
myArray = Split(arrayBuild, "|")
Antalsider = int(ubound(myarray) / antalBillederPrSide) antal = 0 for i = start to (start + antalBillederPrSide-1) if not i > ubound(myarray) then if antal = 0 then Response.Write "<TR>" %> <td ><p align="center"> <a href="?billede=<%=billedeSti%>/<%=myArray(i)%>"> <img SRC="<%=billedeSti%>/<%=myArray(i)%>" border="1" color="black" WIDTH="116" HEIGHT="82"> </a></td> <% else nesteside = 1 end if
antal = antal + 1 if antal = antalBillederPrRekke then Response.Write "</TR>" antal = 0 end if next if antal > 0 then Response.Write "</TR>" %> </table> <center> <% if start <> 0 then response.write "<a href=""?start=" & (start - antalBillederPrSide) & """>Forrige</a>" end if response.write(" ") if nesteside <> 1 then response.write "<a href=""?start=" & (start + antalBillederPrSide) & """>Næste</a>" end if %> </center> <% else 'Vis billedet %> <tr><td align="center"> <img SRC="<%=Request.QueryString("billede")%>" border="1"> <p align="center"><a href="java script:history.back();">Tilbage</a></p> </td> </tr> </table> <% end if %> </div> </body> </html>
Du kan med disse 3 linjer bestemme hvor billerne skal tages fra samt hvor man billder der skal være på siden og hvor mange der skal være på hver række:
Den føste angiver stien til billederne (vismappe), den hedder bare billedeSti her: billedeSti = "/billeder/"
Denne bruges til at angive hvor mange billeder der skal vise på siden antalBillederPrSide = 6
Denne bruges til at angive hvor mange billeder der skal vise i en række antalBillederPrRekke = 3
For Each billed in fc if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(billed.name))) > 0 then arrayBuild = arrayBuild & billed.name & "|" end if next
og gemmer dem i en listen som bliver lavet til et array.
Når man udskiver så det fra arrayet her:
for i = start to (start + antalBillederPrSide-1) if not i > ubound(myarray) then
Det som udskriver billederne er dette, den regner ud hvor den skal state i arrayet af filer og slutte i føste linje nedenfor. Så et billede ikke vise på to sider.
for i = start to (start + antalBillederPrSide-1) if not i > ubound(myarray) then if antal = 0 then Response.Write "<TR>" %> <td ><p align="center"> <a href="?billede=<%=billedeSti%>/<%=myArray(i)%>"> <img SRC="<%=billedeSti%>/<%=myArray(i)%>" border="1" color="black" WIDTH="116" HEIGHT="82"> </a></td> <% else nesteside = 1 end if
antal = antal + 1 if antal = antalBillederPrRekke then Response.Write "</TR>" antal = 0 end if next
intet <% If request.querystring("VisMappe") > " " then
Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(server.mappath(vismappe))
Set fc = f.Files For Each billed in fc
if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(billed.name))) > 0 then arrayBuild = arrayBuild & billed.name & "|" end if next for i = start to (start + antalBillederPrSide-1) if not i > ubound(myarray) then if antal = 0 then Response.Write "<TR>" %> <td ><p align="center"> <a href="?billede=<%=billedeSti%>/<%=myArray(i)%>"> <img SRC="<%=billedeSti%>/<%=myArray(i)%>" border="1" color="black" WIDTH="116" HEIGHT="82"> </a></td> <% else nesteside = 1 end if
antal = antal + 1 if antal = antalBillederPrRekke then Response.Write "</TR>" antal = 0 end if next
start = request.querystring("start") if start = "" then start = 0
Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(server.mappath(billedeSti))
Set fc = f.Files For Each billed in fc if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(billed.name))) > 0 then arrayBuild = arrayBuild & billed.name & "|" end if next if arrayBuild <> "" then arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))
myArray = Split(arrayBuild, "|")
Antalsider = int(ubound(myarray) / antalBillederPrSide) antal = 0 for i = start to (start + antalBillederPrSide-1) if not i > ubound(myarray) then if antal = 0 then Response.Write "<TR>" %> <td ><p align="center"> <a href="?billede=<%=billedeSti%>/<%=myArray(i)%>"> <img SRC="<%=billedeSti%>/<%=myArray(i)%>" border="1" color="black" WIDTH="116" HEIGHT="82"> </a></td> <% else nesteside = 1 end if
antal = antal + 1 if antal = antalBillederPrRekke then Response.Write "</TR>" antal = 0 end if next if antal > 0 then Response.Write "</TR>" %> </table> <center> <% if start <> 0 then response.write "<a href=""?visMappe="&visMappe&"&start=" & (start - antalBillederPrSide) & """>Forrige</a>" end if response.write(" ") if nesteside <> 1 then response.write "<a href=""?visMappe="&visMappe&"&start=" & (start + antalBillederPrSide) & """>Næste</a>" end if end if %> </center> </div> </body> </html>
Det er sådan set ligemeget hvor selv ASP filen ligger. visMappe skal inde holde hele stien fra root (/) til om med navnet på den folder som filerne skal listes fra.
if start <> 0 then response.write "<a href=""?visMappe="&visMappe&"&start=" & (start - antalBillederPrSide) & """>Forrige</a>" end if response.write(" ") if nesteside <> 1 then response.write "<a href=""?visMappe="&visMappe&"&start=" & (start + antalBillederPrSide) & """>Næste</a>" end if
Om til dette:
<font face="Arial" size="2" color="#000000"> <% if start <> 0 then response.write "<a href=""?visMappe="&visMappe&"&start=" & (start - antalBillederPrSide) & """>Forrige</a>" end if response.write(" ") if nesteside <> 1 then response.write "<a href=""?visMappe="&visMappe&"&start=" & (start + antalBillederPrSide) & """>Næste</a>" end if %> </font> <%
Grunden til der er blå kant omkring er fordi det er et link. Så hvis det skal være sort så skal link farven fjernes.
<% sti = "billeder/" VisMappe = sti & request("VisMappe") ShowSubLink = request("VisMappe") strPathInfo = VisMappe
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPhysicalPath)
For each Folder in objFolder.SubFolders If Left(Folder.Name,1)<>"_" Then Response.Write "<li>" & "<a href=""" & CurFile & "?VisMappe=" & ShowSubLink & "" Response.Write(Replace(Folder.Name, " ", "%20")) response.write """><font color=""#000000"">" Response.Write Folder.Name Response.Write "</font><br>" End if Next
Set objFSO = Nothing %> <% If request.querystring("VisMappe") <> "" then
visMappe = Request.QueryString("vismappe") if visMappe <> "" then billedeSti = "billeder/" & visMappe antalBillederPrSide = 6 antalBillederPrRekke = 3
start = request.querystring("start") if start = "" then start = 0
Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(server.mappath(billedeSti))
Set fc = f.Files For Each billed in fc if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(billed.name))) > 0 then arrayBuild = arrayBuild & billed.name & "|" end if next if arrayBuild <> "" then arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))
myArray = Split(arrayBuild, "|")
%> <table border="0"> <% Antalsider = int(ubound(myarray) / antalBillederPrSide) antal = 0 for i = start to (start + antalBillederPrSide-1) if not i > ubound(myarray) then if antal = 0 then Response.Write "<TR>" %> <td> <a href="<%=billedeSti%>/<%=myArray(i)%>"> <img SRC="<%=billedeSti%>/<%=myArray(i)%>" border="1" color="black" HEIGHT="82" style="border: 1 solid #000000" width="100"> </td> <% else nesteside = 1 end if
antal = antal + 1 if antal = antalBillederPrRekke then Response.Write "</TR>" antal = 0 end if next if antal > 0 then Response.Write "</TR>" %> </table>
<table><tr><td> <font face="Arial" size="2" color="#000000"> <% if start <> 0 then response.write "<a href=""?visMappe="&visMappe&"&start=" & (start - antalBillederPrSide) & """><font face='Arial' size='2' color='#000000'>Forrige</font></a>" end if response.write(" ")%> <%if nesteside <> 1 then response.write "<a href=""?visMappe="&visMappe&"&start=" & (start + antalBillederPrSide) & """><font face='Arial' size='2' color='#000000'>Næste side</font></a>" end if %> </font> </td></tr></table>
har prøvet dit script her, har fulgt med i det skjulte men jeg for fejl med denne, mener at kunne huske at min server ikke vil godtage denne grundet sikkerheds hensyn
<% sti = "billeder/" visMappe = sti & request("VisMappe") ShowSubLink = request("VisMappe") strPathInfo = VisMappe
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPhysicalPath)
For each Folder in objFolder.SubFolders If Left(Folder.Name,1)<>"_" Then Response.Write "<li>" & "<a href=""" & CurFile & "?VisMappe=" & ShowSubLink & "" Response.Write(Replace(Folder.Name, " ", "%20")) response.write """><font color=""#000000"">" Response.Write Folder.Name Response.Write "</font><br>" End if Next
Set objFSO = Nothing %> <% If request.querystring("VisMappe") <> "" then
visMappe = Request.QueryString("vismappe") if visMappe <> "" then billedeSti = "billeder/" & visMappe antalBillederPrSide = 6 antalBillederPrRekke = 3
start = request.querystring("start") if start = "" then start = 0
Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(server.mappath(billedeSti))
Set fc = f.Files For Each billed in fc if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(billed.name))) > 0 then arrayBuild = arrayBuild & billed.name & "|" end if next if arrayBuild <> "" then arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))
myArray = Split(arrayBuild, "|")
%> <center> <table border="0" width="100%"> <% Antalsider = int(ubound(myarray) / antalBillederPrSide) antal = 0 for i = start to (start + antalBillederPrSide-1) if not i > ubound(myarray) then if antal = 0 then Response.Write "<TR>" %> <td width="33%" align="center"> <a href="<%=billedeSti%>/<%=myArray(i)%>"> <img SRC="<%=billedeSti%>/<%=myArray(i)%>" border="1" color="black" HEIGHT="82" style="border: 1 solid #000000" width="100"> </td> <% else nesteside = 1 end if
antal = antal + 1 if antal = antalBillederPrRekke then Response.Write "</TR>" antal = 0 end if next if antal > 0 then Response.Write "</TR>" %> </table> </center>
<center> <table><tr><td> <font face="Arial" size="2" color="#000000"> <% if start <> 0 then response.write "<a href=""?visMappe="&visMappe&"&start=" & (start - antalBillederPrSide) & """><font face='Arial' size='2' color='#000000'>Forrige</font></a>" end if response.write(" ")%> <%if nesteside <> 1 then response.write "<a href=""?visMappe="&visMappe&"&start=" & (start + antalBillederPrSide) & """><font face='Arial' size='2' color='#000000'>Næste side</font></a>" end if %> </font> </td></tr></table> </center>
Eagle., giver dig points nu men vil gerne have en mail hvis du vil hjælpe, eller ej.
Synes godt om
Ny brugerNybegynder
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.