<% @ Language=VBScript CodePage=65001%> <% Session.CodePage = 65001 response.charset="utf-8"%> GF登入喔 <% '讀取登入訊息 sql_newslogin = "SELECT AutoID, NewsTitle, NewsData, NewsUrl FROM T_News WHERE NewsType='login' AND SDate < SYSDATE() AND EDate > SYSDATE() + INTERVAL -1 DAY AND T_News.Show='Y' ORDER BY Rand() LIMIT 1" Set rs_newslogin = conn.Execute(sql_newslogin) If Not rs_newslogin.EOF Then n_title = rs_newslogin("NewsTitle") n_data = rs_newslogin("NewsData") n_url = rs_newslogin("NewsUrl") If Escape(n_url) <> "%00" Then links="" 'links="" linke="" Else links="" linke="" End If End If rs_newslogin.close Set rs_newslogin = Nothing SQLStr = "SELECT MainTain FROM Index_Game_Ch WHERE Subject2 = 'Billing'" Set rs = conn.Execute( SQLStr ) If rs("MainTain") = "Y" Then %> <% Elseif rs("MainTain") = "S" Then %> <% Else %>
註冊
登入
<% = links %><% = n_title %><% = linke %>
<% = links %><% = n_data %><% = linke %>
<%end if rs.close set rs=nothing %>