<%
search_url = "online_celeb.asp"
%>
Celeb
<%
'0. 전체 카운트
sql = "select count(*) from shop_goods with(nolock) where display_chk_en = 'Y' and del_chk='N' and goods_celeb_chk='Y' "
If category <> "" Then
data_cate_code = split(category,",")
for i = 0 to ubound(data_cate_code)
cate_code_seq = "'"&Trim(data_cate_code(i))&"'"
If i=0 then
cate_code_seq_chk = cate_code_seq
Else
cate_code_seq_chk = cate_code_seq_chk&","&cate_code_seq
End if
next
sql = sql & " and category_seq in ("&cate_code_seq_chk&") "
End If
If search_str <> "" Then
sql = sql & " and ((goods_name_en like '%"&search_str&"%') or (goods_model_name_en like '%"&search_str&"%') or (goods_make_com_en like '%"&search_str&"%')) "
End if
rs.open sql,dbcon
if not rs.eof then
total_row = rs(0)
else
total_row = 0
end if
rs.close
pagesize = 12 '페이지당 게시물 수
page_block = 5 '단위 블럭당 페이지 수
total_page=int(total_row/pagesize)+1
if (total_row mod pagesize)=0 then total_page = total_page-1
if page > total_page and total_page > 0 then page = total_page
'1. 목록
sql = "select TOP "& pagesize &" "
sql = sql & " a.seq,b.shop_com_name_en,a.goods_name_en,goods_money_en,(select top 1 img_name from shop_goods_img as c where a.seq = c.goods_seq order by sort asc) as img_name, a.shop_seq, a.goods_awards_chk "
sql = sql & " from shop_goods as a with(nolock) left join shop as b on a.shop_seq = b.seq "
sql = sql & " where display_chk_en = 'Y' and del_chk='N' and goods_celeb_chk='Y' "
If category <> "" Then
data_cate_code = split(category,",")
for i = 0 to ubound(data_cate_code)
cate_code_seq = "'"&Trim(data_cate_code(i))&"'"
If i=0 then
cate_code_seq_chk = cate_code_seq
Else
cate_code_seq_chk = cate_code_seq_chk&","&cate_code_seq
End if
next
sql = sql & " and category_seq in ("&cate_code_seq_chk&") "
End If
If search_str <> "" Then
sql = sql & " and ((goods_name_en like '%"&search_str&"%') or (goods_model_name_en like '%"&search_str&"%') or (goods_make_com_en like '%"&search_str&"%')) "
End if
sql = sql & " and a.seq not in "
sql = sql & " (SELECT TOP "& pagesize*(page-1) &" seq FROM shop_goods with(nolock) where display_chk_en = 'Y' and del_chk='N' and goods_celeb_chk='Y' "
If category <> "" Then
data_cate_code = split(category,",")
for i = 0 to ubound(data_cate_code)
cate_code_seq = "'"&Trim(data_cate_code(i))&"'"
If i=0 then
cate_code_seq_chk = cate_code_seq
Else
cate_code_seq_chk = cate_code_seq_chk&","&cate_code_seq
End if
next
sql = sql & " and category_seq in ("&cate_code_seq_chk&") "
End If
If search_str <> "" Then
sql = sql & " and ((goods_name_en like '%"&search_str&"%') or (goods_model_name_en like '%"&search_str&"%') or (goods_make_com_en like '%"&search_str&"%')) "
End if
If listing = "m_down" Then
sql = sql & " order by goods_money_en asc, seq desc) order by goods_money_en asc, seq desc "
elseIf listing = "m_up" Then
sql = sql & " order by goods_money_en desc, seq desc) order by goods_money_en desc, seq desc "
elseIf listing = "best" Then
sql = sql & " order by read_num desc, seq desc) order by read_num desc, seq desc "
else
sql = sql & " order by seq desc) order by a.seq desc "
End If
rs.open sql,dbcon
if rs.eof Then
rs.close
%>
-
No registered products.
<%
Else
data_goods_dick = rs.getrows()
rs.close
k = total_row-(cint(pagesize)*(cint(page)-1))
For i=0 To UBound(data_goods_dick,2)
r_goods_seq = data_goods_dick(0, i)
r_shop_com_name = data_goods_dick(1, i)
r_goods_name_kr = data_goods_dick(2, i)
r_goods_money_kr = data_goods_dick(3, i)
r_goods_img_name = data_goods_dick(4, i)
r_shop_seq = data_goods_dick(5, i)
r_goods_awards_chk = data_goods_dick(6, i)
r_goods_money_kr_ment = r_goods_money_kr
'특약 유무 확인
sql = "select seq from shop_special_pick where shop_seq='"&r_shop_seq&"' "
rs.open sql,dbcon
if rs.eof Then
rs.close
Else
special_seq = rs(0)
rs.close
sql = "select * from shop_special_matching where special_seq='"&special_seq&"' and member_id='"&session("id")&"' "
rs.open sql,dbcon
if rs.eof Then
rs.close
r_goods_money_kr_ment = ""
Else
rs.close
End if
End if
%>
-
<%If r_goods_awards_chk = "Y" then%>Awards<%End if%>
<%=r_shop_com_name%>
<%=r_goods_name_kr%>
<%=r_goods_money_kr_ment%>
<%
k=k-1
next
End If
dbcon.close
%>
<%
PAGE_URL = "/eng/online_celeb.asp?search_name="&search_name&"&search_str="&search_str&"&category="&category&"&listing="&listing&"&"
%>