Foto album.. ASP
Hej,, har lige en stump kode jeg gerne vil have lidt hjælp til., er der mulighed for at jeg kan lave billedrene mindre den skal bare resize dem.. hvis nu jeg har billeder i 800 x 600 kunne jeg godt tænke mig at den liste den laver over billedrene måske var 640x480?.. Og til sidst hvordan laver jeg fx class id på den liste den laver over mapperne så jeg kan lave linket en anden farve , hvis i forstår.. Nåh, her er koden.<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<link rel="stylesheet" type="text/css" href="..//style/hovede.css">
<%
border_size = "0"
border_color = "silver"
%>
<html>
<head>
<title>Daniels Fotoalbum</title>
</head>
<a name="top"></a>
<body>
<p class="link" align="left">
<%
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='Vis'></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='Billede' 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
%>
</p>
<h1>
<p align="center">
<%=qfolder%><br>
<a href="." class="link" title="Tilbage">Tilbage</a>
<p align="center" ><%=filist%></p>
<p align="center" >
<a href="." class="link" align="center" title="Tilbage">Tilbage</a></p>
<% end if %>
</p>
</h1>
</body>
</html>
