Billede Galleri
HejBruger følgende kode, til at vise billederne fra min mappe.
Men den viser alt i mappen, den skal KUN vise billedefiler.
Der ligger også en .db fil i mappen, som den IKKE skal vise..
Men jeg kan ikke lige gribe an, hvordan jeg skal stoppe den med at vise .db filen.
<%
dim strfilearr, strcountfiles, randomfile, directory, allfiles, directoryfile
strmappe = "billeder/knudbilleder" 'HER SKAL STIEN TIL BILLEDERNE LIGGE
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
%>
