<!--#include file="conn.asp"-->
<!--#include file="inc_product_list.asp"-->
<%
dim rs,sql
dim c_id,c_title,detail
dim sql_new,rs_new,pkid,model,productname,smallpicpath,price1,price2,pipai
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html >
<head>
<%
dim sql4,rs4,meta_all
dim sitename,sitedisc,sitetel
dim hotflag,cxflag
sql4="select siteurl,sitename,sitedisc,sitetel,sitekeyword from siteinfo"
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,conn,1,1
if rs4.bof or rs4.eof then
else
	siteurl=rs4("siteurl")
	sitename=rs4("sitename")
	sitedisc=rs4("sitedisc")
	sitetel=rs4("sitetel")
	sitekeyword = rs4("sitekeyword")&"&nbsp;"
	application("siteurl")=siteurl
	application("sitename")=sitename
	application("sitedisc")=sitedisc
	application("sitetel")=sitetel
	response.cookies("sitekeyword")= sitekeyword
	response.cookies("sitekeyword").Expires="2027-12-30"
end if
rs4.close
set rs4=nothing

sql4="select meta_all from meta"
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,conn,1,1
if rs4.bof or rs4.eof then
	response.write "我的网店"
else
		meta_all=rs4("meta_all")
		response.write meta_all
end if
rs4.close
set rs4=nothing

sql4="select l_id,showflag from e_left where l_id=25 or l_id=39 "
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,conn,1,1
if rs4.bof or rs4.eof then
	
else
	do while not rs4.eof

		l_id=rs4("l_id")
		if l_id=25 then
			hotflag=rs4("showflag")
		else
			cxflag=rs4("showflag")
		end if
	rs4.movenext
	loop
end if
rs4.close
set rs4=nothing
%>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<link href="i.css" type=text/css rel=stylesheet>
<link href="index_ad.css" type=text/css rel=stylesheet>

<script language="javascript">
<!--
function SetBgColor(Menu)
{
		Menu.style.background="#F2F2F5";
}
function RestoreBgColor(Menu)
{
		Menu.style.background="#ffffff";
}
-->
</script>
</head>

<body >

<!-- #include file="head.asp" -->
<%
dim biaoflag,lefturl,leftlink,righturl,rightlink,bannarflag,bannarurl,bannarlink
dim changeflag,curl1,curl2,curl3,curl4,curl5,clink1,clink2,clink3,clink4,clink5
sql4="select * from ad"
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,conn,1,1
if rs4.bof or rs4.eof then

else
	biaoflag=rs4("biaoflag")
	lefturl=rs4("lefturl")
	leftlink=rs4("leftlink")
	righturl=rs4("righturl")
	rightlink=rs4("rightlink")
	bannarflag=rs4("bannarflag")
	bannarurl=rs4("bannarurl")
	bannarlink=rs4("bannarlink")
	changeflag=rs4("changeflag")
	curl1=rs4("curl1")
	curl2=rs4("curl2")
	curl3=rs4("curl3")
	curl4=rs4("curl4")
	curl5=rs4("curl5")
	ctext1=rs4("ctext1")
	ctext2=rs4("ctext2")
	ctext3=rs4("ctext3")
	ctext4=rs4("ctext4")
	ctext5=rs4("ctext5")
	clink1=rs4("clink1")
	clink2=rs4("clink2")
	clink3=rs4("clink3")
	clink4=rs4("clink4")
	clink5=rs4("clink5")
	hotpicurl=rs4("hotpicurl")
	hotpiclink=rs4("hotpiclink")
	mid_flag=rs4("mid_flag")
	rightpicurl1=rs4("rightpicurl1")
	rightpiclink1=rs4("rightpiclink1")
	rightpicurl2=rs4("rightpicurl2")
	rightpiclink2=rs4("rightpiclink2")
	rightpicurl3=rs4("rightpicurl3")
	rightpiclink3=rs4("rightpiclink3")
	topnewspicurl=rs4("topnewspicurl")
	topnewspiclink=rs4("topnewspiclink")
	cuxpicurl=rs4("cuxpicurl")
	cuxpiclink=rs4("cuxpiclink")
	newpicurl=rs4("newpicurl")
	newpiclink=rs4("newpiclink")
	
