<%
'**************************************
'* 最后更新 2012-05-17 by 56770.kingdge
'* Copyright www.56770.com
'**************************************
dim id,other_main
strwebtitle = Lebi_pro(92) &"-"
sitename = site_name
id = checknum(request("id"),0)
ShowPath = "<a href='"& Eshop_url & LangPath &"'>"& Lebi_word(0) &"</a> → "
Set rs = conn.execute("select product_name"& LangTxt &",p_filename from [Lebi_product] where id = "& id &"")
If Not rs.eof Then
		Select Case show_html
			   Case "0"
					Select Case ISAPI_Rewrite
						   Case "0" ShowPath=ShowPath&"<a href='"& Eshop_url & PagePath(10) &"?id="& id &"'>"
						   Case "1" ShowPath=ShowPath&"<a href='"& Eshop_url & LangPath &"product-"& id &".html'>"
					End Select
			   Case "1" ShowPath=ShowPath&"<a href='"& Eshop_url & LangPath & Folder(0) & rs(1) &".1.html'>"
		End Select
        ShowPath=ShowPath&""& rs(0) &"</a> → "& Lebi_pro(92) &""
End If
rs.close : Set rs = Nothing
Function rating_main()
         rating_main = "<div class=""myuserinfo""><TABLE WIDTH=""100%"" CELLPADDING=""0"" CELLSPACING=""0"" BORDER=""0"">"
         rating_main = rating_main &"<tr>"
		 rating_main = rating_main &"<td height=""25"" CLASS=""headmenu"">"& Lebi_pro(95) &"</td>"
		 rating_main = rating_main &"<td CLASS=""headmenu"">"& Lebi_pro(97) &"</td>"
		 rating_main = rating_main &"<td CLASS=""headmenu"">"& Lebi_pro(98) &"</td>"
		 rating_main = rating_main &"</tr>"
         set Rs = conn.execute("select r_num,r_user,r_time from [Lebi_rating] where p_id = "& id &" order by r_time desc")
         do while not rs.eof
         rating_main = rating_main &"<tr class=""list""><td height='25' class=""list"">"& rs(1) &"</td><td height='25' class=""list""><img src='"& Eshop_url&"images/rating/"& rs(0) &".gif' alt='"& rs(0) &"'></td><td height='25' class=""list"">"& rs(2) &"</td></tr>"
         rs.movenext
         loop
         rs.close
         rating_main = rating_main &"</table></div>"
End Function
other_main = rating_main
%>