<!--#include file="include/conn.asp"-->
<!--#include file="menu.asp"-->
<%
session("mpl")="0"
'产品最新
Dim IPnew
Set oRs = oConn.Execute("SELECT top 18 Id,PSmallPic,PTitle,PSmoney,PHmoney FROM [LstPro] ORDER BY Id desc")
If Not oRs.EOF Then IPnew= oRs.GetRows
Set oRs = Nothing
'热销产品
Dim IPhot
Set oRs = oConn.Execute("SELECT top 12 Id,PSmallPic,PTitle,PSmoney,PHmoney,PBId FROM [LstPro] where ProHot=1 ORDER BY Id desc")
If Not oRs.EOF Then IPhot= oRs.GetRows
Set oRs = Nothing
'产品特价
Dim IPte
Set oRs = oConn.Execute("SELECT top 12 Id,PSmallPic,PTitle,PSmoney,PTemoney FROM [LstPro] where PTe=1 ORDER BY Id desc")
If Not oRs.EOF Then IPte= oRs.GetRows
Set oRs = Nothing
'产品团购
Dim IPtt
Set oRs = oConn.Execute("SELECT top 12 Id,PSmallPic,PTitle,PSmoney,PTuanmoney,PBId FROM [LstPro] where PTuan=1 ORDER BY Id desc")
If Not oRs.EOF Then IPtt= oRs.GetRows
Set oRs = Nothing
'幻灯片
Dim Ppic
Set oRs = oConn.Execute("SELECT top 6 Id,Bimg,Burl,Btxt FROM [Lstbanner] where id < 7 ORDER BY Id desc")
If Not oRs.EOF Then Ppic= oRs.GetRows
Set oRs = Nothing
'排行
Dim Ihot
Set oRs = oConn.Execute("SELECT top 10 Id,PSmallPic,PTitle,PSmoney,PHmoney,Phits FROM [LstPro] ORDER BY Phits desc,Id desc")
If Not oRs.EOF Then Ihot= oRs.GetRows
Set oRs = Nothing
'销售排行
Dim Ihots
Set oRs = oConn.Execute("SELECT top 10 Id,PSmallPic,PTitle,PSmoney,PHmoney,PorderHits FROM [LstPro] ORDER BY PorderHits desc,Id desc")
If Not oRs.EOF Then Ihots= oRs.GetRows
Set oRs = Nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="X-UA-Compatible" content="IE=EmulateIE7" />
<meta http-equiv="X-UA-Compatible" content="IE=7" />
<!---通用配置--->
<title><%=sWeb("WebTitle")%>_<%=sWeb("WebUrl")%>_Powered by www.gaozhen.name QQ_47329193</title>
<meta name="keywords" content="<%=sWeb("WebKeyWord")%>" />
<meta name="description" content="<%=sWeb("WebDescription")%>" />
<meta name="author" content="<%=sWeb("WebAuthor")%>" />
<meta name="copyright" content="<%=sWeb("WebCopyright")%>" />
<meta content="all" name="robots" />
<link rel="shortcut icon" href="/include/favicon/favicon.ico" />
<link rel="icon" href="/include/favicon/favicon.gif" type="image/gif" >
<link type="text/css" href="/include/css/global.css" rel="stylesheet" />
<script type="text/javascript" src="/include/Js/config.js"></script>
<script src="/css/usr.js" type="text/javascript"></script>
<script src="/css/jquery.js" type="text/javascript"></script>
<script src="/css/KinSlideshow.js" type="text/javascript"></script>
<script type="text/javascript">
$(function(){
	$("#KinSlideshow").KinSlideshow();
})
</script>
<!---网站配置--->
<link type="text/css" href="/css/style.css" rel="stylesheet" />
<link type="text/css" href="/css/menu.css" rel="stylesheet" />
</head>
<body>
<%Call TopMenu()%>
<%Call HeadMenu()%>
<div id="maindiv">
<!--------->
<div id="lstindex">
	<div id="lstleft">
		<div id="llfff"><a name="login"></a><%Call userlogin()%></div>		
		<div id="llfff">
			<div class="stitle"><h1>本站公告</h1><div class="more"><a href="/NewsLst.asp?TT=1">更多>></a></div></div>
			<div class="scont"><ul><%=HELPSS(1)%></ul></div>
		</div>
		<div id="llfff">
			<div class="stitle"><h1>商品分类</h1></div>
			<%If sMenu2=1 Then%><%Call ProMenu()%><%Else%>
			<div class="scontaa2">
			<%if Isarray(Cbig) Then%>
			<%for i=0 to UBound(Cbig,2)%>
			<div class="scontbb3"><a href="/ProClassBig.asp?TT=<%=Cbig(0,i)%>"><span class="f14 fbb"><%=Cbig(1,i)%></span></a></div>
			<div class="scontdd2"><%=Csmall2(Cbig(0,i))%></div>
			<%Next 
			End if%>
			</div>
			<%End If%>
		</div>
		<div id="llfff">
			<div class="stitle"><h1>销售排行</h1></div>
			<div class="scont">
				<%if Isarray(Ihots) Then%>
				<%for i=0 to UBound(Ihots,2)%>
				<div class="ppall">
					<div class="ppic"><a title="<%=Ihots(2,i)%>" href="/ProInfo.asp?Id=<%=Ihots(0,i)%>"><img width=50 height=50 src="<%=Ihots(1,i)%>"></a></div>
					<div class="ptxt"><a title="<%=Ihots(2,i)%>" href="/ProInfo.asp?Id=<%=Ihots(0,i)%>"><%=Left(Ihots(2,i),10)%></a><br>
					<B class="fred f12"><%=GZMONRY(Ihots(4,i))%></B><br>销量 <B><%=Ihots(5,i)%></B> 次</div>
				</div>
				<%Next 
				End if%>
			</div>
		</div>
		<div id="llfff">
			<div class="stitle"><h1>热门排行</h1></div>
			<div class="scont">
				<%if Isarray(Ihot) Then%>
				<%for i=0 to UBound(Ihot,2)%>
				<div class="ppall">
					<div class="ppic"><a title="<%=Ihot(2,i)%>" href="/ProInfo.asp?Id=<%=Ihot(0,i)%>"><img width=50 height=50 src="<%=Ihot(1,i)%>"></a></div>
					<div class="ptxt"><a title="<%=Ihot(2,i)%>" href="/ProInfo.asp?Id=<%=Ihot(0,i)%>"><%=Left(Ihot(2,i),10)%></a><br>
					<B class="fred f12"><%=GZMONRY(Ihot(4,i))%></B><br>热度 <B><%=Ihot(5,i)%></B> 次</div>
				</div>
				<%Next 
				End if%>
			</div>
		</div>
	</div>
	<div id="lstright2">
		<!------------------------------->
		<div id="lrrr"><!--#include file="pic.asp"--></div>
		<div id="lrrr">
			<div class="stitle"><h1>最新上架</h1>
			<div class="more"><%if Isarray(skey2) Then%><%for i=0 to UBound(skey2)%><a href="/search.asp?keyword=<%=skey2(i)%>"><%=skey2(i)%></a> | <%Next%><%End if%></div>
			</div>
			<div class="scont">
				<ul>
					<%if Isarray(IPnew) Then%>
					<%for i=0 to UBound(IPnew,2)%>
					<li><a title="<%=IPnew(2,i)%>" href="/ProInfo.asp?Id=<%=IPnew(0,i)%>"><img width=120 src="<%=IPnew(1,i)%>"></a><br>
					<a title="<%=IPnew(2,i)%>" href="/ProInfo.asp?Id=<%=IPnew(0,i)%>"><%=Left(IPnew(2,i),10)%></a><br>
					<del class="fhui">市场价：<%=IPnew(3,i)%>元</del><br>
					<B class="fred f14"><%=GZMONRY(IPnew(4,i))%></B></li>
					<%Next 
					End if%>
				</ul>
			</div>
		</div>
		<!------------------------------->
		<div id="lrrr">
		<div class="scontdd"><%=BANNERSS(7,963,150)%></div>
			<div class="stitle"><h1>热销产品</h1>
			<div class="more"><%if Isarray(skey1) Then%>
			<%for i=0 to UBound(skey1)%><a href="/search.asp?keyword=<%=skey1(i)%>"><%=skey1(i)%></a> |
			<%Next 
			End if%></div>
			</div>
			<div class="scont">
				<ul>
					<%if Isarray(IPhot) Then%>
					<%for i=0 to UBound(IPhot,2)%>
					<li><a title="<%=IPhot(2,i)%>" href="/ProInfo.asp?Id=<%=IPhot(0,i)%>"><img width=120 src="<%=IPhot(1,i)%>"></a><br>
					<a title="<%=IPhot(2,i)%>" href="/ProInfo.asp?Id=<%=IPhot(0,i)%>"><%=Left(IPhot(2,i),10)%></a><br>
					<del class="fhui">市场价：<%=IPhot(3,i)%>元</del><br>
					<B class="fred f14"><%=GZMONRY(IPhot(4,i))%></B></li>
					<%Next 
					End if%>
				</ul>
			</div>
		</div>
		<!------------------------------->
		<div id="lrrr">
		<div class="scontdd"><%=BANNERSS(8,963,150)%></div>
			<div class="stitle"><h1>特价商品</h1>
			<div class="more"><%if Isarray(skey3) Then%><%for i=0 to UBound(skey3)%><a href="/search.asp?keyword=<%=skey3(i)%>"><%=skey3(i)%></a> | <%Next%><%End if%></div>
			</div>
			<div class="scont">
				<ul>
					<%if Isarray(IPte) Then%>
					<%for i=0 to UBound(IPte,2)%>
					<li><a title="<%=IPte(2,i)%>" href="/ProInfo.asp?Id=<%=IPte(0,i)%>"><img width=120 src="<%=IPte(1,i)%>"></a><br>
					<a href="/ProInfo.asp?Id=<%=IPte(0,i)%>"><%=Left(IPte(2,i),12)%></a><br>
					<B class="fred f14"><%=GZMONRY(IPte(4,i))%></B></li>
					<%Next 
					End if%>
				</ul>
			</div>
		</div>
		<!------------------------------->
		<div id="lrrr">
		<div class="scontdd"><%=BANNERSS(9,963,150)%></div>
			<div class="stitle"><h1>团购商品</h1>
			<div class="more"><%if Isarray(skey4) Then%><%for i=0 to UBound(skey4)%><a href="/search.asp?keyword=<%=skey4(i)%>"><%=skey4(i)%></a> | <%Next%><%End if%></div>
			</div>
			<div class="scont">
				<ul>
					<%if Isarray(IPtt) Then%>
					<%for i=0 to UBound(IPtt,2)%>
					<li><a title="<%=IPtt(2,i)%>" href="/TuanProClass.asp?TT=<%=IPtt(5,i)%>"><img width=120 src="<%=IPtt(1,i)%>"></a><br>
					<a href="/ProInfo.asp?Id=<%=IPtt(0,i)%>"><%=Left(IPtt(2,i),12)%></a><br>
					<B class="fred f14"><%=GZMONRY(IPtt(4,i))%></B></li>
					<%Next 
					End if%>
				</ul>
			</div>
		</div>
		<!------------------------------->
	</div>
</div>

<div class="clear"></div>
<div id="lstlinkss">
	<div class="stitle"></div>
	<ul>
		<%if Isarray(sLinktxt) Then%>
		<%for i=0 to UBound(sLinktxt,2)%>
		<li><a target=_blank title="<%=sLinktxt(3,i)%>" href="<%=sLinktxt(2,i)%>"><%=sLinktxt(1,i)%></a></li>
		<%Next 
		End if%>
	</ul>
	<div class="clear"></div>
	<ul>
		<%if Isarray(sLinkpic) Then%>
		<%for i=0 to UBound(sLinkpic,2)%>
		<li><a target=_blank title="<%=sLinkpic(3,i)%>" href="<%=sLinkpic(2,i)%>"><img width=88 height=31 src=<%=sLinkpic(4,i)%>></a></li>
		<%Next 
		End if%>
	</ul>
</div>
<div class="clear"></div>
<!--------->
<%Call HelpMenu()%>
<%Call ShowEnd()%>
</div>
</body>
</html>
