>Det vil jeg da meget gerne se hvis jeg må?
Jeg har smidt koden i bunden af denne post. Beklager de mange linier,
men håber det er ok. Bemærk at koden jo er lavet til mit design, så
der skal jo nok lige pilles lidt for at det ser fint ud igen.
Men spørg hvis det ser helt håbløst ud. Det er ikke den dybe tallerken
der er opfundet, det er blot brug af File System Object.
>Det er et ret godt galleri.
Enig. Det ser godt ud.
>Det skal køre på en Apache-server med diverse ting installeret.
Ok. Så går det ikke på min windåse.
Mvh. Brian
FUT til dk.edb.internet.webdesign.serverside.asp
----------------------Koden--------------
Java-scriptet først, som placeres i <HEAD>
<script type="text/javascript">
function openwindow(fotonavn, bredde, hojde) {
i = open("",
"displayWindow","top=1,left=1,width="+bredde+",height="+hojde+",status=no,toolbar=no,menubar=no,resize=no,dependent=yes");
i.focus();
i.document.open();
i.document.write('<html>')
i.document.write('<head>')
i.document.write('<title>Fotoalbum<\/title>')
i.document.write('<\/head>')
i.document.write('<body bgcolor="#000000">')
i.document.write('<img
src="'+fotonavn+'" ALT="">')
i.document.write('<\/body>')
i.document.write('<\/html>');
}
</script>
Dernæst ASP koden
<%
Sub CheckFile (strFileName)
Set objImg = Server.CreateObject("ImgSize.Check")
objImg.FileName = strFileName
If objImg.Error = "" Then
bredden = objImg.Width
hojden = objImg.Height
End If
Set objImg = nothing
End Sub
ImageDir = "../gfx/foto/thumb/" ' Mappen med filerne
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files
intPage = Request.Querystring("page")
If isNumeric(intPage) = False Or intPage < 1 Then
intPage = 1
End If
intPageSize = 30 ' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))
Response.Write "<H5>"
Response.Write "Der er ialt " & intImgCount & " Billeder i vores
fotoalbum. "
Response.Write "Dette er side " & intPage & " af " & intPageCount &
"<BR><BR>"
bredden=750
hojden=550
For Each Image In objFiles
intFile = intFile +1
If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =<
(intPageSize*intPage)) Then
CheckFile ("d:\home\patriciabrincdk\www\gfx\foto\" &
Image.Name)
vaerd = """javascript
enwindow('../../gfx/foto/" &Image.Name
& "',"& bredden & "," & hojden &")"""
Response.Write "<a href=" & vaerd & "><img class=""foto"" src=""" &
ImageDir & Image.Name & """ alt=""""></A> "
End If
Next
Response.Write "</H5>"
Response.Write "<BR><BR>"
strScriptName = Request.Servervariables("ScriptName")
Response.Write "<H4>"
If intPage > 1 Then
NySide = intPage - 1
Response.Write "<a href='" & strScriptName & "?Page=" & NySide
& "' class=""lnk"">[Forrige Side] </A>"
End If
For i = 1 To intPageCount
Response.Write " <a href='" & strScriptName & "?page=" & i & "'
class=""lnk"">" & i & " </a>"
Next
If Cint(intPage) < Cint(intPageCount) then
NySide = intPage + 1
Response.Write "<a href='" & strScriptName & "?Page=" & NySide
& "' class=""lnk"">[Næste Side]</A>"
End If
Response.Write "</H4>"
Set objFS = Nothing
%>