<% server.Execute "/NoHACK1.asp" dim sql, rs, i, j, PicPath dim ToPage, NowPage, Ipage, Hp sql = "select * from DL_Wallpaper order by AddTime desc" set rs = GetRecordset(sql) Hp = "wallpaper.asp" rs.PageSize = 9 PicPath = "wallpaper/" ' 圖檔資料夾位置 '----分頁處理 ToPage = ReqNum(request.QueryString("ToPage")) if ToPage = "" then NowPage = 1 else NowPage = CInt(ToPage) end if if NowPage > rs.PageCount then NowPage = rs.PageCount elseif NowPage < 1 then NowPage = 1 end if if not (rs.bof and rs.eof) then rs.AbsolutePage = NowPage %>
   
 
 
 
第 頁/ 共<%=CStr(rs.PageCount)%>頁
<%for i = 1 to 3 if rs.EOF then Exit For%> <%for j = 1 to 3%> <%next%> <%next%>
<% if rs.EOF then%>   <% else%>
" width="174" height="130">
<%if rs("D_Pic3") <> "-" then%> <%else%> <%end if if rs("D_Pic4") <> "-" then%> <%else%> <%end if if rs("D_Pic5") <> "-" then%> <%else%> <%end if%>
" target="_blank"> " target="_blank"> " target="_blank"> 
  <%=CStr(rs("D_Count"))%>
<% rs.movenext end if%>
 
 
   
 
 
<% rs.close : set rs = nothing %>