<% @ Language=VBScript CodePage=65001%> <% Session.CodePage = 65001 response.charset="utf-8"%> <% page=reqnum(request("page")) '目前至第幾筆 '超省必敗速報 '1表GF新聞區、2表LOGIN下方文字、3表黃金文字、4表頻道專區圖片、5表頻道專區文字、6表超省必敗速報、7表本周精選、8頻道二版型一圖片、9表頻道二版型一文字 if page = "" then sql_aid = "SELECT * FROM Week_Choose WHERE Display = 'Y' AND WC_Type = 'b' AND DATEDIFF(SYSDATE(), SDate) >= 0 AND DATEDIFF(SYSDATE(), EDate + INTERVAL 1 DAY) <= 0 ORDER BY RAND() LIMIT 5" set rs_aid=server.createobject("adodb.recordset") rs_aid.Open sql_aid,conn,3 if not(rs_aid.bof and rs_aid.eof) then for i = 1 to rs_aid.recordcount aid=aid&rs_aid("AutoID")&"," rs_aid.MoveNext next else response.write("無符合資料") response.end end if rs_aid.Close Set rs_aid = Nothing response.Cookies("baid")=aid end if array_date=mid(request.Cookies("baid"),1,len(request.Cookies("baid"))-1) array_date1=split(array_date,",") if page = "" then page=1 AutoID=array_date1(page-1) set rsa = conn.execute("SELECT * FROM Week_Choose WHERE AutoID = "&AutoID) %> 本週精選
&CType=6" target="_blank">" width="145" height="125" border="0" class="pic02">
<% if cint(ubound(array_date1)) <> 0 then if cint(page) <> 1 then upage=page-1 else upage=cint(ubound(array_date1)+1) end if %> <%end if%>
<% if cint(ubound(array_date1)) <> 0 then if cint(page) <> cint(ubound(array_date1)+1) then dpage=page+1 else dpage=1 end if %> <%end if%>
<% rsa.close set rsa=nothing %>