<% '網址列驗證 server.Execute "/NoHACK1.asp" '參數&變數設定 Dim str, SelSearch, startday, endday, OrderNum, SQLStr, rs, ToPage, NowPage, TotalPage, StartPage, EndPage, i, j, k, PNum SelSearch = Split(Trim(Request("SelSearch")), ",") str = "" If Request("SelSearch") <> "" Then str = "" Else str = Request.cookies("Qstr") End If '取得日期範圍(一天) startday = Date endday = DateAdd("d", 1, startday) '讀取單頁顯示筆數 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 '根據查詢製作查詢字串 For k = 0 To UBound(SelSearch) 'Response.Write(SelSearch(k)) If SelSearch(k) = "" or str <> "" Then Exit For If Trim(SelSearch(k)) = "SNN" Then str = str & "AND ((AutoID IN (SELECT sid FROM AC_20061201_DJstation_Order_Article WHERE S_NickName LIKE '%" & ReqUni(Trim(Request("nickname"))) & "%')) OR S_NickName LIKE '%" & ReqUni(Trim(Request("nickname"))) & "%') " Elseif Trim(SelSearch(k)) = "SSI" Then str = str & "AND S_ServerID = '" & Trim(Request("serverID")) & "' " Elseif Trim(SelSearch(k)) = "SSN" Then str = str & "AND SongName LIKE '%" & ReqUni(Trim(Request("songname"))) & "%' " Elseif Trim(SelSearch(k)) = "STP" Then str = str & "AND S_Type = '" & ReqKeng(Trim(Request("attribution"))) & "' " End If Next '呼叫資料庫 'SQLStr = "SELECT * FROM AC_20061201_DJstation_Order WHERE S_Play = 'N' AND AddTime > '" & startday & "' AND AddTime < '" & endday & "' " & str SQLStr = "SELECT * FROM AC_20061201_DJstation_Order WHERE S_Play = 'N' " & str & " 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 '查詢字串寫入cookie Response.cookies("Qstr") = str 'Response.Write str %>

	<% 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 %> 請勾選想要查詢的項目，並請填寫正確後，按下查詢 暱　　稱 　＊未填寫則搜尋所有資料 伺 服 器 羽民（GF01） 厭火（GF02） 天馬（GF03） 鳳凰（GF04） 帝江（GF05） 燭龍（GF06） 乘黃（GF07） 陵魚（GF08） 天昊（GF09） 軒轅（GF10） 計蒙（GF11） 梟陽（GF12） 陸吾（GF13） PVE美眉服01 留言主題 　＊未填寫則搜尋所有資料 留言屬性 心情 告白 節慶 生日 查詢結果 日期 屬性 留言主題 玩家暱稱 伺服器 *** 未查詢到任何資料 *** <% = 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 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 %> 頁