galleri: table og indexering af filer - problem
Hej Eksperter..jeg er ved at lave et galleri, hvor jeg bare skal kunne uploade billederne ind og så styrer min asp-fil resten men hensyn til at vis dem.
Det går også fint, indtil jeg kommer til at skulle lave en ny række i mit table(det sted hvor jeg har billederne vist som peview) - jeg vil nemlig gerne have at der maks må være 20 billeder vist, og maks 5 i hver række.
Jeg vedlægger den kode jeg har lavet indtil videre, håber at nogen kan se hvad jeg skal gøre..
kode:
<%
response.buffer = true
filnavn = "default.asp"
storepicstoerrelsewidth = "300"
storepicstoerrelseheight = "225"
%>
<TABLE WIDTH="100%" HEIGHT="100%" BORDER="0">
<TR>
<TD>
<%
response.write "<TABLE WIDTH='100%' HEIGHT='100%' BORDER='0' CELLSPACING='1' CELLPADDING='0'><TR>"
strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
Set objSubFolders = objFolder.SubFolders
For Each objFileItem in objFolderContents
response.write "<TD><A HREF='" & filnavn & "?p=" & objFileItem.Name & "'><IMG SRC='" & objFileItem.Name & "' BORDER='0' ALIGN='bottom' width='100' height='75' ALT='" & objFileItem.Name & "'></A></TD>"
Next
'// her vil jeg gerne kunne fortsætte på en ny række billeder, altså billede 6 til 10
response.write "</TR>"
response.write "<TR>"
response.write " <TD></TD>"
response.write " <TD></TD>"
response.write " <TD></TD>"
response.write " <TD></TD>"
response.write " <TD></TD>"
response.write "</TR>"
response.write "</TABLE>"
</TD>
<TD>
<%
picsname = request.querystring("p")
%>
<IMG SRC="<%=picsname%>" BORDER="0" ALIGN="bottom" width="<%=storepicstoerrelsewidth%>" height="<%=storepicstoerrelseheight%>" ALT="<%=picsname%>">
</TD>
</TR>
</TABLE>
/jsc
