info_prime4.asp

一个ASP做的购物车

<!--首页的精品热卖-->
<table width="590" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
     <td width="55" height="34" ><img src="images/main/th_img2.gif" width="55" height="34"></td>
     
    <td width="535" background="images/main/th_bg.gif" ><font color="#FF6600"><strong><font color="#000000">精品热卖</font></strong></font></td>
  </tr>
 </table>
<table width="590" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td align="center"> 
      <%set rs=server.CreateObject("adodb.recordset")
		  rs.open "select Top 15 * from wq_books where newsbook=1 order by bookid desc",conn,1,1
		  if rs.eof and rs.bof then
		  response.write "<center><br><font color=red size=2>对不起，暂无热卖商品！</font></font>"
		  'response.End
		  else
		  %>
      <table cellspacing=0 cellpadding=0 border=0 width="100%">
        <%
			dim i_1,i_count
			i_1=int((rs.recordcount+2)/3)
			if i_1>5 then 
			i_1=5
			end if
			for i_count=1 to i_1%>
        <tr> 
          <td valign=top width="197"> 
            <table cellspacing=0 cellpadding=0 width="100%">
              <tr> 
                <td><br>
                  <%if rs("bookpic")="" then 
						response.write "<div align=center><a href=list.asp?id="&rs("bookid")&"><img src=images/emptybook.gif width=75 height=75 border=0></a></div>"
						else
					%>
                  <div align="center"><a href=list.asp?id=<%=rs("bookid")%>><img src="<%=trim(rs("bookpic"))%>"  width=75 border=0 height="75" alt="<%=trim(rs("bookname"))%>"></a> 
                    <%end if%>
                  </div>
                </td>
                <td valign=top width="59%"><a class=a4 href=list.asp?id=<%=rs("bookid")%>><br></a>
				<a href=list.asp?id=<%=rs("bookid")%>>
				&nbsp;<font color="#669933"><strong>
				<%if len(trim(rs("bookname")))>7 then
					response.write left(trim(rs("bookname")),7)&".."
					else
					response.write trim(rs("bookname"))
					end if
				%></strong></font></a><br>
                  &nbsp;市场价：<s><%=trim(rs("shichangjia"))%>元</s><br>
                  &nbsp;会员价：<font color=#FF0000><%=trim(rs("huiyuanjia"))%>元</font><br>
                  &nbsp;VIP 价：<font color=#FF0000><%=trim(rs("Vipjia"))%></font><br>
                  <table cellpadding=0 cellspacing=0>
                    <tbody> 
                    <tr> 
                      <td width="116">&nbsp;<a href="javascript:;" onClick="javascript:window.open('shopcart.asp?id=<%=rs("bookid")%>&action=add','shouchang','width=450,height=350,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');"><img src="images/goumai.gif" width="40" height="18" border=0></a>&nbsp;<a href="javascript:;" onClick="javascript:window.open('favorites.asp?id=<%=rs("bookid")%>&action=add','shouchang','width=450,height=350,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');"><img src="images/Favorites.gif" width="40" height="18" border=0></a></td>
                    </tr>
                    </tbody> 
                  </table>
                </td>
              </tr>
             <%rs.movenext%>
            </table>
          </td>
          <td valign=top width="1" background="images/bj_x1.gif"></td>
		  
		  <td valign=top width="196"> 
            <%if rs.eof then%>
            <%else%>
            <table cellspacing=0 cellpadding=0 width="100%">
              <tr> 
                <td valign=top><br>
                  <%if rs("bookpic")="" then 
	response.write "<div align=center><a href=list.asp?id="&rs("bookid")&"><img src=images/emptybook.gif width=75 height=75 border=0></a></div>"
	else%>
                  <div align="center"><a href=list.asp?id=<%=rs("bookid")%>><img src="<%=trim(rs("bookpic"))%>"  width=75 border=0 height="75" alt="<%=trim(rs("bookname"))%>"></a> 
                    <%end if%>
                  </div>
                </td>
                <td valign=top width="59%"><a class=a4 
                        href=list.asp?id=<%=rs("bookid")%>><br></a>
						<a href=list.asp?id=<%=rs("bookid")%>>
						&nbsp;<font color="#669933"><strong>
						<%if len(trim(rs("bookname")))>7 then
							response.write left(trim(rs("bookname")),7)&".."
							else
							response.write trim(rs("bookname"))
							end if
					%></strong></font></a><br>
						&nbsp;市场价：<s><%=trim(rs("shichangjia"))%>元</s><br>
						&nbsp;会员价：<font color=#FF0000><%=trim(rs("huiyuanjia"))%>元</font><br>
						&nbsp;VIP 价：<font color=#FF0000><%=trim(rs("Vipjia"))%>元</font><br>
                  <table cellpadding=0 cellspacing=0>
                    <tbody> 
                    <tr> 
                      <td width="119">&nbsp;<a href="javascript:;" onClick="javascript:window.open('shopcart.asp?id=<%=rs("bookid")%>&action=add','shouchang','width=450,height=350,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');"><img src="images/goumai.gif" width="40" height="18" border=0>&nbsp;</a><a href="javascript:;" onClick="javascript:window.open('favorites.asp?id=<%=rs("bookid")%>&action=add','shouchang','width=450,height=350,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');"><img src="images/Favorites.gif" width="40" height="18" border=0></a></td>
                    </tr>
                    </tbody> 
                  </table>
                </td>
              </tr>
             <%rs.movenext%>
            </table>
            <%end if%>
          </td>
		  <td valign=top width="1" background="images/bj_x1.gif"></td>
		  
          <td valign=top width="196 "> 
            <%if rs.eof then%>
            <%else%>
            <table cellspacing=0 cellpadding=0 width="100%">
              <tr> 
                <td><br>
                  <%if rs("bookpic")="" then 
	response.write "<div align=center><a href=list.asp?id="&rs("bookid")&"><img src=images/emptybook.gif width=75 height=75 border=0></a></div>"
	else%>
                  <div align="center"><a href=list.asp?id=<%=rs("bookid")%>><img src="<%=trim(rs("bookpic"))%>"  width=75 border=0 height="75" alt="<%=trim(rs("bookname"))%>"></a> 
                    <%end if%>
                  </div>
                </td>
                <td valign=top width="59%"><a class=a4 href=list.asp?id=<%=rs("bookid")%>></a><br>
				<a href=list.asp?id=<%=rs("bookid")%>>
				&nbsp;<font color="#669933"><strong>
				<%if len(trim(rs("bookname")))>7 then
					response.write left(trim(rs("bookname")),7)&".."
					else
					response.write trim(rs("bookname"))
					end if
				%></strong></font></a><br>
					&nbsp;市场价：<s><%=trim(rs("shichangjia"))%>元</s><br>
					&nbsp;会员价：<font color=#FF0000><%=trim(rs("huiyuanjia"))%>元</font><br>
					&nbsp;VIP 价：<font color=#FF0000><%=trim(rs("Vipjia"))%></font><br>
                  <table cellpadding=0 cellspacing=0>
                    <tbody> 
                    <tr> 
                      <td width="119">&nbsp;<a href="javascript:;" onClick="javascript:window.open('shopcart.asp?id=<%=rs("bookid")%>&action=add','shouchang','width=450,height=350,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');"><img src="images/goumai.gif" width="40" height="18" border=0>&nbsp;</a><a href="javascript:;" onClick="javascript:window.open('favorites.asp?id=<%=rs("bookid")%>&action=add','shouchang','width=450,height=350,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');"><img src="images/Favorites.gif" width="40" height="18" border=0></a></td>
                    </tr>
                    </tbody> 
                  </table>
                </td>
              </tr>
                  <%rs.movenext%>
            </table>
            <%end if%>
          </td>
        </tr>
        <tr> 
          <td valign=top colspan="5" background="images/bj_x1.gif" height="1"></td>
        </tr>
        <%next%>
        <%rs.close
			set rs=nothing%>
      </table>
      <%end if%>
    </td>
  </tr>
</table>