www.gusucode.com > 运动用品商城网站系统源代码程序 > com.asp

    <!--#include file="conn.asp"-->
<!--#include file="IncAsp/venshop_top.asp"-->
<!--#include file="IncAsp/all_com.asp"-->
<%
hw_id=request("hw_id")
action=request("action")
select case action
case "add"
comadd(hw_id)
case "del"
comdel(hw_id)
case "delall"
comdelall
end select
comid=split(Request.Cookies("venshop")("com"),"/")
if Request.Cookies("venshop")("com")="" then%>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="980">
<tr><td class="cartshowa">&nbsp;&nbsp; :: 您选择加入对比的产品有：</td></tr>
<tr><td height="230" align="center" class="cartshow1">您还没有选择任何产品进行对比，<a href=# onClick=history.go(-1)><font color=#ff0000>返回</font></a></td></tr></table></div>
<%else%><div>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="980">
<tr><td class="sort">&nbsp;&nbsp; :: 您选择加入对比的产品有：（<%=ubound(comid)+1%>件商品）<%if ubound(comid)>=4 then%><font color="#FF0000">小提示：您选择对比的产品数较多，请移动滚动条查看全部产品</font><%end if%>
</td></tr>
<tr><td class="cartshow1"><div class="d5"></div>
<table border="0" cellpadding="5" cellspacing="0">				
<tr><td align="right" height="30" width="80" class="cartshow0"><b>操&nbsp;&nbsp;&nbsp;  作：</b></td>
<%for i=0 to ubound(comid)
hw_id=trim(comid(i))
redim rs(i)
set rs(i)=server.CreateObject("adodb.recordset")
rs(i).open "select * from venshop_hw where hw_id="&hw_id&"",conn,1,3%>  
<td align="center" height="20" style="border-left: 1px solid #C0C0C0; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" class="cartshow0">
<a href="com.asp?hw_id=<%=hw_id%>&action=del">取消</a>&nbsp;&nbsp;&nbsp;&nbsp;
<a href="basket.asp?hw_id=<%=hw_id%>&action=add">定购</a></td>
<%next%></tr>
<tr>
<td align="right" height="30" width="80" class="cartshow1"><b>图&nbsp;&nbsp;&nbsp; 片：</b></td>
<%for i=0 to ubound(comid)
hw_id=trim(comid(i))
set rs(i)=server.CreateObject("adodb.recordset")
rs(i).open "select * from venshop_hw where hw_id="&hw_id&"",conn,1,3%>  
<td align="center" height="100" style="border-left: 1px solid #C0C0C0; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" class="cartshow1">
<a href=views.asp?hw_id=<%=rs(i)("hw_id")%> target=_blank><img src="<%pic=split(rs(i)("hw_pic"),"*")%><%=pic(1)%>" border="0" onerror="this.src='img/noimage.jpg'" <%=sort_wh%> style="border: 1px solid #C0C0C0"></a></td>
<%next%></tr>
<tr><td align="right" height="18" width="80" class="cartshow0" valign="top"><b>名&nbsp; &nbsp; 称：</b></td>
<%for i=0 to ubound(comid)%>   
<td height="18" class="cartshow0" style="border-left: 1px solid #C0C0C0; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" valign="top">
<a href=views.asp?hw_id=<%=rs(i)("hw_id")%> target=_blank><b><%=rs(i)("hw_name")%></b></a></td>
<%next%></tr>
<tr><td align="right" height="18" width="80" valign="top" class="cartshow1"><b>市 场 价：</b></td>
<%for i=0 to ubound(comid)%>   
<td height="18" style="border-left: 1px solid #C0C0C0; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" valign="top" class="cartshow1">
<s><%=fuhao%> <%=rs(i)("hw_price1")%><%=danwei%></s></td>
<%next%></tr>
<tr>
<td align="right" height="18" width="80" class="cartshow0" valign="top"><b>本  站 价：</b></td>
<%for i=0 to ubound(comid)%>   
<td height="18" class="cartshow0" style="border-left: 1px solid #C0C0C0; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" valign="top">
<font color="#FF0000"><%=fuhao%> <%=rs(i)("hw_price2")%><%=danwei%></font></td>
<%next%></tr>
<tr><td align="right" height="18" width="80" valign="top" class="cartshow1"><b>品&nbsp;&nbsp;&nbsp; 牌：</b></td>
<%for i=0 to ubound(comid)%>   
<td height="18" style="border-left: 1px solid #C0C0C0; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" valign="top" class="cartshow1">
<%if rs(i)("pinpai_id")<>"" then
hw_pinpai=rs(i)("pinpai_id")
set rsd=server.CreateObject("adodb.recordset")
rsd.open "select * from venshop_pinpai where pinpai_id="&hw_pinpai&"",conn,1,3
if not rsd.eof then
pinpai_name=rsd("pinpai_name")
pinpai_id=rsd("pinpai_id")%><a href="pinpai.asp?pinpai_id=<%=rs(i)("pinpai_id")%>" target=_blank><%=pinpai_name%></a><%else%>－－<%end if
rsd.close
set rsd=nothing%><%else%>－－<%end if%>
</td>
<%next%></tr>
<tr><td align="right" height="18" width="80" valign="top" class="cartshow0"><b>库&nbsp;&nbsp;&nbsp; 存：</b></td>
<%for i=0 to ubound(comid)%>   
<td height="18" style="border-left: 1px solid #C0C0C0; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" valign="top" class="cartshow0">
<%if rs(i)("hw_kucun")>=3 then%>库存充足<%elseif rs(i)("hw_kucun")<3 and rs(i)("hw_kucun")>0 then%><font color="#FF0000">库存有限，请抓紧抢购</font><%else%>暂时缺货<%end if%></td>
<%next%></tr>
<%
sortsid=rs(0)("sort_id")
set rsd=server.CreateObject("adodb.recordset")
rsd.open "select ziduan from venshop_sort where sort_id="&sortsid&"",conn,1,3
ziduan=rsd("ziduan")
zd=split(ziduan,"##")
stt=-1
for st=0 to 49
if zd(st)<>"" then
stt=-stt%>
<tr><td align="right" height="18" width="80" valign="top" <%if stt=-1 then%> class="cartshow0"<%else%> class="cartshow1"<%end if%>>
<b><%=zd(st)%>：</b></td>
<%for i=0 to ubound(comid)
ziduan=split(rs(i)("ziduan"),"##")
%>   
<td height="18" style="border-left: 1px solid #C0C0C0; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" valign="top" <%if stt=-1 then%> class="cartshow0"<%else%> class="cartshow1"<%end if%>>
<%if ziduan(st)<>"" then%><%=ziduan(st)%><%else%>－－<%end if%></td>
<%next%></tr>
<%end if
next
rsd.close
set rsd=nothing%>
</table><div class="d5"></div>
</td></tr></table></div>
<%for i=0 to ubound(comid)%><%rs(i).close
set rs(i)=nothing
next
end if%><!--#include file="IncAsp/venshop_copy.asp"-->