Dynamisk Billed arkiv

er med på en lytter.... Interessant og er der en der laver det ultimative er der 250 af de stærke på højkant
mvh martens

du har først og fremmest brug for en komponent, der kan manipulere billedet for dig.. f.eks. ASP Image.

Er det din egen server, tingene skal ligge på i sidste ende? ellers skal du sikre dig, du har mulighed for at bruge en sådan komponent på den server.

jeg har dit script

no doubt >> vi glæder os..

på min egen server IIS server, som sagt... jeg har alle muligheder for at installere programmer osv.

<html>

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

<body>
<div align="center"><center>

<table border="0" height="295">
  <tr>
    <td align="center" valign="top" height="24"><p align="center"><font face="Arial" size="2">Herunder
    er liste de <%
counter = 0
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set mappe = fso.GetFolder(server.mappath("."))
set subfiler = mappe.files
for each item in subfiler
if mid(item, instrrev(item, ".") + 1) = "jpg" then
counter = counter + 1
end if
next
%><%=counter%> nyeste billeder<br>
    De kan opdateres ved et tryk&nbsp;<a href="#" onClick="self.location.reload()"><font
    color="#000000">her</font></a></font> </td>
  </tr>
  <tr align="center">
    <td align="center" valign="middle" height="263"><% if request.querystring("action") = "viewbig" then %>
<p><img
    src="<%=request.querystring("billede") %>" border="1"><br>
    <a HREF="java script:history.back(1)"><font size="2" face="Arial" color="#000000">Tilbage</font></a>
<%else%>    </p>
    <div align="center"><center><table border="0" bordercolor="#000000" cellpadding="2"
    cellspacing="0">
<%
function sortArr(myarr, myarrdato)

for k = 0 to ubound(myarr) - 1
minindex = k
for j= k+1 to ubound(myarrdato)
if myarrdato(j) > myarrdato(minindex) then
minindex = j
end if
next
tmp = myarr(k)
myarr(k) = myarr(minindex)
myarr(minindex) = tmp
tmp2 = myarrdato(k)
myarrdato(k) = myarrdato(minindex)
myarrdato(minindex) = tmp2
next

end function

antal = 0
start = request.querystring("start")
if start = "" then
start = 0
end if

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath("."))
Set fc = f.Files
thisfile = right(request.servervariables("script_name"), len(request.servervariables("script_name")) - instrrev(request.servervariables("script_name"), "/"))
For Each billed in fc

navn = lCase(Billed.name)
if navn <> thisfile AND right(navn, 3) <> "asp" AND right(navn, 3) <> "htm" AND right(navn, 4) <> "html" then
arrayBuild = arrayBuild & billed.name & "|"
arraybuild2 = arraybuild2 & billed.datelastmodified & "|"
end if
next
arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))
myArray = Split(arrayBuild, "|")
myArray2 = Split(arrayBuild2, "|")

call sortArr(myArray, myarray2)

Antalsider = int(ubound(myarray) / 6)

for i = start to (start + 5)
if not i >= ubound(myarray) then

if antal = 0 then
Response.Write "<TR>"
end if
%>
      <tr>
        <td bordercolor="#000000" valign="middle"><p align="center"><a
        href="<%=request.servervariables("script_name")%>?action=viewbig&amp;billede=<%=myarray(i)%>"><img
        SRC="<%=myarray(i)%>" alt WIDTH="150" HEIGHT="112" border="0"
        style="border: 1 solid #000000"></a></td>
<%
end if

if antal = 2 then
Response.Write "</TR>"
antal = 0
else
antal = antal + 1
end if
next

%>
      </tr>
    </table>
    </center></div><p><font size="2" face="Arial" color="#000000"><%
if start <> 0 then
response.write("<a href='"&request.servervariables("script_name")&"?start=" & (start - 6) & "''><font face='Arial' size='2' color='#000000'>Forrige side</font></a>")
end if

if start <> 0 AND ubound(myarray) > start + 6 then
response.write("&nbsp;")
end if

if ubound(myarray) > start + 6 then
response.write("<a href='"&request.servervariables("script_name")&"?start=" & (start + 6) & "''><font face='Arial' size='2' color='#000000'>Næste side</font></a>")
end if

end if
%></font></td>
  </tr>
</table>
</center></div>
</body>
</html>

kigger på det... i nærmeste fremtid

dvs... at klokken er ret sent lige nu... måske i morgen

den virker glimragende... nu skal den bare laves om... der er små fejl med at opdatere... desuden er det ikke alle filer der virker... og -DEN ER MEGET KRÆVENDE !.... måske pga at filerne ikke bliver mindre...

hmmm tilsyne ladende tager dette script ikke den første fil med i bunken ??? hvorfor nu det ?