indexshop.asp

是一套很好的数码购物系统

<style type=text/css>
.pic1{MARGIN-TOP: -116px;MARGIN-left:0px}
.pic2{padding-top:6px}
</style>
<%
if mosi="0" then
call xinpin()
call midbanner()
call tuijian()
elseif mosi="1" then
call tuijian()
call midbanner()
call xinpin()
elseif mosi="2" then
call xinpin()
call midbanner()
elseif mosi="3" then
call tuijian()
call midbanner()
end if

sub xinpin()
response.write "<table border=0 cellpadding=0 cellspacing=0 width=574 style='word-break:break-all'>"
response.write "<tr><td><a href=class.asp?action=new><img width=574 src=images/"&skin&"/bar_xinpin.gif border=0 alt='浏览全部新商品'></a></td></tr></table>"
response.write "<table border=0 cellpadding=2 bgcolor='#FFFFFF' cellspacing=0 width=574>"
set rs=conn.execute("select  * from buyok_produc where online=true order by AddDate desc")
if rs.bof and rs.eof then
response.write "<tr><td height=150 align=center>暂时没有商品</td></tr>"
else
   k=1
   Do While Not rs.eof
	response.write "<tr>"
    for i=1 to 4
	k=k+1
%>
<td align='center' valign='top' class='yc' width='140'>

<table width=90% border=0 cellspacing=0 cellpadding=1 valign=middle align=center>
<tr><td class="pic2" align=center valign=bottom><img border=0 src=images/small/pic_bg<%=pic_xiaogao%>.gif>
<p class="pic1"><a href='list.asp?ProdId=<%=rs("ProdId")%>'><img  border=0 onload='DrawImage(this)' 
<%if index_tishi=1 then%>
alt='<table border=0 width=300><tr><td width=70><b>商品名称</b>：</td><td><%=rs("ProdName")%></td></tr><tr><td width=70><b>商品类别</b>：</td><td><%=rs("larcode")%></td></tr><td width=70><b>商品编号</b>：</td><td><%=rs("ProdId")%></td></tr><tr><td><b>浏览次数</b>：</td><td><%=rs("ClickTimes")%></td></tr><tr><td><b>商品简介</b>：</td><td><%=rs("ProdDisc")%></td></tr></table>'
<%end if%>
src='<%=rs("ImgPrev")%>'></a></td></tr>
<tr><td><a href='list.asp?ProdId=<%=rs("ProdId")%>' alt='<table border=0 width=300><tr><td width=70><b>商品名称</b>：</td><td><%=rs("ProdName")%></td></tr><tr><td width=70><b>商品类别</b>：</td><td><%=rs("larcode")%></td></tr><td width=70><b>商品编号</b>：</td><td><%=rs("ProdId")%></td></tr><tr><td><b>浏览次数</b>：</td><td><%=rs("ClickTimes")%></td></tr><tr><td><b>商品简介</b>：</td><td><%=rs("ProdDisc")%></td></tr></table>'><%=lleft(rs("ProdName"),18)%></a></td></tr>
<tr><td><%=rs("PriceOrigintext")%>:<b><%=FormatNum(rs("PriceOrigin"),2)%></b></td></tr>
<%
if rs("quantity")=0 then 
response.write "<tr><td><b><font color=red>"&quehuo&"</font></b></td></tr>"
elseif rs("PriceList")=0 then
	response.write "<tr><td><b><font color=red>"&wujiage&"</font></b></td></tr>"
	else
	response.write "<tr><td>"&rs("PriceListtext")&":<b><font color=red>"&FormatNum(rs("PriceList"),2)&"</font></b></td></tr><tr><td>会员价:"
	if request.cookies("buyok")("userid")="" then 
	response.write "<b><font color=red>"&huiyuanjia&"</b></font></td></tr>"
	else
	response.write "<b><font color=red>"&FormatNum(rs("PriceList")*checkuserkou()/10,2)&"</font></b></td></tr>"
	end if
	response.write "<tr><td><img src='images/small/buy.gif' border=0  alt='我要购买该商品' style='cursor: hand'  onClick=""window.open('order/shop.asp?ProdId="&rs("ProdId")&"','blank_','scrollbars=yes,resizable=no,width=650,height=450')"">"
	response.write "<img src='images/small/fav.gif' border=0  alt='收藏该商品'  style='cursor: hand'  onClick=""window.open('order/fav.asp?ProdId="&rs("ProdId")&"','blank_','scrollbars=yes,resizable=no,width=650,height=450')"">"
	response.write "</td></tr>"
	end if
	response.write "</table></td>"
	rs.movenext
	if k>prompt_num then exit do
	if rs.eof then exit do
   	next
	loop
	end if
	set rs=nothing
	response.write "<table><tr><td height='5'></td></tr></table>"
end sub

sub midbanner()
if flash2="0" then
%>
<table width="574" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor=#FFFFFF>
	<tr><td align=center><a href='<%=hf2url%>' title='<%=hf2tit%>'>
	<img border=0 width=574 src='<%=hf2pic%>'></a>
	</td></tr>
