Jeg fandt lige en kode for et meget simpelt galleri, jeg engang lavede. Du må undskylde at koden er meget rodet, men jeg har lige afprøvet, at den virker.
------------------------------------------------------------------
<%strMappe = "/billeder/"
strImgWidth = 300
strImgHeight = 200%>
<html>
<head>
<title>Galleri</title>
</head>
<body>
<div id="img"></div>
<table width="500" cellspacing="5">
<tr>
<%Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(Server.MapPath(Request.ServerVariables("PATH_INFO")))
Set objFolder = objFile.ParentFolder
strSitePath = objFolder
Set objFolder = objFSO.GetFolder(strSitePath & strMappe)
Set objFolderContents = objFolder.Files
Page = Request.Querystring("page")
If isNumeric(Page) = False Or Page < 1 Then
Page = 1
End If
Page = CInt(Page)
For Each objFileItem in objFolderContents
If Ucase(Right(objFileItem.Name,4)) = ".GIF" OR Ucase(Right(objFileItem.Name,4)) = ".JPG" OR Ucase(Right(objFileItem.Name,4)) = ".BMP" Then
RecCount = RecCount + 1
End If
Next
PictureCols = 4
PageSize = 20
PageCount = RecCount / PageSize
If PageCount > CInt(PageCount) Then PageCount = PageCount + 1
PageCount = CInt(PageCount)
Count = 1
For Each objFileItem in objFolderContents
If Count > ((Page * PageSize) - PageSize) And Count <= (Page * PageSize) Then
If Ucase(Right(objFileItem.Name,4)) = ".GIF" OR Ucase(Right(objFileItem.Name,4)) = ".JPG" OR Ucase(Right(objFileItem.Name,4)) = ".BMP" Then
ShowPic = Replace(objFileItem.Name, " ", "%20")
Response.write "<td align=""center"">" & VbCrLf & VbCrLf
Response.Write "<a title=""Vis billed"" href=""java script:void(0);"" onclick=""document.getElementById('img').innerHTML='<img width=" & strImgWidth & " height=" & strImgHeight & " src=" & strMappe & objFileItem.Name & ">';"">" & VbCrLf
Response.Write "<img border=""1"" src=""" & strMappe & objFileItem.Name & """ width=""100"" height=""100""><br>" & VbCrLf & VbCrLf
Response.Write "<font size=""1""><b>" & Left(Mid(objFileItem.Name,1,Len(objFileItem.Name)-4),15) & "</b><br>" & VbCrLf
Response.Write "</a></font></p><br><br></td>" & VbCrLf & VbCrLf
PictureNo = PictureNo + 1
If PictureNo = PictureCols Then
Response.write "</tr><tr>" & VbCrLf
PictureNo = 0
End if
End If
End If
count = count + 1
Next
Set objFSO = Nothing%> </tr>
<tr valign="top"><td align="center" colspan="<%=PictureCols%>">
<%If PageCount <> 0 AND PageCount <> 1 Then
Response.Write "Side " & Page & " af " & PageCount & "<br>"
Response.Write "Gå til side "
For i = 1 To PageCount
If Page <> i Then
Response.Write "<a href=""/gallery/?page=" & i & """>"
End If
Response.Write i
If Page <> i Then
Response.Write"</a> "
Else
Response.Write " "
End If
Next
Response.Write "<br>"
If CInt(Page) > 1 Then
Response.Write "<a href=""/gallery/?page=" & Page - 1 & """>Forrige side</a> "
End If
If CInt(PageCount) > CInt(Page) Then
Response.Write "<a href=""/gallery/?page=" & Page + 1 & """>Næste side</a>"
End If
End If%>
</td></tr>
</table>
</body>
</html>
------------------------------------------------------------------
Så skal du bare rette i toppen:
strMappe = "/billeder/"
strImgWidth = 300
strImgHeight = 200
Håber du kan bruge det.
Ny bruger
Nybegynder
Opret
Preview
