<% '網址列驗證 server.Execute "/NoHACK1.asp" '參數&變數設定 Dim startday, endday, OrderNum, SQLStr, rs, rs2, rs3, sid, ToPage, NowPage, TotalPage, StartPage, EndPage, i, j, k, PNum, SData, RNum sid = ReqNum(Trim(Request("sid"))) '人氣指數+1 SQLStr = "UPDATE AC_20061201_DJstation_Order SET S_Count = S_Count + 1 WHERE AutoID = '" & sid & "'" DoCommand(SQLStr) '取得日期範圍(一天) 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 SetValue FROM AC_20061201_DJstation_Set WHERE SetParameter = 'ReplyNum'" 'Set rs = GetRecordset(SQLStr) 'If Not(rs.BOF And rs.EOF) Then ' RNum = Trim(rs(0).value) 'Else ' RNum = 10 'End If 'rs.Close '呼叫單曲資料庫 SQLStr = "SELECT * FROM AC_20061201_DJstation_Order WHERE AutoID = '" & sid & "'" Set rs = GetRecordset(SQLStr) '呼叫今日所有歌曲資料庫 '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' ORDER BY AddTime DESC" Set rs2 = GetRecordset(SQLStr) '呼叫回應文章資料庫 SQLStr = "SELECT * FROM AC_20061201_DJstation_Order_Article WHERE SID = '" & sid & "'" Set rs3 = GetRecordset(SQLStr) If (rs.BOF Or rs.EOF) Then Response.Write("") Response.End End If '分頁設定 rs3.PageSize = PNum ToPage = Request("Page") If ToPage = "" Then NowPage = 1 Else NowPage = CInt(ToPage) End If If NowPage > rs3.PageCount Then NowPage = rs3.PageCount Elseif NowPage < 1 Then NowPage = 1 End If If Not(rs3.BOF and rs3.EOF) Then rs2.AbsolutePage = NowPage TotalPage = rs3.PageCount '針對斷行與＆反過濾編碼 Function ReData(KData) If Not isnull(KData) Then KData = Replace(KData, "＆" , CHR(38)) KData = Replace(KData, "" , CHR(13)) KData = Replace(KData, "
", CHR(10)) ReData = KData End If End Function %>
　
　


<% For k = 1 To rs3.RecordCount If rs3.EOF Then Exit For %> <% rs3.MoveNext Next %>
心情留言的完整資料
.jpg" width="150" height="148"> 留 言 主 題 <% = rs("SongName") %>
留 言 時 間 <% = 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("S_ServerID") %> 性　　　別 <% If rs("S_Sex") = "M" Then Response.Write("俊男") Elseif rs("S_Sex") = "F" Then Response.Write("美女") Else Response.Write("...") End If %>
玩 家 暱 稱 <% = rs("S_NickName") %> 職　　　業 <% = rs("S_Job") %>
<% = rs("S_NickName") %> 想 說 的 話
<% If Trim(rs("S_Reply")) <> "" Then %> <% End If %>
<% = ReData(Trim(rs("S_Data"))) %>
版主回應：
<% = ReData(Trim(rs("S_Reply"))) %>
' : alert('留言篇數已超過<% = RNum %>篇')"> ' : alert('留言篇數已超過<% = RNum %>篇')">

.jpg" width="150" height="148">
名稱：<% = rs3("S_NickName") %>
職業：<% = rs3("S_Job")%>
伺服器：<% = rs3("S_ServerID") %>
性別：<% If rs3("S_Sex") = "M" Then Response.Write("俊男") Elseif rs3("S_Sex") = "F" Then Response.Write("美女") Else Response.Write("...") End If %>

 <% If Trim(rs3("S_Reply")) <> "" Then %> <% End If %>
<% = ReData(Trim(rs3("S_Data"))) %>
版主回應：
<% = ReData(Trim(rs3("S_Reply"))) %>

<% = rs3("AddTime")%>

 ' : alert('留言篇數已超過<% = RNum %>篇')"> ' : alert('留言篇數已超過<% = RNum %>篇')">
　 <% '----------分頁連結設定---------- 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 '----------分頁連結設定結束---------- %>