<% response.write "ItemList" response.end '//判斷此ID是否正常開放 Item_ID = request.querystring("Item_ID") '// 若為vip會員則導入vip網站 vipDomain = GetVipDomain(siteID) if vipDomain <> "" then Response.redirect "/course/itemlist/"&Item_ID Response.End end if SQL_Item = " SELECT * FROM Store_Items "&_ " WHERE Item_ID = '"&Item_ID&"' And Store_ID IN (SELECT Store_ID FROM Store_Settings WHERE (Store_active = 1)) " rs_store.open SQL_Item,conn_store,1,1 if rs_store.bof then ' === 如果程式錯誤或是發現無此一商品 , 則顯示下列網頁 Response.Write "" Response.redirect "/" Response.End end if ' === 相關商品資訊 InStoreID = rs_store("Store_ID") Shop_id = rs_store("Shop_id") '//分館別 CatID = rs_store("Sub_Department_ID") '//商品分類 NowCateg_id = CatID Pid = rs_store("Pid") '//主館別 Views = rs_store("Views") '//點閱數 Item_Sku = rs_store("Item_Sku") '//商品自訂編號 Item_Name = Trim(rs_store("Item_Name")) '//商品名 Now_Item_Name = Item_Name '//本商品名稱(For 下半段使用) Now_Item_ID = Item_ID '//商品編號 (For 下半段使用) Wholesale_Price = 0 '//供應商折扣數 Ad_words = rs_store("Ad_words") '//宣傳詞 MemLevel = rs_store("MemLevel") '== 購買分級 Cash_Bonus = rs_store("Cash_Bonus") '// 可用紅利 Back_Bonus = rs_store("Back_Bonus") '// 回饋紅利 Bz_ID = rs_store("Store_ID") '// 供應商ID Sys_Modified = rs_store("Sys_Modified") '// 加入轉換HTML斷行的語法 Description_S = rs_store("Description_S") Description_S = Replace(Description_S,chr(10),"
") Description_L = rs_store("Description_L") 'Description_L = Replace(Description_L,chr(10),"
") '//左側標題 if Shop_name<>"" and Shop_name <> Catid_name then NowTag = Shop_name NowTagLink = ShopLink(Shop_id,Shop_Link_En) else NowTag = Catid_name NowTagLink = CatLink(Link_Department_ID,Link_En) end if '//寫入紀錄 call Ins_Records(Shopper_Id,Item_Id,"1") %>
<% set rs_banner = Server.CreateObject("ADODB.Recordset") SQL_banner = " SELECT bannertext, bannerid, bannertarget, link From xlaABMbanners "&_ " Where startdate <= '"& Date()&"' And enddate > '"& Date() & "' And status = 1 "&_ " And bannerid IN (SELECT bannerid FROM xlaABMiBannersZones where zoneid = 129 ) Order by bannerid desc" rs_banner.open SQL_banner,Conn_Store,1,1 do while not rs_banner.eof OpenTarget="target='_top'" if Len(rs_banner("bannertarget"))>0 then'是否另開視窗 OpenTarget="Target='New'" end if %> ※
&z=129" <%=OpenTarget%>><%=rs_banner("bannertext")%>
<% rs_banner.movenext loop rs_banner.close set rs_banner = nothing %>
<%=Left(Item_Name,25)%><%if Len(Item_Name) > 25 then%>.<%end if%>
<%=Ad_words%>
<%= Description_S %>
<%if Description_L<>"" then%>
<%= Description_L %>
<%end if%>
