<% @ Language=VBScript CodePage=65001%> <% Session.CodePage = 65001 response.charset="utf-8"%> <% '抓取本周精選 '1表GF新聞區、2表LOGIN下方文字、3表黃金文字、4表頻道專區圖片、5表頻道專區文字、6表超省必敗速報、7表本周精選、8頻道二版型一圖片、9表頻道二版型一文字 page=reqnum(request("page")) '目前至第幾筆 if page = "" then sql_aid="SELECT * FROM Week_Choose WHERE Display = 'Y' AND WC_Type = 'a' 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("haid")=aid end if array_date=mid(request.Cookies("haid"),1,len(request.Cookies("haid"))-1) array_date1=split(array_date,",") if page = "" then page=1 AutoID=array_date1(page-1) set rsa = conn.execute("SELECT AutoID, WC_Pic, WC_Data, WC_Title FROM Week_Choose WHERE AutoID = "&AutoID) %> 本週精選
&CType=7" target="_blank">" width="150" height="150" class="pic01" alt="" border="0" />
<% 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%>