<% if request("Folder") <> "" then %>
<%
Dim CurFile, ShowSub, ShowPic, PictureNo
Dim strPathInfo, strPhysicalPath
CurFile = "index.asp?SubDir="&request("SubDir")
PopUp = "./billedearkivPopUp.asp"
%>
<%
' Sæt stien til hvilken mappe, billederne ligger i
'ShowPic = request("ShowPic")
Billedmappen = "billedmapper" '<- Her angives mappens navn, hvor alle undermapperne ligger
SubFolder = request("SubFolder") '<- angivelse af mappe-variabel
MainFolder = request("Folder")
if MainFolder ="" then
MainFolder="Diverse"
End if
If SubFolder > " " then
'sti = "./"&Billedmappen&"/"&MainFolder&"/"&SubFolder&"/thumbnails"
sti = "./"&MainFolder&"/"&SubFolder&"/thumbnails"
'response.write sti
else
'sti = "./"&Billedmappen&"/"&MainFolder&"/thumbnails"
sti = "./"&MainFolder&"/thumbnails"
End if
'response.write sti
Set fs = Server.CreateObject( "Scripting.FileSystemObject" )
Set Folder = fs.GetFolder(Server.Mappath(sti))
' Medtag alle .jpg-filer i listen
filList = ""
For Each file in Folder.Files
If (Right(file.Name,4) = ".jpg") or (Right(file.Name,4) = ".JPG") Then
filList = filList & "," & file.Name
end if
next
if filList <> "" then filList = Mid(filList,2)
filArr = Split(filList,",")
filArr = Sorter(filArr)
'###### Her laves paging ######
start = Request.Querystring("start")
if start = "" then start = 0
' ###### Angiv hvor manger objekter, der skal vises pr. side ######
antalBillederPrSide = 24 ' <- Her kan du angive antal billeder pr. side
imgPrRow = 0 ' <- Her sættes antal rækker... NIX PILLE!
maxImgPrRow = 6 ' <- Her kan du angive hvor mange billeder, der må være pr. række
' ###### Her hentes alle mapper i billedarkivet ######
%>
<%
' ###### Her genereres tabellen med billeder
Antalsider = int(ubound(filArr) / antalBillederPrSide)
for i = start to (start + antalBillederPrSide-1)
if not i > ubound(filArr) then
if imgPrRow = 0 then response.Write " "
ImgName = replace(filArr(i),".jpg","")
If instr(ImgName,"_") then
TmpImgName = split(ImgName,"_")
ImgName = TmpImgName(1)
End if
response.write "![]() "
' admin
If Session("user_kreds30") <> "" then
response.write "
"
else
'response.write "
![]() "
end if
'admin slut
response.write " | "
imgPrRow = imgPrRow + 1
if imgPrRow = maxImgPrRow then
response.write " "
imgPrRow = 0
end if
else
nesteside = 1
end if
Next
if imgPrRow > 0 then Response.Write ""
%>
<%
' ###### PAGING: Her laves paging af sider ud fra hvor mange objekter, der er i en mappe ######
if ubound(filarr)+1 > 0 then
response.write ""
response.write "Der er i alt " & int(AntalSider)+1 & " sider med " & ubound(filarr)+1 & " fotos i mappen
"
if start <> 0 then
response.write "![]() "
end if
response.write(" side ")
for i = 1 to Antalsider+1
if i = (start/antalBillederPrSide+1) then
response.write i&" | "
else
response.write " | "
end if
next
response.write(" ")
if nesteside <> 1 then
response.write "![]() "
end if
response.write " |
"
end if
%><% ' ###### NIX PILLE: Dette er udregningen af array, der sorterer efter navn ######
Function Sorter(ByVal tabel)
Dim blnContinue, i, varFirst, varSecond
blnContinue = True
Do Until blnContinue = False
blnContinue = False
For i = 0 to UBound(tabel)
If i = UBound(tabel) Then Exit For
Arr = Split(tabel(i),".")
tmp1 = arr(0)
if isnumeric(tmp1) then tmp1 = Int(tmp1)
Arr = Split(tabel(i+1),".")
tmp2 = arr(0)
if isnumeric(tmp2) then tmp2 = Int(tmp2)
If tmp1 > tmp2 Then
varFirst = tabel(i)
varSecond = tabel(i+1)
tabel(i) = varSecond
tabel(i+1) = varFirst
blnContinue = True
End If
Next
Loop
Sorter = tabel
End Function
%>
<% else %>
Billedalbum
Dette er så vores billedarkiv.
Hvis du klikker på en af undermenuerne til højre, kan du se billederne derfra.
<% end if %>
|
<%
' Sæt stien til hvilken mappe, billederne ligger i
Billedmappen = "/billeder/billedmapper/" '<- Her angives mappens navn, hvor alle undermapperne ligger
Set fs = Server.CreateObject("Scripting.FileSystemObject")
strPhysicalPath = Server.MapPath(Billedmappen)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
For each Folder in objFolder.SubFolders
'response.write left(Folder.name,6)
If Left(Folder.Name,1)<>"_" and Folder.Name <> "thumbnails" Then
if request("Folder") <> Folder.name then
Response.Write("![Se indhold af "&Folder.Name&"]()
")
else
Response.Write("![Se indhold af "&Folder.Name&"]() "& Folder.Name & "
")
end if
'undermapper
if request.querystring("Folder") = Folder.name then
strPhysicalSubPath = folder
set objSubFSO = CreateObject("Scripting.FileSystemObject")
Set objSubFolder = objSubFSO.GetFolder(strPhysicalSubPath)
For each SubFolder in objSubFolder.SubFolders
If Left(SubFolder.Name,1)<>"_" and SubFolder.Name <> "thumbnails" Then
Response.Write("![Se indhold af "&Folder.Name&"]()
")
End if
Next
Set objSubFSO = Nothing
End if
End if
Next
Set objFSO = Nothing
%>
|