<%
'**************************************
'* 最后更新 2013-05-04 by 56770.kingdge
'* Copyright www.56770.com
'**************************************
Dim listprice,listtime,listtype,page,sle_type,brand,sel_type
Dim sc_name,B_sort_name,sort_info,sort_title,sort_key,sort_des,showsort_name,pricetype,s_price,price1,price2, brand_pic,brand_content
If InStr(LCase(Request.ServerVariables("URL")),"brand/")>0 or InStr(LCase(Request.ServerVariables("URL")),"brand.asp")>0 Then
		sort_id = request("sort_id")
End If
If show_html = 0 Or InStr(LCase(Request.ServerVariables("URL")),"brand/")>0 or InStr(LCase(Request.ServerVariables("URL")),"brand.asp")>0 Then
		page= checknum(request("page"),1)
		sle_type= request("sle_type")
		brand=safereplace(request("brand"))
End If
listprice=safereplace(request("listprice"))
listtime=request("listtime")
listtype=request("listtype")
listview=request("listview")
listbuy=request("listbuy")
sort_id = checknum(sort_id,0)
sle_type = checknum(sle_type,0)
pricetype=Trim(CLng(request("pricetype")))
s_price=Trim(CLng(request("s_price")))
If s_price<>"" Then
		price1=Trim(request("price"&s_price&"_1"))
		price2=Trim(request("price"&s_price&"_2"))
End If
ShowPath = "<a href='"& Eshop_url & LangPath &"'>"& Lebi_word(0) &"</a> → "
If brand <> "" Then
		Select Case ISAPI_Rewrite
			   Case "0"
					ShowPath = ShowPath &"<a href="""& Eshop_url & PagePath(5) &""">"& Lebi_word(13) &"</a> → "
					ShowPath = ShowPath &"<a href="""& Eshop_url & PagePath(4) &"?brand="& Urlencode(brand) &""">"& brand &"</a> → "
			   Case "1"
					ShowPath = ShowPath &"<a href="""& Eshop_url & LangPath &"brand.html"">"& Lebi_word(13) &"</a> → "
					ShowPath = ShowPath &"<a href="""& Eshop_url & LangPath &"brand-"& Urlencode(brand) &".html"">"& brand &"</a> → "
		End Select
		If sort_id<>"0" then
				set sc_name = conn.execute("select c_id,c_name"& LangTxt &",c_parentid,c_info"& LangTxt &",c_foldername,c_filename from [Lebi_category] where is_hide = 0 and c_id="& sort_id &"")
				If Not sc_name.eof Then
					If Not IsNull(Trim(sc_name(1))) And Trim(sc_name(1)) <> "" Then 
						B_sort_name = sc_name(1)
						sort_info = sc_name(3)
						If sc_name(2) <> 0 Then
								Get_showsort_sortname(sc_name(2))
								'ShowPath = ShowPath &" → "
						End If
						Select Case show_html
							   Case "0"
									Select Case ISAPI_Rewrite
										   Case "0"
												Select Case Config_Lebi_Eshop(16)
													  Case "0" : ShowPath = ShowPath &"<a href="""& Eshop_url & LangPath &"showsort.asp?sort_id="& sc_name(0) &""">"& sc_name(1) &"</a> → "
													  Case "1" : ShowPath = ShowPath &"<a href="""& Eshop_url & LangPath &"category/"& sc_name(4) &"/"">"& sc_name(1) &"</a> → "
													  Case "2" : ShowPath = ShowPath &"<a href="""& Eshop_url & LangPath &"category/"& sc_name(4) &"/default.asp"">"& sc_name(1) &"</a> → "
												End Select
										   Case "1" ShowPath = ShowPath &"<a href="""& Eshop_url & LangPath &"category-"& sc_name(4) &".html"">"& sc_name(1) &"</a> → "
									End Select
							   Case "1" : ShowPath = ShowPath &"<a href="""& Eshop_url & LangPath & Folder(2) & sc_name(5) &".1."& Sys_Ext &""">"& sc_name(1) &"</a> → "
						End Select
					End If 
				End If
				sc_name.close:set sc_name=Nothing
				sort_title = Split(sort_info,"$")(0)
				sort_key = Split(sort_info,"$")(1)
				sort_des = Split(sort_info,"$")(2)
		End If
		ShowPath = ShowPath & Lebi_word(30) &""
Else
		ShowPath = ShowPath & Lebi_word(13) &""
End If
if sort_id = "0" then
		If brand <> "" Then
				strwebtitle = brand
		Else
				strwebtitle = Lebi_word(13)
		End If
		showsort_name = brand
Else
		If sort_title <> "" Then
				strwebtitle = sort_title
		Else
				strwebtitle = B_sort_name
		End If
		If brand <> "" Then
				strwebtitle = strwebtitle &"_"& brand
		End If
		showsort_name = B_sort_name
End If
strwebtitle = strwebtitle &"-"
If sort_des <> "" Then description = sort_des
If sort_key <> "" Then keywords = sort_key
session("oldUrl") = geturl()
If brand <> "" Then
		Dim rsbrand
		Set rsbrand = conn.execute("select brand_pic,b_content"& LangTxt &" from [Lebi_brand] where brand"& LangTxt &"='"& brand &"'")
		If Not rsbrand.eof Then
				brand_pic = rsbrand(0)
				If brand_pic = "" Then brand_pic = "images/space.gif"
				brand_content = rsbrand(1)
		End If
End If
%>