Omskrivning af kode...

Hey

Jeg lavede engang en kode i ASP som gjorde det muligt at bladre i et billede biblotek... Den viser simpelhen 12 billeder på en side... Sorteret med 4 på hver række...

Er der nogen som kan skrive denne kode om i CGI/Perl???

Hvis du ingen erfaring har med ASP, kan du bare sige til, så skal jeg nok forklare hvordan det skal se ud :-)

På forhånd tak... Her er koden (det kan godt være den er lidt rodet, men den virker :-):

<CENTER><TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR>
<%
Set fs = Server.CreateObject( "Scripting.FileSystemObject" )
folder = server.Mappath("billeder/bib1/thumbnails/")
Set myFolder = fs.GetFolder(folder)
%>
<% For Each thing in myFolder.Files %>
<% If Right(thing.Name,4) = ".gif" Or Right(thing.Name,4) = ".jpg" Then %>
<% totalpics = totalpics + 1 %>
<% End If %>
<% Next %>
<%
thumbwidth = ThumbWidth
thumbheight = ThumbHeight
if request("PageID") = 0 then
page = 0
else
page = CInt(request("PageID"))
end if
pages = totalpics / 12
if NOT cInt(pages) = pages THEN pages = cInt(pages +.5)
pages = round(pages, 0)
pagea = 11 + page
picnumber = 0
Set fs = Server.CreateObject( "Scripting.FileSystemObject" )
dirFullsize = FullDir
folderThumbnails = server.Mappath("billeder/bib1/thumbnails/")
folderFullsize = server.Mappath("billeder/bib1/pictures/")
Set myFolder = fs.GetFolder(folderThumbnails)
%>
<% For Each thing in myFolder.Files %>
<% if picnumber = 3 + page then %>
</TR>
<TR>
<% end if %>
<% if picnumber = 6 + page then %>
</TR>
<TR>
<% end if %>
<% if picnumber = 9 + page then %>
</TR>
<TR>
<% end if %>
<% If Right(thing.Name,4) = ".gif" Or Right(thing.Name,4) = ".jpg" Then %>
<% if picnumber <= pagea then %>
<% if picnumber => page then %>
<TD ALIGN="center" WIDTH="80" HEIGHT="60"><a href="<%=ThumbDir%>/<%=thing.Name%>" target="_top"><img src="<%=ThumbDir%>/<%=thing.Name%>" border="0" width="<%= thumbwidth %>" height="<%= thumbheight %>"></a></TD>
<% end if %>
<% end if %>
<% End If %>
<% picnumber = picnumber + 1 %>
<% Next %>
<%
prevpage = page - 12
nextpage = page + 12
pagenumber = page / 12
pagenumber = pagenumber + 1
%>
</TR>
</TABLE>Der er i alt <%=totalpics%> billeder, fordelt på <%=pages%> sider<BR><% if prevpage < 0 then %>Forrige side | <% else %><A HREF="pictures.asp?PageID=<%=prevpage%>" TARGET="_top" STYLE="color:#FFFFFF;">Forrige side</A> | <% end if %>Dette er side <%=pagenumber%><% if nextpage => totalpics then %> | Næste side<% else %> | <A HREF="pictures.asp?PageID=<%=nextpage%>" TARGET="_top" STYLE="color:#FFFFFF;">Næste side</A><% end if %></CENTER>