info_prime.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>精品热卖</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 14 * from wq_books where bestbook=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_2,i_count2
			i_2=int((rs.recordcount+1)/2)
			if i_2>7 then 
			i_2=7
			end if
			for i_count2=1 to i_2
			%>
        <tr> 
          <td valign=top width="285"> 
            <table cellspacing=0 cellpadding=0 width="100%">
              <tr> 
                <td width="285" align="center" valign=top><a href=list.asp?id=<%=rs("bookid")%>> 
                  <font color="#FF6600"><strong> 
                  <%if len(trim(rs("bookname")))>30 then
						response.write left(trim(rs("bookname")),30)&".."
						else
						response.write trim(rs("bookname"))
						end if%>
                  	</strong></font></a>
					</td>
				 </tr>
				 <tr>	
					<td width="285" valign=top align="center" >市场价:<s><%=rs("shichangjia")%>元</s> 会员价:<font color=#FF0000><%=rs("huiyuanjia")%>元</font> VIP价：<%if Request.Cookies("cnhww")("reglx")=2 then%><%=trim(rs("Vipjia"))%>元<%else%><font color="#FF9999">更优惠！</font><%end if%></td>
				 </tr>
				 <tr>
					<td width="285" valign=top>
					<a href=list.asp?id=<%=rs("bookid")%>>
					<font color="#999999">
				  	<%if len(trim(rs("bookcontent")))>60 then
				  	response.write left(trim(rs("bookcontent")),60)&"..."
				  	else
				  	response.write trim(rs("bookcontent"))
				  	end if%></font></A>
                </td>
              </tr>
             <%rs.movenext%>
            </table>
          </td>
          <td valign=top width="1" background="images/bj_x1.gif"></td>
          <td valign=top width="284"> 
            <%if rs.eof then%>
            <%else%>
            <table cellspacing=0 cellpadding=0 width="100%">
              <tr> 
                <td width="285" align="center" valign=top><a href=list.asp?id=<%=rs("bookid")%>> 
                  <font color="#FF6600"><strong> 
                  <%if len(trim(rs("bookname")))>30 then
						response.write left(trim(rs("bookname")),30)&".."
						else
						response.write trim(rs("bookname"))
						end if%>
                  	</strong></font></a>
					</td>
				 </tr>
				 <tr>	
					<td width="285" valign=top align="center" >市场价:<s><%=rs("shichangjia")%>元</s> 会员价:<font color=#FF0000><%=rs("huiyuanjia")%>元</font> VIP价：<%if Request.Cookies("cnhww")("reglx")=2 then%><%=trim(rs("Vipjia"))%>元<%else%><font color="#FF9999">更优惠！</font><%end if%></td>
				 </tr>
				 <tr>
					<td width="285" valign=top>
					<a href=list.asp?id=<%=rs("bookid")%>>
					<font color="#999999">
				  	<%if len(trim(rs("bookcontent")))>60 then
				  	response.write left(trim(rs("bookcontent")),60)&"..."
				  	else
				  	response.write trim(rs("bookcontent"))
				  	end if%></font></A>
                </td>
              </tr>
             <%rs.movenext%>
            </table>
            <%end if%>
          </td>
        </tr>
        <tr> 
          <td valign=top colspan="3" background="images/bj_x1.gif" height="1"></td>
        </tr>
        <%next%>
        <%
				rs.close
				set rs=nothing%>
      </table>
      <%end if%>
    </td>
  </tr>
</table>