<%
'**************************************
'* 最后更新 2009-11-5 by 56770.kingdge
'* Copyright www.56770.com
'**************************************
Dim id,page,sqlRsPro,RsPro,p_cx_sj,p_stj_sj,p_ytj_sj,ProductInfoItemId,ProductInfoItemName,ProductInfoItemPoint,ProductInfoItemWeight,ProductInfoItemReleaseDate,ProductInfoItemNumber,ProductInfoItemStock,ProductInfoItemBriefed,ProductInfoItemDetails,ProductInfoItemCategory,arr_category,category_i,categoryid,sql,ProductInfoItemPic
If show_html = 0 Then
        id = Request("id")
		page = request("page")
End If
id = checknum(id,0)
page = checknum(page,1)
session("oldUrl") = Eshop_url & PagePath(8) &"?id="&id
sqlRsPro="select product_name"& LangTxt &",id,bianhao,sprice,cprice,sj,ytj,views,buys,p_jifen,p_ytj_sj,cpic,p_weight,briefed"& LangTxt &",pic_size,details"& LangTxt &",webhead"& LangTxt &",kucun,pic,p_filename from [Lebi_product_unite] where id=" & id
Set RsPro = conn.execute(sqlRsPro)
if RsPro.eof Then
		response.redirect Eshop_url & LangPath
Else
        p_ytj_sj=datediff("d",Now(),DateAdd("d",rspro(10),rspro(5)),#2000-1-1#)
		If Split(RsPro(16),"$$$")(0)<>"" Then
                strwebtitle=Split(RsPro(16),"$$$")(0) &"_"& RsPro(0) & "-"
		Else
                strwebtitle = RsPro(0) & "-"
		End If
		If Split(RsPro(16),"$$$")(1)<>"" Then
                keywords=Split(RsPro(16),"$$$")(1)
		End If
		If Split(RsPro(16),"$$$")(2)<>"" Then
                description=Split(RsPro(16),"$$$")(2)
		End If
	    ProductInfoItemId = rspro(1)
	    ProductInfoItemName = trim(rspro(0))
		EncodeProductInfoItemName = Urlencode(ProductInfoItemName)
	    ProductInfoItemNumber = trim(rspro(2))
	    ProductInfoItemPoint = rspro(9)
	    ProductInfoItemWeight = rspro(12)
	    ProductInfoItemReleaseDate = rspro(5)
	    ProductInfoItemStock = rspro(17)
	    ProductInfoItemBriefed = rspro(13)
	    ProductInfoItemDetails = rspro(15)
	    ProductInfoItemCategory = Lebi_pro_unite(0)
		ProductInfoItemPic = rspro(18)
End If
ShowPath = "<a href='"& Eshop_url & LangPath &"'>"& Lebi_word(0) &"</a> → "
Select Case show_html
	   Case "0"
			Select Case ISAPI_Rewrite
				   Case "0" ShowPath = ShowPath & "<a href="""& Eshop_url & url_10 &""">"& Lebi_pro_unite(0) &"</a> → "
				   Case "1" ShowPath = ShowPath & "<a href="""& Eshop_url & LangPath &"unite.html"">"& Lebi_pro_unite(0) &"</a> → "
			End Select
	   Case "1" : ShowPath = ShowPath & "<a href="""& Eshop_url & url_10 &""">"& Lebi_pro_unite(0) &"</a> → "
End Select
ShowPath = ShowPath & rspro(0)
%>