end if 
rs4.close
set rs4=nothing
%>
<div id="cen1">
  <div style="FLOAT: left;padding: 0px; margin:0px auto; WIDTH: 212px;">
	  <!-- #include file="inc_left_all.asp" -->
  </div>
  <div style="FLOAT: right;padding: 0px 0px; WIDTH: 783px; ">
	  <div class="bange"></div>
	  
	  <div style="float:left; width:780px; ">
			<div ads_key="www_zzjs_net" ads_name="首页切换广告位" id="www_zzjs_net_box" class="www_zzjs_net_box ftl">
			  <div class="img dpn"><a href="<%=clink1%>" target="_blank" title="<%=ctext1%>"><img class="img_directly_load" src="<%=curl1%>" /></a></div>
			  <div class="img dpn"><a href="<%=clink2%>" target="_blank" title="<%=ctext2%>"><img class="img_directly_load" src="<%=curl2%>" /></a></div>
			  <div class="img dpn"><a href="<%=clink3%>" target="_blank" title="<%=ctext3%>"><img class="img_directly_load" src="<%=curl3%>" /></a></div>
			  <div class="img dpn"><a href="<%=clink4%>" target="_blank" title="<%=ctext4%>"><img class="img_directly_load" src="<%=curl4%>" /></a></div>
			  <div class="img dpn"><a href="<%=clink5%>" target="_blank" title="<%=ctext5%>"><img class="img_directly_load" src="<%=curl5%>" /></a></div>
			  <ul id="www_zzjs_net_txt_bg" class="panel">
			  <li></li>
			  <li></li>
			  <li></li>
			  <li></li>
			  <li class="last"></li>
			 </ul>
			 <ul id="www_zzjs_net_txt" class="title">
				<li><a href="<%=clink1%>" target="_blank"><%=ctext1%></a></li>
				<li><a href="<%=clink2%>" target="_blank"><%=ctext2%></a></li>
				<li><a href="<%=clink3%>" target="_blank"><%=ctext3%></a></li>
				<li><a href="<%=clink4%>" target="_blank"><%=ctext4%></a></li>
				<li><a href="<%=clink5%>" target="_blank"><%=ctext5%></a></li>
			  </ul>
			 <div id="www_zzjs_net_loding" class="loding"></div>
			</div>
			<script type="text/javascript"> 
			//---------- start index focus
			function www_zzjs_net_change()
			{
			 var self_now = 0;
			 var self_speed = 5000;
			 var self_auto_change = null;
			 var self_max = $('#www_zzjs_net_box div.img').size();
			 function self_change(i)
			 {
			  $('#www_zzjs_net_box div.img').hide();
			  $('#www_zzjs_net_txt_bg li').removeClass('on');
			  $('#www_zzjs_net_txt li').removeClass('on');
			  $('#www_zzjs_net_box div.img:eq(' + i + ')').show();
			  $('#www_zzjs_net_txt_bg li:eq(' + i + ')').addClass('on');
			  $('#www_zzjs_net_txt li:eq(' + i + ')').addClass('on');
			 }
			 function self_interval()
			 {
			  return setInterval(function(){
			   self_now++;
			   if (self_now >= self_max)
			   {
				self_now = 0;
			   }
			   self_change(self_now);
			  }, self_speed);
			 }
			 $('#www_zzjs_net_box div:first').show();
			 $('#www_zzjs_net_txt_bg li:first').addClass('on');
			 $('#www_zzjs_net_txt li:first').addClass('on');
			 $('#www_zzjs_net_txt li').each(function(i)
			 {
			  $(this).mouseover(function(){
			   self_now = i;
			   clearInterval(self_auto_change);
			   self_change(i);
			  }).mouseout(function(){
			   self_auto_change = self_interval();
			  });
			 });
			 $(function(){
			  $('#www_zzjs_net_loding').hide();
			  self_auto_change = self_interval();
			 });
			}
			www_zzjs_net_change();
			//---------- end index focus
			</script>
	  </div>
	  
  </div>
  <div style="CLEAR: both;"></div>
