<% server.Execute "/NoHACK1.asp" dim Mo_Type, sql, rs, Mo_Title, bg, LoopFlag, MenuID Mo_Type = ReqTxt(ReqKeng(Request("Type"))) if Mo_Type = "" then Mo_Type = "A" select case Mo_Type case "A" Mo_Title = "會員帳號" MenuID = "0" case "B" Mo_Title = "遊戲安裝與執行" MenuID = "0" case "C" Mo_Title = "遊戲操作 - 基本操作" MenuID = "1" case "D" Mo_Title = "遊戲操作 - 遊戲介面" MenuID = "1" case "E" Mo_Title = "遊戲操作 - 戰鬥 / PK" MenuID = "1" case "F" Mo_Title = "遊戲操作 - 生產技能" MenuID = "1" case "G" Mo_Title = "遊戲操作 - 道具 / 拍賣" MenuID = "1" case "H" Mo_Title = "種族職業 - 武俠 / 法師" MenuID = "2" case "I" Mo_Title = "種族職業 - 妖精 / 妖獸" MenuID = "2" case "J" Mo_Title = "種族職業 - 羽靈 / 羽芒" MenuID = "2" case "K" Mo_Title = "遊戲任務 - 新手任務" MenuID = "3" case "M" Mo_Title = "遊戲任務 - 修真任務" MenuID = "3" case "L" Mo_Title = "遊戲任務 - 主線任務" MenuID = "3" case "N" Mo_Title = "遊戲副本" MenuID = "0" case else Mo_Title = "會員帳號" MenuID = "0" end select Mo_Title = Mo_Title & "問題" sql = "SELECT * from GM_Faq Where F_Type='" & Mo_Type & "' order by AddTime desc , AutoID desc" set rs = GetRecordset( sql ) %>

<%=Mo_Title%>

<% if not(rs.BOF and rs.EOF) then LoopFlag = 1 Do until rs.EOF if LoopFlag mod 2 = 0 then bg = "#BA87E9" else bg = "#CDA7EF" end if %>

)"><%=rs("F_Title")%>

<% rs.movenext LoopFlag = LoopFlag + 1 Loop end if rs.close set rs = nothing %>