<%
'**************************************
'* 最后更新 2014-01-20 by 56770.kingdge
'* Copyright www.56770.com
'**************************************
Dim addtime,listprice,listtime,listtype,page,sle_type,brand,sel_type,retime,gongxiao,person
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,sort_parentid,sort_foldername,sort_filename,sort_num,sort_name,value
If InStr(LCase(Request.ServerVariables("URL")),"/showsort")>0 Then
		sort_id=request("sort_id")
End If
If show_html = 0 Or InStr(LCase(Request.ServerVariables("URL")),"category")>0 Or InStr(Request.ServerVariables("URL"),"?")>0 Then
		page= request("page")
		sle_type= request("sle_type")
End If
page = checknum(page,1)
sort_id = checknum(sort_id,0)
sle_type = checknum(sle_type,0)
brand=safereplace(request("brand"))
listprice=request("listprice")
listtime=request("listtime")
listtype=request("listtype")
gongxiao=safereplace(request("gongxiao"))
person=safereplace(request("person"))
listview=request("listview")
listbuy=request("listbuy")
pricetype = CLng(request("pricetype"))
s_price = CLng(request("s_price"))
If s_price<>"" Then
		price1 = safereplace(request("price"&s_price&"_1"))
		price2 = safereplace(request("price"&s_price&"_2"))
End If
value = replace(Replace(Trim(request("value")),"'","&#180;")," ","")
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(4) &"?brand="& Urlencode(brand) &""">"& brand &"</a> → "
			   Case "1" ShowPath = ShowPath &"<a href="""& Eshop_url & LangPath &"brand-"& Urlencode(brand) &".html"">"& brand &"</a> → "
		End Select
End If
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,c_pronum,c_pic,c_pic_size from [Lebi_category] where is_hide = 0 and c_id="& sort_id &"")
		If Not sc_name.eof Then
				sort_name = sc_name(1)
				B_sort_name = sc_name(1)
				sort_parentid = sc_name(2)
				sort_info = sc_name(3)
				If IsNull(sort_info) Or InStr(sort_info,"$") = 0 Then sort_info = "$$$"
				sort_foldername = sc_name(4)
				sort_filename = sc_name(5)
				sort_num = sc_name(6)
				sort_pic = sc_name(7)
				sort_pic_size = sc_name(8)
				If sc_name(2) <> 0 Then
						ShowPath = ShowPath & Get_showsort_path(sc_name(2))
						B_sort_name = B_sort_name & Get_showsort_sortname(sc_name(2))
				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
		Else
				sort_parentid = 0
		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)
Else
		sort_parentid = 0
End If
ShowPath = ShowPath & Lebi_word(30) &""
if sort_id = 0 then
		If brand <> "" Then
				strwebtitle = brand
		Else
				strwebtitle = Lebi_word(30)
		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)
				brand_content = rsbrand(1)
		End If
End If
%>