<% '網址列驗證 server.Execute "/NoHACK1.asp" '參數&變數設定 Dim SQLStr, rs, ToPage, NowPage, TotalPage, StartPage, EndPage, i, j, PNum '讀取單頁顯示筆數 SQLStr = "SELECT SetValue FROM AC_20061201_DJstation_Set WHERE SetParameter = 'OrderPageNum'" Set rs = GetRecordset(SQLStr) If Not(rs.BOF And rs.EOF) Then PNum = Trim(rs(0).value) Else PNum = 20 End If rs.Close '呼叫資料庫 SQLStr = "SELECT * FROM AC_20061201_DJstation_Order WHERE S_Play = 'Y' ORDER BY S_TOP DESC,AddTime DESC" set rs = GetRecordset(SQLStr) '分頁設定 rs.PageSize = PNum ToPage = Request("Page") 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 TotalPage = rs.PageCount %>

<% For i = 1 To 20 If rs.EOF Then Exit For %> <% rs.MoveNext Next %>

日期	屬性	留言主題	玩家暱稱	伺服器
<% = Month(rs("AddTime")) & "/" & Day(rs("AddTime")) %>	<% Select case rs("S_Type") case "A" Response.Write("心情") case "B" Response.Write("告白") case "C" Response.Write("節慶") case "D" Response.Write("生日") case Else Response.Write("心情") End Select %>	">"><% = rs("SongName") %>	<% = rs("S_NickName") %>	<% = rs("S_ServerID") %>

<% '----------分頁連結設定---------- If NowPage <= 1 Then Response.Write("【第一頁】 ") Else Response.Write("【第一頁】 ") End If If NowPage <= 1 Then Response.Write("【上一頁】 ") Else Response.Write("【上一頁】 ") End If StartPage = NowPage - 4 If StartPage < 1 Then StartPage = 1 EndPage = ((StartPage Mod 10) * 10) + StartPage - NowPage If EndPage > TotalPage Then EndPage = TotalPage For j = StartPage To EndPage If j > TotalPage Then Exit For If j = NowPage Then Response.Write("[" & j & "] ") Else Response.Write("[" & j & "] ") End If Next If NowPage >= TotalPage Or NowPage >= EndPage Then Response.Write("【下一頁】 ") Else Response.Write("【下一頁】 ") End If If NowPage >= TotalPage Then Response.Write("【最後一頁】 ") Else Response.Write("【最後一頁】 ") End If '----------分頁連結設定結束---------- %>

目前第 <% = NowPage %> 頁／共 <% = TotalPage %> 頁