</div> <!-- cen1  end-->

<div class="bange"></div>


<!--------------左右广告,热卖，促销等begin-------------->
<div style="width:996px; margin:0 auto; text-align:left; background-color:#ffffff; ">

	  <!-- 商讯begin-->
	  <div style="float:left; width:203px; height:317px; border:#cccccc solid 1px; overflow:hidden; ">
	  
			<div style="height:32px;background:url(images/index_png24_a1.png);color:#484848;font-weight:bold;padding-top:10px;">&nbsp;最新商讯</div>
			
			<DIV class="line_orange"><UL class=num>
			<% '商讯
			sql="select top "&s_news&" c_id,c_title,detail from e_contect where c_parent2=30 order by c_num desc,c_addtime desc,c_id desc"
			set rs=server.CreateObject("adodb.recordset")
			rs.open sql,conn,1,1
			if rs.bof or rs.eof then
				response.write "<div align=center>没有记录!</div>"
			else
			
				do while not rs.eof
					set c_id=rs("c_id")
					set c_title=rs("c_title")
					if len(c_title)>13 then 
					c_title2=left(c_title,13)&"..."
					else
					c_title2=c_title
					end if
					set detail=rs("detail")
				  if detail="1" then
						response.write "<li><NOBR><a href='show_all.asp?c_id="&c_id &"' title='"&c_title&"'>"&c_title2&"</a></NOBR></li>"
				  else
						response.write "<li><NOBR><a href='news.asp?l_id=30' title='"&c_title&"'>"&c_title2&"</a></NOBR></li>"
				  end if
				rs.movenext
				loop
			end if
			rs.close
			set rs=nothing
			%>
			</UL></DIV>
			<div style="text-align:right;"><a href='news.asp?l_id=30'>更多>></a>&nbsp;</div>
	  </div>
	  <!-- 商讯end-->
	
	<div style="float:right; width:783px;border:1px solid #ccc;">
	
		  <TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 background="images/index_png24_a1.png">
		  <tr style="text-align:center;">
		  	  <td width="25%" height="32" bgcolor="#f1f1f1" background="images/change1.gif" id=pbut1 onMouseOver="pOnClickColor('1');"><A HREF="productlist.asp?hot=1"><strong><font color="#ffffff" id=zhi1>热卖商品</font></strong></a></td>
			  <td width="25%" height="32" bgcolor="#f1f1f1" background="images/change0.gif" id=pbut2 onMouseOver="pOnClickColor('2');"><A HREF="productlist.asp?cx=1"><strong><font color="#484848" id=zhi2>促销商品</font></strong></a></td>
			  <td width="25%" height="32" bgcolor="#f1f1f1" background="images/change0.gif" id=pbut4 onMouseOver="pOnClickColor('4');"><A HREF="productlist.asp?now_order=addtimedown&kind=&cx=1&hot=&page=1"><strong><font color="#484848" id=zhi4>新品上市</font></strong></a></td>
		    </tr>
		  </table>
			<SCRIPT LANGUAGE="JavaScript">
			var pronow = "1"; 
			
			function pOnClickColor(eleName) 
			{  
			  if(pronow  != "" && document.getElementById("pbut"+pronow) != null){ 
					document.getElementById("pbut"+pronow).style.background = "url(images/change0.gif)";  
					document.getElementById("ptab"+pronow).style.display="none"; 
					document.getElementById("zhi"+pronow).style.color="#484848"; 
				} 
			  document.getElementById("pbut"+eleName).style.background = "url(images/change1.gif)"; 
			  document.getElementById("ptab"+eleName).style.display="block";
			  document.getElementById("zhi"+eleName).style.color="#ffffff"; 
			  
			  pronow  = eleName; 
			} 
			
			</SCRIPT>

		     <!-- 热卖商品begin -->
		     <table width="100%" border=0 cellPadding=2 cellSpacing=0  id=ptab1>
			 <tr>
				<%'热卖商品
				sql_new="select top 4 pkid,model,productname,smallpicpath,price1,price"&session("customkind")&",pipai from view_product where hot='1' and updown='1' order by hottime desc "  
				set rs_new=server.createobject("adodb.recordset")
				rs_new.open sql_new,conn,1,1
				if rs_new.bof or rs_new.eof then
					response.write "<td>此栏暂时没有商品记录！</td>"
				else
					i=1
					do while not rs_new.eof
					pkid=rs_new("pkid")
					model=rs_new("model")
					productname=rs_new("productname")
					smallpicpath=rs_new("smallpicpath")
					price1=rs_new("price1")
					price2=rs_new("price"&session("customkind"))
					pipai=rs_new("pipai")
				
					call product_list(1)
					
					if i mod s_col =0 then
						response.write "</tr><tr><td height=8>&nbsp;</td></tr><tr>"
						i=1
					else
						i=i+1
					end if
					rs_new.movenext
					loop
				end if
				rs_new.close
				set rs_new=nothing
				%>
			 </tr>
			 </table>
			 <!-- 热卖商品end -->
				
			<!-- 促销商品begin -->
		    <table width="100%" border=0 cellPadding=2 cellSpacing=0   id=ptab2 style='display:none'>
			<TR> 
				  
				<%'促销商品
				sql_new="select top 4 pkid,model,productname,smallpicpath,price1,price"&session("customkind")&",pipai from view_product where good='1' and updown='1' order by goodtime desc,pkid desc"
				
				set rs_new=server.createobject("adodb.recordset")
				rs_new.open sql_new,conn,1,1
				if rs_new.bof or rs_new.eof then
					response.write "<td>此栏暂时没有商品记录！</td>"
				else
					i=1
					do while not rs_new.eof
					pkid=rs_new("pkid")
					model=rs_new("model")
					productname=rs_new("productname")
					smallpicpath=rs_new("smallpicpath")
					price1=rs_new("price1")
					price2=rs_new("price"&session("customkind"))
					pipai=rs_new("pipai")
				
					call product_list(1)
					
					if i mod s_col =0 then
						response.write "</tr><tr><td height=8>&nbsp;</td></tr><tr>"
						i=1
					else
						i=i+1
					end if
					rs_new.movenext
					loop
				end if
				rs_new.close
				set rs_new=nothing
				%>
			</TR>
			</table>
			<!-- 促销商品end -->




			<!-- 新品上市商品begin -->
		    <table width="100%" border=0 cellPadding=2 cellSpacing=0   id=ptab4 style='display:none'>
			<TR> 
				  
				<%'新品上市商品
				sql_new="select top 4 pkid,model,productname,smallpicpath,price1,price"&session("customkind")&",pipai from view_product where updown='1' order by addtime desc,pkid desc"
				
				set rs_new=server.createobject("adodb.recordset")
				rs_new.open sql_new,conn,1,1
				if rs_new.bof or rs_new.eof then
					response.write "<td>此栏暂时没有商品记录！</td>"
				else
					i=1
					do while not rs_new.eof
					pkid=rs_new("pkid")
					model=rs_new("model")
					productname=rs_new("productname")
					smallpicpath=rs_new("smallpicpath")
					price1=rs_new("price1")
					price2=rs_new("price"&session("customkind"))
					pipai=rs_new("pipai")
				
					call product_list(1)
					
					if i mod s_col =0 then
						response.write "</tr><tr><td height=8>&nbsp;</td></tr><tr>"
						i=1
					else
						i=i+1
					end if
					rs_new.movenext
					loop
				end if
				rs_new.close
				set rs_new=nothing
				%>
			</TR>
			</table>
			<!-- 新品上市商品end -->

	</div>
	
	

