<% on error resume next flagshow = true if Photo_CatID > 0 then sql = "select CatPIDList, CatDescription from Category where CatID = " & Photo_CatID & " Order by OrderNo " set rs = server.CreateObject("ADODB.Recordset") rs.Open sql, photo, 3, 1 if rs("CatPIDList") <> "" then CatPIDList = rs("CatPIDList") CatArray = Split(CatPIDList,",",-1,1) For each i in CatArray if Trim(i) <> "" then if cint(i) >= 5 then sql = "select CatName from Category where CatID = " & i set rn = server.CreateObject("ADODB.Recordset") rn.Open sql, photo, 3, 1 photoDir = photoDir & "" & rn("CatName") & " > " title = title & rn("CatName") & ">" rn.close set rn = nothing end if end if Next end if end if %> <% sql = "select CatName, CatID from Category where CatPID = '" & Photo_CatID & "' and CatID <> " & Photo_CatID & " and ifOpen = 'y' order by OrderNo " set rs = server.CreateObject("ADODB.Recordset") rs.Open sql, photo, 3, 1 if not rs.EOF then rs.PageSize = 5 if Request("PageNo") = "" then PageNo = 1 else PageNo = Cint(Request("PageNo")) End if rs.AbsolutePage = PageNo For k = 0 to rs.PageSize - 1 %> <% rs.MoveNext Next response.Write("") flagshow = false end if %> <% if flagshow then sql = "select f.FID, f.PID, p.PPIDList from tblFile f, tblFC c, tblPhoto p where p.PID = f.PID and c.FID = f.FID and c.CatID = " & Photo_CatID & " order by orderNo " set rs = server.CreateObject("ADODB.Recordset") rs.Open sql, photo, 3, 1 if not rs.EOF then %> <% end if end if %>

<% if Photo_CatID = 5 then response.Write(" ") else response.Write(photoDir) end if %>

<%=rs("CatDescription")%>

" style="font-size:15px "><%=rs("CatName")%>

<% sql = "select top 5 f.FID, f.PID, p.PPIDList from tblFile f, tblFC c, tblPhoto p where f.PID = p.PID and c.FID = f.FID and c.CatID = " & rs("CatID") & " Order by OrderNo " set rn = server.CreateObject("ADODB.Recordset") rn.Open sql, photo, 3, 1 if not rs.EOF then i = 1 Do Until rn.EOF if (i mod 5) = 1 then response.Write("") response.Write("") rn.MoveNext if rn.EOF then response.Write("") exit do end if if (i mod 5) = 0 then response.Write("") i = i + 1 Loop end if %> ") response.Write("

") pagestart = (((PageNo-1)\10)) * 10 +1 j = pagestart + 9 if PageNo > 10 then response.Write("上10頁 ") end if For i = pagestart to j If i = Cint(PageNo) then response.Write("[" & i & "]  ") else response.Write("" & i & "  ") End if if i = rs.PageCount then exit for Next if rs.PageCount > 10 and j < rs.PageCount then response.Write(" 下10頁") end if response.write("

<% i = 0 Do Until rs.EOF if (i mod 5) = 0 then response.Write("") response.Write("") rs.MoveNext if (i mod 5) = 4 then response.Write("") if rs.EOF then response.Write("") exit do end if i = i + 1 Loop rs.close set rs = nothing %> ") response.Write("