hej igen... jah jeg har søgt nettet tyndt. jeg er igang med at lave en hjemmeside til min familie. jeg har fundet et template og det fungerer som det skal. det store problem er et fotoalbum.
koden til fotoalbummet har jeg også og den fungerer også fint.
i kan hente det template jeg bruger her:
http://www.freewebtemplates.com/downloads/templates/zip/4225.zip
og koden til mit album er her:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<%
'Copy this file into a directory with folders containing images (jpg, gif).
'(optional) create a text file called captions.txt in each folder.
' with a caption on each line to go with each picture (in alphabetical order).
' set border size to a value greater than zero if you want a border around the picture.
' set border color if you have set a border size greater than 0.
' set the text-align: within the <style> tag to be left/center/right.
' set the font-family: within the <style> tag to be the font of your choice.
border_size = "7"
border_color = "silver"
%>
<html>
<head>
<title>Gallery</title>
<style type="text/css">
body {
font-family: tahoma;
text-align: center;
}
</style>
</head>
<a name="top"></a>
<h2>Picture Gallery</h2>
<body>
<%
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
qfolder = request.querystring("f")
if qfolder = "" then
folderspec = server.mappath(".")
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofolder = filesys.GetFolder(folderspec)
Set folcoll = demofolder.SubFolders
For Each subfol in folcoll
folsize = left((subfol.size/1000000), 3)
folist = folist & "<a href='?f=" & subfol.name & "'><strong title='view'>»</strong> " & subfol.Name & " </a><small> (" & folsize & " MB)</small>" & vbcrlf
folist = folist & "<BR>"
Next
set filesys = nothing
Response.Write folist
else
filepath = server.mappath(".") & "\" & qfolder
captionfile = filepath & "\captions.txt"
Set filesys = CreateObject("Scripting.FileSystemObject")
Dim SomeArray()
'caption part
If filesys.FileExists(captionfile) then
set file = filesys.GetFile(captionfile)
Set TextStream = file.OpenAsTextStream(ForReading,TristateUseDefault)
captioncount = 0
Do While Not TextStream.AtEndOfStream
Line = TextStream.readline
ReDim Preserve SomeArray(captioncount)
SomeArray(captioncount) = line
'response.write captioncount & " " & somearray(captioncount) & "<br>"
captioncount = captioncount + 1
'Response.write Line
Loop
textStream.close
end if
'folder part
Set demofolder = filesys.GetFolder(filepath)
Set filecoll = demofolder.Files
filecount = 0
For Each file in filecoll
Ext = UCase(Right(File.Path, 3))
If Ext = "JPG" OR Ext = "GIF" Then
on error resume next
data = SomeArray(filecount)
on error goto 0
hrefpath = qfolder & "/" & file.name
imagepath = "<strong>" & data & "</strong><br><a href='" & hrefpath & "' title='free image gallery' border=0><img src='" & hrefpath & "' border='" & border_size & "' title=""" & data & """ style='border-color: " & border_color & ";'></a><br>"
filist = filist & imagepath & vbcrlf
filist = filist & "<BR>"
filecount = filecount + 1
data = ""
end if
Next
set filesys = Nothing
filist = filist & "<br><small><a href='
http://www.allscoop.com/' target='_blank'>allscoop free image gallery</a></small>"
%>
<h3><a href="." title="up one level">«</a>
<%=qfolder%></h3>
<p><%=filist%></p>
<% end if %>
<p style="font-size: xx-small;"><a href="#top" title="top of page">top of page</a></p>
</body>
</html>
så er det på plads.. som i kan se på det template i har hentet så er der et felt ude i venstre side der hedder links_
Mit fotoalbum fungerer ved at liste mapperne med billederne i, det kunne jeg godt tænke mig at den listede i det felt der hedder links_ altså stadig med hover effect (mener jeg det hedder)
på forhånd tak
/jesper