</div>

<!--------------按分类显示begin-------------->
<%
sql="select * from sh_kind where len(kindnum)=4 and indexshow='1' order by kindnum asc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.bof or rs.eof then
	response.write "<table width=996><tr><td height=22><div align=center>没有记录!</div></td></tr></table>"
else
	f=1
	do while not rs.eof
	kind_num=rs("kindnum")
	kind_name=rs("kindname")

	kindleftpic=rs("kindleftpic") 
	kindlefturl=rs("kindlefturl") 
	rightpic1=rs("rightpic1") 
	righturl1=rs("righturl1") 
	rightpic2=rs("rightpic2") 
	righturl2=rs("righturl2") 
	rightpic3=rs("rightpic3") 
	righturl3=rs("righturl3")

	kindbottompic = rs("kindbottompic")
	kindbottomurl = rs("kindbottomurl") 
	
	indexkindlist = rs("indexkindlist") 

%>
	<div class="bange"></div>
	<table width="996" border="0" align="center" cellpadding="2" cellspacing="0">
	  <tr class="kindbg">
		<td ><div class="kindtext" style="float:left;"><%=f%>F&nbsp;<%=kind_name%></div>
		<div style="float:right; text-align:right; margin-left:30px; width:783px; height:22px; margin-top:6px; font-size:12px; overflow: hidden; text-overflow:ellipsis;">
		<%=indexkindlist%>&nbsp;&nbsp;
		</div>
		</td>
	  </tr>
	</table>
	<table width="996" border="0" align="center" cellpadding="0" cellspacing="0">
	  <tr>
		<td height="2" class="kindlinebg"></td>
	  </tr>
	  <tr>
		<td align="right"><a href="productlist.asp?kind=<%=kind_num%>"><img src="images/kindpro_more.jpg"  border="0"></a></td>
	  </tr>
	</table>

	
	<div style="width:996px; margin:0 auto; text-align:left; background-color:#ffffff;">
		<div style="float:left; width:200px; margin-top:5px; border:#dddddd 1px solid; ">
		<a href='<%=kindlefturl%>' target='_blank'><img thissrc='<%=kindleftpic%>' width='200' height='265' border='0' ></a></div>
		
		<div style="float:left;  margin:5px 10px 0px 10px; ">
				<TABLE cellSpacing=0 cellPadding=0 border=0 width="100%">
					<TBODY>
					  <TR> 
						<%'按分类显示
						sql_new="select top 4 pkid,model,productname,smallpicpath,price1,price2,pipai,addtime from view_product where kind like '"&kind_num&"%' and updown='1' order by updowntime desc, pkid desc "  
						'response.write sql_new
						'response.end
						set rs_new=server.createobject("adodb.recordset")
						rs_new.open sql_new,conn,1,1
						if rs_new.bof or rs_new.eof then
							response.write "<td>此栏暂时没有商品记录！</td>"
						else
							i=1
							do while not rs_new.eof
							pkid=rs_new("pkid")
							model=rs_new("model")
							productname=rs_new("productname")
							smallpicpath=rs_new("smallpicpath")
							price1=rs_new("price1")
							price2=rs_new("price2")
							pipai=rs_new("pipai")
							addtime=rs_new("addtime")
						
							call product_list(1)
							
