a_shop.asp

网上购物系统 asp+sql server 2005

<style type=text/css>
.pic1{MARGIN-TOP: -116px;MARGIN-left:0px}
.pic2{padding-top:6px}
</style>
<%
call tuijian()
call midbanner()
call xinpin()

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/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 s_produc where online='1' 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><%=rs("ProdNametext")%></b>：</td><td><%=rs("ProdName")%></td></tr><tr><td width=70><b>商品类别</b>：</td><td><%=rs("larcode")%></td></tr><td width=70><b><%=rs("ProdIdtext")%></b>：</td><td><%=rs("ProdId")%></td></tr><tr><td><b>浏览次数</b>：</td><td><%=rs("ClickTimes")%></td></tr><tr><td><b><%=rs("ProdDisctext")%></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><%=rs("ProdNametext")%></b>：</td><td><%=rs("ProdName")%></td></tr><tr><td width=70><b>商品类别</b>：</td><td><%=rs("larcode")%></td></tr><td width=70><b><%=rs("ProdIdtext")%></b>：</td><td><%=rs("ProdId")%></td></tr><tr><td><b>浏览次数</b>：</td><td><%=rs("ClickTimes")%></td></tr><tr><td><b><%=rs("ProdDisctext")%></b>：</td><td><%=rs("ProdDisc")%></td></tr></table>'><%=lleft(rs("ProdName"),18)%></a></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>"&rs("PriceOrigintext")&":"
	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("PriceOrigin"),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()
%>
<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>
<%
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/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 s_produc where online='1' 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><%=rs("ProdNametext")%></b>：</td><td><%=rs("ProdName")%></td></tr><tr><td width=70><b>商品类别</b>：</td><td><%=rs("larcode")%></td></tr><td width=70><b><%=rs("ProdIdtext")%></b>：</td><td><%=rs("ProdId")%></td></tr><tr><td><b>浏览次数</b>：</td><td><%=rs("ClickTimes")%></td></tr><tr><td><b><%=rs("ProdDisctext")%></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><%=rs("ProdNametext")%></b>：</td><td><%=rs("ProdName")%></td></tr><tr><td width=70><b>商品类别</b>：</td><td><%=rs("larcode")%></td></tr><td width=70><b><%=rs("ProdIdtext")%></b>：</td><td><%=rs("ProdId")%></td></tr><tr><td><b>浏览次数</b>：</td><td><%=rs("ClickTimes")%></td></tr><tr><td><b><%=rs("ProdDisctext")%></b>：</td><td><%=rs("ProdDisc")%></td></tr></table>'><%=lleft(rs("ProdName"),18)%></a></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>"&rs("PriceOrigintext")&":"
	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("PriceOrigin"),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
%>