</table>
<%
elseif flash2="1" then
%>
<table width="574" border="0" bgcolor="#FFFFFF" align="center" cellpadding="0" cellspacing="0">
	<tr><td>
	<embed width="<%=flash2width%>" height="<%=flash2height%>"  src="<%=flash2url%>"
	quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" 
	type="application/x-shockwave-flash" wmode="transparent"  menu="false">
	</embed>
	</td></tr>
</table>
<%
elseif flash2="2" then
%>
<table width=574 border="0" align="center" cellpadding="0" cellspacing="0" bgcolor=#FFFFFF>
	<tr><td align=center>
	<img border=0 width=574 height=0 src='images/adv/kongbai.gif'></a>
	</td></tr>
</table>
<%
end if
end sub

sub tuijian()
response.write "<table border=0 cellpadding=0 cellspacing=0 width=574 style='word-break:break-all'>"
response.write "<tr><td><a href=class.asp?action=tuijian><img width=574 src=images/"&skin&"/bar_tuijian.gif border=0 alt='浏览全部推荐商品'></a></td></tr></table>"
response.write "<table border=0 cellpadding=2 bgcolor='#FFFFFF' cellspacing=0 width=574>"
set rs=conn.execute("select  * from buyok_produc where online=true and Remark='1' order by Tjdate desc,AddDate desc")
if rs.bof and rs.eof then
response.write "<tr><td height=150 align=center>暂时没有推荐商品</td></tr>"
else
   k=1
   Do While Not rs.eof
	response.write "<tr>"
    for i=1 to 4
	k=k+1
%>
<td align='center' valign='top' class='yc' width='140'>

<table width=90% border=0 cellspacing=0 cellpadding=1 valign=middle align=center>
<tr><td class="pic2" align=center valign=bottom><img border=0 src=images/small/pic_bg<%=pic_xiaogao%>.gif>
<p class="pic1"><a href='list.asp?ProdId=<%=rs("ProdId")%>'>
<img  border=0 onload='DrawImage(this)' 
<%if index_tishi=1 then%>
alt='<table border=0 width=300><tr><td width=70><b>商品名称</b>：</td><td><%=rs("ProdName")%></td></tr><tr><td width=70><b>商品类别</b>：</td><td><%=rs("larcode")%></td></tr><td width=70><b>商品编号</b>：</td><td><%=rs("ProdId")%></td></tr><tr><td><b>浏览次数</b>：</td><td><%=rs("ClickTimes")%></td></tr><tr><td><b>商品简介</b>：</td><td><%=rs("ProdDisc")%></td></tr></table>' 
<%end if%> 
src='<%=rs("ImgPrev")%>'></a></td></tr>
<tr><td><a href='list.asp?ProdId=<%=rs("ProdId")%>' alt='<table border=0 width=300><tr><td width=70><b>商品名称</b>：</td><td><%=rs("ProdName")%></td></tr><tr><td width=70><b>商品类别</b>：</td><td><%=rs("larcode")%></td></tr><td width=70><b>商品编号</b>：</td><td><%=rs("ProdId")%></td></tr><tr><td><b>浏览次数</b>：</td><td><%=rs("ClickTimes")%></td></tr><tr><td><b>商品简介</b>：</td><td><%=rs("ProdDisc")%></td></tr></table>'><%=lleft(rs("ProdName"),18)%></a></td></tr>
<tr><td><%=rs("PriceOrigintext")%>:<b><%=FormatNum(rs("PriceOrigin"),2)%></b></td></tr>
<%
if rs("quantity")=0 then 
response.write "<tr><td><b><font color=red>"&quehuo&"</font></b></td></tr>"
elseif rs("PriceList")=0 then
	response.write "<tr><td><b><font color=red>"&wujiage&"</font></b></td></tr>"
	else
	response.write "<tr><td>"&rs("PriceListtext")&":<b><font color=red>"&FormatNum(rs("PriceList"),2)&"</font></b></td></tr><tr><td>会员价:"
	if request.cookies("buyok")("userid")="" then 
	response.write "<b><font color=red>"&huiyuanjia&"</b></font></td></tr>"
	else
	response.write "<b><font color=red>"&FormatNum(rs("PriceList")*checkuserkou()/10,2)&"</font></b></td></tr>"
	end if
	response.write "<tr><td><img src='images/small/buy.gif' border=0  alt='我要购买该商品' style='cursor: hand'  onClick=""window.open('order/shop.asp?ProdId="&rs("ProdId")&"','blank_','scrollbars=yes,resizable=no,width=650,height=450')"">"
	response.write "<img src='images/small/fav.gif' border=0  alt='收藏该商品'  style='cursor: hand'  onClick=""window.open('order/fav.asp?ProdId="&rs("ProdId")&"','blank_','scrollbars=yes,resizable=no,width=650,height=450')"">"
	response.write "</td></tr>"
	end if
	response.write "</table></td>"
	rs.movenext
	if k>newprod_num then exit do
	if rs.eof then exit do
   	next

	loop
	end if
	set rs=nothing
	response.write "<table><tr><td height='5'></td></tr></table>"
end sub
%>