'							if i mod s_col =0 then
'								response.write "</tr><tr><td height=6>&nbsp;</td></tr><tr>"
'								i=1
'							else
'								i=i+1
'							end if
							rs_new.movenext
							loop
						end if
						rs_new.close
						set rs_new=nothing
						%>
					  </TR>
					</TBODY>
				</TABLE>
		</div>
		
	</div>
	<%if kindbottompic<>"" then  '每分类下面广告%>
	<div class="bange"></div>
	<div style="width:996px; margin:0 auto; text-align:left; background-color:#ffffff;">
	<a href='<%=kindbottomurl%>' target='_blank'><img thissrc='<%=kindbottompic%>' width='996' border='0' ></a>
	</div>
	<%end if%>
	
<%
	f=f+1
	rs.movenext
	loop
end if
rs.close
set rs=nothing
%>
<!-------------按分类显示end--------------->






<div style="clear:both; height:8px; padding: 0px; margin:0px; line-height:0%;" ></div>
<table width="996" border="0" align="center" cellpadding="0" cellspacing="0">
	<TR>

	  <%if s_hit="是" then  '是否显示点击排行%>
	  <!--------点击排行begin---------------->
	  <td  vAlign=top  width="28%">
		 <TABLE width="100%"  height=470 border=0 cellPadding=0 cellSpacing=0 class="weitab" >
		  <tr><td valign="top">
		  
		  <div STYLE="height: 470px; overflow: hidden;">
		  <TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 background="images/index_png24_a1.png">
		  <tr style="text-align:center;">
		  	  <td width="27%" height="32" bgcolor="#ffffff" id=phbutton1 style="border-right:1px solid #cccccc"><A HREF="javascript:void(0)" onClick="OnClickph('1');"><font color="#666666"><strong>销售排行</strong></font></a></td>
			  <td width="27%" height="32" id=phbutton2><A HREF="javascript:void(0)" onClick="OnClickph('2');"><font color="#666666"><strong>点击排行</strong></font></a></td>
			  <td width="46%" height="32" ><font color="#666666"><strong>&nbsp;</strong></font></td>
		  </tr>
		  </table>
			<SCRIPT LANGUAGE="JavaScript">
			var proph = "1"; 
			
			function OnClickph(eleName) 
			{  
			  if(proph  != "" && document.getElementById("phbutton"+proph) != null){  
					document.getElementById("phbutton"+proph).style.background = "url(images/index_png24_a1.png)";  
					document.getElementById("phtab"+proph).style.display="none"; 
				} 
			  document.getElementById("phbutton"+eleName).style.background = "#ffffff"; 
			  document.getElementById("phbutton"+eleName).style.borderRight="1px solid #cccccc";
			  document.getElementById("phtab"+eleName).style.display="block";
			  
			  proph  = eleName; 
			} 
			
			</SCRIPT>
			
		  
		  
		     <!-- 销售排行begin -->
		     <table width="100%" border=0 cellPadding=2 cellSpacing=0  id=phtab1>
			<%
				sql="select top "&s_hitnum&" pkid,productname,smallpicpath,hit,price1,price"&session("customkind")&",saleshu from e_product where updown='1' order by saleshu desc,pkid"
				'response.write sql
				'response.end
				
				set rs=server.CreateObject("adodb.recordset")
				rs.open sql,conn,1,1
				if rs.bof or rs.eof then
					response.write "<div align=center>没有记录!</div>"
				else
					do while not rs.eof
						set pkid=rs("pkid")
						set productname=rs("productname")
						set smallpicpath=rs("smallpicpath")
						set hit=rs("hit")
						set price1=rs("price1")
						set price2=rs("price"&session("customkind"))
						set saleshu=rs("saleshu")
						'sumnum2=conn.execute("select iif(IsNull(sum(num)),0,sum(num)) from x_view_report where pkid="&pkid&" and sendornot='已发货'")(0)
			%>
				  <TR> 
					<TD align=center vAlign=top width='25%'><A href="show.asp?pkid=<%=pkid%>" <%=newwindow%>><IMG thissrc="product/<%=smallpicpath%>" width='55' border="0" style="margin:2px;"></A></TD>
					<TD width='75%'>
						<A href="show.asp?pkid=<%=pkid%>" <%=newwindow%>><%=productname%></A>
						<DIV align="left" style="padding-bottom:3px;"><b>￥<%=mydot(price2)%></b>&nbsp;&nbsp;<del>￥<%=mydot(price1)%></del>&nbsp;&nbsp; 已售 <b><font color="#ff0000"><%=saleshu%></font></b> 笔</DIV>
					</TD>
				  </TR>
				  <TR> 
					<TD align=middle height=8></TD>
				  </TR>
			  
			  <%
					rs.movenext
					loop
				end if
				rs.close
				set rs=nothing
			  %>
				</table>
			    <!-- 销售排行end -->
				
				<!-- 点击排行begin -->
		     <table width="100%" border=0 cellPadding=2 cellSpacing=0   id=phtab2 style='display:none'>
			<%
				sql="select top "&s_hitnum&" pkid,productname,smallpicpath,hit,price1,price"&session("customkind")&" from e_product where updown='1' order by hit desc,pkid"
				set rs=server.CreateObject("adodb.recordset")
				rs.open sql,conn,1,1
				if rs.bof or rs.eof then
					response.write "<div align=center>没有记录!</div>"
				else
					do while not rs.eof
						set pkid=rs("pkid")
						set productname=rs("productname")
						set smallpicpath=rs("smallpicpath")
						set hit=rs("hit")
						set price1=rs("price1")
						set price2=rs("price"&session("customkind"))
			%>
				  <TR> 
					<TD align=center vAlign=top width='25%'><A href="show.asp?pkid=<%=pkid%>" <%=newwindow%>><IMG thissrc="product/<%=smallpicpath%>" width='55' border="0" style="margin:2px;"></A></TD>
					<TD width='75%'>
						<A href="show.asp?pkid=<%=pkid%>" <%=newwindow%>><%=productname%></A>
						<DIV align="left" style="padding-bottom:3px;"><b>￥<%=mydot(price2)%></b>&nbsp;&nbsp;<del>￥<%=mydot(price1)%></del> &nbsp;&nbsp; 点击 <b><font color="#ff0000"><%=hit%></font></b> 次</DIV>
					</TD>
				  </TR>
				  <TR> 
					<TD align=middle height=8></TD>
				  </TR>
			  
			  <%
					rs.movenext
					loop
				end if
				rs.close
				set rs=nothing
			  %>
				</table>
				<!-- 点击排行end -->
				
		  </td></tr>
		  </TABLE>
		  </div>
	  </td>
	  <!--------点击排行end------------------>
      <%end if  '点击排行%>



	   
	  
	  <td vAlign=top width="42%">
		<!-------最新评论begin-------->
		 <TABLE width="95%" align="center" border=0 cellPadding=2 cellSpacing=0 class="weitab">
		  <tr>
		  	  <td height="32" background="images/index_png24_a1.png"><font color="#666666"><strong>最新评论</strong></font></td>
		  </tr>
		  <tr><td valign="top">
		  <div STYLE="height: 434px; overflow: hidden;">
			<%
			sql="select top "&s_hitnum&" productid,memo,smallpicpath,yourname,addtime from view_pijia where check='1' order by id desc"
			set rs=server.CreateObject("adodb.recordset")
			rs.open sql,conn,1,1
			if rs.bof or rs.eof then
				response.write "<div align=center>没有记录!</div>"
			else
			
				do while not rs.eof
					set productid=rs("productid")
					set smallpicpath=rs("smallpicpath")
					set g_content=rs("memo")
					set yourname=rs("yourname")
					set addtime=rs("addtime")
					
					if len(g_content)>75 then 
						g_content2=left(g_content,74)&"..."
					else
						g_content2=g_content
					end if
					
			%>
                    <div style="padding-left:4px;padding-right:2px;padding-top:5px;"><A href="show.asp?pkid=<%=productid%>" target=_blank><IMG thissrc="product/<%=smallpicpath%>" border=0 width='55' hspace="5" style="float:left;"><%="<b>"&yourname&"</b> ["&addtime&"]"%><br><%=g_content2%></A></div>
            		<div style="clear:both; height:3px; padding: 0px; margin:0px; line-height:0%;" ></div>
			<%
				rs.movenext
				loop
			end if
			rs.close
			set rs=nothing
		    %>
			</div>
			</TD></tr>
              </TABLE>
	  <!-------最新评论end-------->
	  </td>

	  
	  
	  
	  <TD vAlign=top width="30%">

	  <%if s_bbs="是" then '是否显示社区%>
	  <!--------最新社区begin---------------->
		 <TABLE width="100%" align="center" border=0 cellPadding=2 cellSpacing=0 class="weitab">
		  <tr>
		  	  <td height="32" background="images/index_png24_a1.png"><font color="#666666"><strong>最新社区</strong></font></td>
		  </tr>
		  <tr><td valign="top">
		  <div STYLE="height: 163px; overflow: hidden;">
			<%
			sql="select top "&s_mes&" id,g_title,g_content,g_updatetime,g_brow from message where re='0' and check='1' order by g_updatetime desc"
			set rs=server.CreateObject("adodb.recordset")
			rs.open sql,conn,1,1
			if rs.bof or rs.eof then
				response.write "<div align=center>没有记录!</div>"
			else
			
				do while not rs.eof
					set meid=rs("id")
					set g_title=rs("g_title")
					set g_content=rs("g_content")
					'set g_updatetime=rs("g_updatetime")
					set g_brow=rs("g_brow")
					
					if len(g_content)>66 then 
						g_content2=left(g_content,65)&"..."
					else
						g_content2=g_content
					end if
					
			%>
                    <div style="padding-left:8px;padding-right:8px;padding-top:3px;"><IMG src="pic/icon<%=g_brow%>.gif" border="0" vspace="3" align="absmiddle"> <A href="showmessage.asp?id=<%=meid%>" target=_blank><b><%=g_title%></b><BR>
                      <FONT color=#666666><%=g_content2%></FONT></A>
					</div>
            <%
				rs.movenext
				loop
			end if
			rs.close
			set rs=nothing
		    %>
			</div>   
		  </td></tr>
		  <TR> 
			<TD align=right height="25"><a href='g_post.asp'>[我要留言]</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href='message.asp'>[更多...]</a>&nbsp;&nbsp;&nbsp;</TD>
		  </TR>
		  </TABLE>
	  <!--------最新社区end------------------>
	  <%end if '是否显示社区%>	


	  	
	  
	  <%if s_diaocha="是" then  '是否显示在线调查%>
	  <!-------在线调查begin-------->
				<TABLE width="100%" height="237" border=0 align="center" cellPadding=2 cellSpacing=0 style="margin-top:8px;" class="weitab">
                <form method="post" action="vote.asp" onSubmit="return a(this);" id="myfrom" target="_blank">
					<tr>
					  <td height="32" background="images/index_png24_a1.png"><font color="#666666"><strong>在线调查</strong></font></td>
					</tr>
                    <TR>
                      <TD height="25" align="left">
                        <%dim dcid,dctitle
						sql="select top 1 id,dctitle from e_diaocha1 order by id desc"
						set rs=server.CreateObject("adodb.recordset")
						rs.open sql,conn,1,1
						if rs.bof or rs.eof then
							response.write "还没有调查记录。"
						else
							dcid=rs("id")
							dctitle=rs("dctitle")
						end if
						rs.close
						set rs=nothing
						response.write "<b>"&dctitle&"</b>"
						%>
                      </TD>
                    </TR>
                    <TR> 
                      <TD valign="top"> 
					  <table width="100%" border="0" cellpadding="0" cellspacing="0">
                          <%
						 dim i,rs2,sql2,id,contect
						i=1
						sql2="select * from e_diaocha2 where contect<>'' and dcid="&dcid&" order by id"
						set rs2=server.CreateObject("adodb.recordset")
						rs2.open sql2,conn,1,1
						if rs2.bof or rs2.eof then
						else
							do while not rs2.eof
								id=rs2("id")
								contect=rs2("contect")
						%>
                          <tr> 
                            <td height="23" align="center">
                              <input name="rad" type="radio" style="height:18px; BORDER: #ffffff 0px solid; BACKGROUND-COLOR: #ffffff;" value="<%=id%>">
                            </td>
                            <td style="text-align:left"><%=contect%></td>
                          </tr>
                          <%
								rs2.movenext
								i=i+1
							loop
							%>
							<TR> 
							  <TD colspan="2" height="25" valign="bottom">&nbsp;&nbsp;&nbsp;&nbsp; 
								<input type="submit" name="Submit3" value="投票" class='input3'> &nbsp;&nbsp; 
								<input type="button" name="Submit22" value="查看" class='input3' onClick="window.open('vote.asp', '', 'top='+(window.screen.height-470)/2+',left='+(window.screen.width-655)/2+',scrollbars=no,width=655,height=470')"> 
							  </TD>
							</TR>
							<%
						end if
						rs2.close
						set rs2=nothing
						%>
                        </table>
					  </TD>
                    </TR>
                </form>
              </TABLE>
	  <!--------在线调查end-------------->
	  <%end if%>		
	  </TD> 	

	</TR>
</table>
<div class="bange"></div>
<!-- #include file="foot.asp" -->
<%
conn.close
set conn=nothing
%>
</body>
</html>







