<% '網址列驗證 server.Execute "/NoHACK1.asp" '參數&變數設定 '定義變數 Dim startday, endday, OrderNum, SQLStr, rs, ToPage, NowPage, TotalPage, StartPage, EndPage, i, j, PNum '取得日期範圍(一天) 'startday = Date 'endday = DateAdd("d", 1, startday) '讀取單日最多點歌數量 SQLStr = "SELECT SetValue FROM AC_20061201_DJstation_Set WHERE SetParameter = 'OrderNum'" Set rs = GetRecordset(SQLStr) If Not(rs.BOF And rs.EOF) Then If Trim(rs(0).value) = "0" Then OrderNum = "" Else OrderNum = "TOP " & Trim(rs(0).value) End If Else OrderNum = "" End If rs.Close '讀取單頁顯示筆數 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 " & OrderNum & " * FROM AC_20061201_DJstation_Order WHERE S_Play = 'N' AND AddTime > '" & startday & "' AND AddTime < '" & endday & "'" SQLStr = "SELECT * FROM AC_20061201_DJstation_Order WHERE S_Play = 'N' OR S_TOP = '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 %>

	<% If (rs.BOF and rs.EOF) Then %> <% Else For i = 1 To rs.PageSize If rs.EOF Then Exit For %> <% rs.MoveNext Next End If %> 　親愛的玩家您好： 　本區提供玩家紓發心情、告白，或是公布重要宣告，都可以在這邊留言喔!將有專業DJ為您在電台節目上撥出， 　發表您的留言前，請先詳細閱讀版規！已撥出的心情留言將會移到【已撥放留言】區，請多加利用查詢 ！ 日期 屬性 留言主題 玩家暱稱 伺服器 *** 目前並未有任何心情留言 *** <%' = Month(rs("AddTime")) & "/" & Day(rs("AddTime")) %> <% = FormatDateTime(rs("AddTime"),vbShortDate) & " " & FormatDateTime(rs("AddTime"),vbShortTime) %> <% 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 If NowPage > 10 Then EndPage = NowPage + 5 If EndPage > TotalPage Then EndPage = TotalPage StartPage = EndPage - 9 Else If (TotalPage - NowPage < 5) Then StartPage = NowPage - ( 9 - ( TotalPage - NowPage )) Else StartPage = NowPage - 4 End If If StartPage < 1 Then StartPage = 1 EndPage = StartPage + 9 End If 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 %> 頁