Her er et komplet billedgalleri. Hvor kan oprindeligt fandt det og hvor meget jeg har arbejdet med det, kan jeg ikke huske. Men jeg synes det er et velfungerende udgangspunkt:
Billedgalleriet henter alle billederne fra en bestemt mappe. Du skal bare FTP'e et nyt billede til din mappe, når du vil tilføje et nyt.
Vinduet der åbner, når man klikke på et af linkene og tilpasser sig automatisk billedets størrelse.
Udskift selv "grafik" i tredje linie til navnet på den mappe som dine billeder ligger i.
billedgalleri.asp:
<%
dim strfilearr, strcountfiles, randomfile, directory, allfiles, directoryfile
strmappe = "grafik"
Set directory=server.createobject("scripting.filesystemobject")
Set allfiles=directory.getfolder(server.mappath(strmappe))
For each directoryfile in allfiles.files
strfilearr = strfilearr + directoryfile.Name & ","
strcountfiles = strcountfiles + 1
Next
if request.querystring("execute") ="popup" then
ImageArray = split(strfilearr,",")
response.write "<html>" & vbCrLf
response.write "<head>" & vbCrLf
response.write "<title>image gallery [goat design]</title>" & vbCrLf
response.write "<script>" & vbCrLf
response.write "function resizeMe(){" & vbCrLf
response.write "if (navigator.appName == 'Netscape'){" & vbCrLf
response.write "adjWidth = document.images[""0""].width + 6;" & vbCrLf
response.write "adjHeight = document.images[""0""].height + 27;" & vbCrLf
response.write "}" & vbCrLf
response.write "else {" & vbCrLf
response.write "adjWidth = document.images[""0""].width + 100;" & vbCrLf
response.write "adjHeight = document.images[""0""].height + 150;" & vbCrLf
response.write "}" & vbCrLf
response.write "window.resizeTo(adjWidth, adjHeight);" & vbCrLf
response.write "window.focus()" & vbCrLf
response.write "}" & vbCrLf
response.write "</script>" & vbCrLf
response.write "</head>" & vbCrLf
response.write "<body margin='0' onLoad=""resizeMe();"">" & vbCrLf
response.write "<table style='width:100%;height:100%;'>"
response.write "<tr>"
response.write "<td style='width:100%;height:100%;vertical-align:middle;text-align:center;'>"
response.write "<img src='"&strmappe&"/"&ImageArray(request.querystring("id")-1)&"' name=""0"" id='0' border='0'>" & vbCrLf
response.write "</td>"
response.write "</tr>"
response.write "<tr>"
response.write "<td style='text-align:center;'><a href='java script:window.close();'>close</a></td>"
response.write "</tr>"
response.write "</table>"
response.write "</body>" & vbCrLf
response.write "</html>" & vbCrLf
else
response.write "<html>" & vbCrLf
response.write "<head>" & vbCrLf
response.write "<title>image gallery [goat design]</title>" & vbCrLf
response.write "<SCRIPT LANGUAGE=""Javascript"" type=""text/javascript"">" & vbCrLf
response.write "<!--" & vbCrLf
response.write "function Popit(url) {" & vbCrLf
response.write " popupWin = window.open(url,'new_page','width=500,height=400,scrollbars=yes')" & vbCrLf
response.write "}" & vbCrLf
response.write "//-->" & vbCrLf
response.write "</SCRIPT>" & vbCrLf
response.write "</head>" & vbCrLf
response.write "<body style='text-align:center;'>" & vbCrLf
Dim CurrentPage, CountPages, ItemsprPage, ItemsTotal, ImageArray, StartImg, EndImg, SiteName, CountImgPrint
SiteName = request.servervariables("script_name")
ItemsTotal = strcountfiles
ItemsprPage = "12"
CurrentPage = request.querystring("id")
If CurrentPage = "" or CurrentPage = "0" then CurrentPage = "1"
CountPages = (ItemsTotal/12)
CountPages = round(fix(round(CountPages))+.5)
ImageArray = split(strfilearr,",")
StartImg = ((CurrentPage-1)*(ItemsprPage))
If StartImg = "0" then StartImg = "1"
EndImg = (ItemsTotal-StartImg)
if cint(EndImg) > cint(ItemsprPage) then
EndImg = round(StartImg-1) + round(ItemsprPage)
else
EndImg = (StartImg + EndImg)
End if
response.write "<table style='width:50%;'>"
CountImgPrint = 0
For I = StartImg to EndImg
CountImgPrint = CountImgPrint +1
If CountImgPrint = 1 then response.write "<tr>" & vbCrLf & vbCrLf
response.write "<td style='width:20%;text-align:center;'><a href=""java script: Popit('"&SiteName&"?execute=popup&id="&I&"')"" onfocus='blur()'><img src='"&strmappe&"/"&ImageArray(I-1)&"' border='0' style='width:41px;;height:41px;' /></a></td>" & vbCrLf
If CountImgPrint = 5 then
response.write "</tr>" & vbCrLf & vbCrLf
CountImgPrint = 0
end if
Next
response.write "</tr>" & vbCrLf
response.write "<tr>" & vbCrLf
response.write "<td colspan='5' style='width:100%;text-align:center;'>"
For I = 1 to CountPages
If NOT Cint(CurrentPage) = Cint(I) then
response.write "<a href='"&SiteName&"?id="&I&"'>" &I& "</a>"
else
response.write "["&I&"]"
end if
Next
response.write "</td>" & vbCrLf
response.write "</tr>" & vbCrLf
response.write "</table>" & vbCrLf
response.write "</body>" & vbCrLf
response.write "</html>" & vbCrLf
end if
%>
Ny bruger
Nybegynder
Opret
Preview
