<% Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM TB_PDownload WHERE PTop = '0' ORDER BY AutoID DESC" RS.Open SQL,conn,3 RS.PageSize = 5 %>
頁/共<%=RS.PageCount%>
 
<% if ToPage="1" or ToPage="" then sql2 = "SELECT * FROM TB_PDownload WHERE PTop = '1'" Set rs2 = conn.Execute( sql2 ) %>
<%if rs2("File02")<>"" then%> <%end if%> <%if rs2("File03")<>"" then%> <%end if%> <%if rs2("File04")<>"" then%> <%end if%> <%if rs2("File05")<>"" then%> <%end if%>
名 稱: 『<%=rs2("Title")%>』 <%=FormatDateTime(rs2("AddTime"), vbShortDate)%>
簡 介: <%=rs2("UserData")%>
下載點: ,'A');"><%=rs2("DFile01")%>
  ,'B');"><%=rs2("DFile02")%>
  ,'C');"><%=rs2("DFile03")%>
  ,'D');"><%=rs2("DFile04")%>
  ,'E');"><%=rs2("DFile05")%>
 
<% Rs2.close Set rs2 = Nothing %> <%end if%> <% For ipage = 1 to rs.PageSize If rs.EOF Then Exit For %>
<%if rs("File02")<>"" then%> <%end if%> <%if rs("File03")<>"" then%> <%end if%> <%if rs("File04")<>"" then%> <%end if%> <%if rs("File05")<>"" then%> <%end if%>
名 稱: 『<%=rs("Title")%>』 <%=FormatDateTime(rs("AddTime"), vbShortDate)%>
簡 介: <%=rs("UserData")%>
下載點: ,'A');"><%=rs("DFile01")%>
  ,'B');"><%=rs("DFile02")%>
  ,'C');"><%=rs("DFile03")%>
  ,'D');"><%=rs("DFile04")%>
  ,'E');"><%=rs("DFile05")%>
 
<% rs.MoveNext Next %>
 
<% Rs.close Set rs = Nothing %>