<%
'**************************************
'* 最后更新 2012-06-29 by 56770.Kingdge
'* Copyright www.56770.com
'*************************************
Dim comperror
strwebtitle = Lebi_pro(109) &"-"
sitename = site_name
description = Replace(safereplace(Sys_description)," ","")
keywords = Replace(safereplace(Sys_keywords)," ","")
Showpath = "<a href='"& Eshop_url & LangPath &"'>"& Lebi_word(0) &"</a> → "& Lebi_pro(109) &""
Dim id,comid,pid,str,url,a,k,x,i,tl,mes,other_main
id=cint(request("id"))
Select Case request("action")
	   Case Else
	        list()
End Select
Sub list()
		comid=Replace(request("com_id"),",","$")
		a=Split(comid,"$")
		If comid="" Then
				comperror=true
				other_main = CallBack(Lebi_pro(109),"·"&Lebi_pro(110),Eshop_url & LangPath,3)
		End If
		If UBound(a)>20 Then
				comperror=True
				other_main = CallBack(Lebi_pro(109),"·"&Lebi_pro(113),Eshop_url & LangPath,3)
		End If
        If comperror=False Then
				Set rs = conn.execute("select p.id,product_name"& LangTxt &",pic,sj,cx,views,stj,ytj,sprice,cprice,buys,brand"& LangTxt &",IsNew,p_filename,s.price as buyprice,briefed"& LangTxt &",categoryid from [Lebi_product] as p,[Lebi_product_price] as s where s.product_id=p.id and s.grade_id="&Lebi_UserGrade&" and p.id in("& safereplace(request("com_id")) &")")
				If Not rs.eof Then 
					CompareData = rs.getrows()
				End If 
				rs.close : Set rs = Nothing
				other_main = other_main &"<script src="""& Eshop_url &"include/js/product_comp.js""></script><script>closeCompareDiv();</script>"
				other_main = other_main &"<div class=""comparelist"">"
				other_main = other_main &"<TABLE width="""& 160* (UBound(a)+1) + 120 &""" cellspacing=""1"" cellpadding=""0"">"
				other_main = other_main &"<tr class=""list"">"
				other_main = other_main &"<th>&nbsp;</td>"
				For i=0 To UBound(CompareData,2)
						other_main = other_main &"<td width=""160"" height=""20"" align=""left""  class=""list""><a href=""#"" onclick=""delCompId('"& CompareData(0,i) &"','"& str &"');"">"& Lebi_pro(111) &"</a>&nbsp;/&nbsp;<a href="""& Eshop_url & PagePath(25) &"?action=shoucang_add&id="& CompareData(0,i) &"&product_name="& Urlencode(CompareData(1,i)) &""">"& Lebi_pro(36) &"</a></td>"
				Next
				other_main = other_main &"</tr>"
				other_main = other_main &"<tr class=""list"">"
				other_main = other_main &"<th>"& Lebi_pro(112) &"</td>"
				For i=0 To UBound(CompareData,2)
						other_main = other_main &"<td  class=""list""><div class=""picture""><a href="""& Eshop_url &""
						Select Case show_html
							   Case "0"
									Select Case ISAPI_Rewrite
										   Case "0" other_main = other_main & PagePath(10) &"?id="& CompareData(0,i)
										   Case "1" other_main = other_main & LangPath &"product-"& CompareData(0,i) &".html"
									End Select
							   Case "1" : other_main = other_main & LangPath & Folder(0) & CompareData(13,i) &".1."& Sys_Ext
						End Select
						other_main = other_main &""" title='"&CompareData(1,i)&"' class=""picborder"" target=""_blank""><img border=""0"" src="""& Eshop_url & PicturePath & CompareData(2,i) &""" alt="""& CompareData(1,i) &""" /></a></div></td>"
				Next
				other_main = other_main &"</tr>"
				other_main = other_main &"<tr class=""list"">"
				other_main = other_main &"<th>"& Lebi_pro(0) &"</td>"
				For i=0 To UBound(CompareData,2)
						other_main = other_main &"<td height=""50""  class=""list""><a href="""& Eshop_url &""
						Select Case show_html
							   Case "0"
									Select Case ISAPI_Rewrite
										   Case "0" other_main = other_main & PagePath(10) &"?id="& CompareData(0,i)
										   Case "1" other_main = other_main & LangPath &"product-"& CompareData(0,i) &".html"
									End Select
							   Case "1" : other_main = other_main & LangPath & Folder(0) & CompareData(14,i) &".1."& Sys_Ext
						End Select
						other_main = other_main & """ title='"& CompareData(1,i) &"' target=""_blank"">"& CompareData(1,i) &"</a><br />"
						If Config_Lebi_Eshop(7)=1 And CompareData(12,i)=1 Then
								other_main = other_main &"<img src='"&Eshop_url&"images/icons/pro_3.gif' align='absmiddle' /> "
						End if
						If Config_Lebi_Eshop(5)=1 And Int(CompareData(5,i))>Int(Config_Lebi_Eshop(6)) Then
								other_main = other_main &"<img src='"&Eshop_url&"images/icons/pro_2.gif' align='absmiddle' /> "
						End if
						If Config_Lebi_Eshop(3)=1 And CompareData(4,i)=1 Then
								other_main = other_main &"<img src='"&Eshop_url&"images/icons/pro_1.gif' align='absmiddle' /> "
						End If
						If Config_Lebi_Eshop(4)=1 And (CompareData(6,i)=1 Or CompareData(7,i)=1) Then
								other_main = other_main &"<img src='"&Eshop_url&"images/icons/pro_4.gif' align='absmiddle' />"
						End If
						other_main = other_main &"</td>"
				Next
				other_main = other_main &"</tr>"
				other_main = other_main &"<tr class=""list"">"
				other_main = other_main &"<th>"& Lebi_pro(1) &"</td>"
				For i=0 To UBound(CompareData,2)
						other_main = other_main &"<td height=""25"" class=""list"">"& dw & formatnumber2(CompareData(8,i)/moneyhl) & dw2 &"</td>"
				Next
				other_main = other_main &"</tr>"
				other_main = other_main &"<tr class=""list"">"
				other_main = other_main &"<th>"& Lebi_pro(5) &"</td>"
				For i=0 To UBound(CompareData,2)
						other_main = other_main &"<td height=""25""  class=""list""><u><strong>"
						If checkPricePurview(Lebi_UserGrade) Then
								Select Case CompareData(4,i)
									   Case "1" : other_main = other_main & dw & formatnumber2(CompareData(9,i)/moneyhl) & dw2
									   Case "0" : other_main = other_main & dw & formatnumber2(CompareData(14,i)/moneyhl) & dw2
								End Select
						Else
								other_main = other_main & Lebi_word(66)
						End If
						other_main = other_main &"</strong></u></td>"
				Next
				other_main = other_main &"</tr>"
				other_main = other_main &"<tr class=""list"">"
				other_main = other_main &"<th>"& Lebi_pro(83) &"</td>"
				For i=0 To UBound(CompareData,2)
						other_main = other_main &"<td height=""25""  class=""list""><a href="""& Eshop_url & PagePath(4) &"?brand="& Urlencode(CompareData(11,i)) &""" target=""_blank"">"& CompareData(11,i) &"</a></td>"
				Next
				other_main = other_main &"</tr>"
				other_main = other_main &"<tr class=""list"">"
				other_main = other_main &"<th>"& Lebi_pro(72) &"</td>"
				For i=0 To UBound(CompareData,2)
						other_main = other_main &"<td height=""25""  class=""list"">"& CompareData(5,i) &"</td>"
				Next
				other_main = other_main &"</tr>"
				other_main = other_main &"<tr class=""list"">"
				other_main = other_main &"<th>"& Lebi_pro(73) &"</td>"
				For i=0 To UBound(CompareData,2)
						other_main = other_main &"<td height=""25""  class=""list"">"& CompareData(10,i) &"</td>"
				Next
				other_main = other_main &"</tr>"
				other_main = other_main &"<tr class=""list"">"
				other_main = other_main &"<th>"& Lebi_pro(71) &"</td>"
				For i=0 To UBound(CompareData,2)
						other_main = other_main &"<td height=""25""  class=""list"">"& CompareData(3,i) &"</td>"
				Next
				other_main = other_main &"</tr>"
				other_main = other_main &"<tr class=""list"">"
				other_main = other_main &"<th>"& Lebi_pro(116) &"</td>"
				For i=0 To UBound(CompareData,2)
						other_main = other_main &"<td height=""25""  class=""list"">"& CompareData(15,i) &"</td>"
				Next
				other_main = other_main &"</tr>"
				other_main = other_main &"<tr class=""list"">"
				other_main = other_main &"<th>&nbsp;</td>"
				For i=0 To UBound(CompareData,2)
						other_main = other_main &"<td height=""25""  class=""list""><input type=""button"" name=""button_0001_"& CompareData(0,i) &""" id=""button_0001_"& CompareData(0,i) &""" onClick=""javascript:addtobasket('"& CompareData(0,i) &"','0001','',1)"" value="""& Lebi_user(157) &""" class=""button""><input type=""hidden"" name=""pro_color_0001_"& CompareData(0,i) &""" value=""-""><input type=""hidden"" name=""pro_size_0001_"& CompareData(0,i) &""" value=""-""></td>"
				Next
				other_main = other_main &"</tr>"
				other_main = other_main &"</table>"
				other_main = other_main &"</div>"
		 End If
End sub
%>