Jeg fandt det her. Hvor kan jeg ikke huske. Men her er det hele:
Forklaring:
**************************************************
* GOAT DESIGN *
**************************************************
* Image gallery *
**************************************************
Et billede galleri, der hente alle billederne fra en
bestemt mappe.
På den måde behøver du kun at uploade et nyt billede
til din mappe, når du vil tilføje et nyt.
Vinduet der åbner, når man klikke på et af links'ne,
tilpasser sig automatisk billedets størrelse.
**************************************************
* install *
**************************************************
skift "grafik" i tredje linie til navnet på den
mappe som dine billeder ligger i.
**************************************************
* contact *
**************************************************
evt. forslag eller rettelser kan sendes til:
bjawnie@mail2die4.com
PASTE DET HER IND I EN .ASP SIDE:
<%
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
