info_special.asp

一个ASP做的购物车

<table width="22%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td background="images/bj_x.gif" height="1"></td>
  </tr>
  <tr> 
     <td> <img src="images/main/tjsp.gif" width="178" height="34"></td>
  </tr>
  <tr> 
    <td height="1" background="images/bj_x.gif"></td>
  </tr>
  <tr> 
    <td> 
      <%
			set rs=server.CreateObject("adodb.recordset")
			i=0
			rs.open "select top 8 bookid,dazhe,bookname from wq_books where dazhe<=0.6 order by adddate desc",conn,1,1
			if rs.eof and rs.bof then
			response.write "<br>目前没有特价商品"
			end if
			if rs.recordcount>=3 then
			rs.absoluteposition=3
			do while not rs.eof
			i=i+1
			if len(trim(rs("bookname")))>11 then
			'response.write "<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td height=5> </td></tr></table>"
			response.write "<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td height='24' background='images/main/dp_bg.gif'>　　<a href=list.asp?id="&rs("bookid")&">"&left(trim(rs("bookname")),11)&"...</a></td></tr></table>"
			'response.write "<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td height=5> </td></tr></table>"
			else
			
			'response.write "<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td height=5> </td></tr></table>"
			response.write "<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td height='24' background='images/main/dp_bg.gif'>　　<a href=list.asp?id="&rs("bookid")&">"&trim(rs("bookname"))&"</a></td></tr></table>"
			'response.write "<table width=100% border=0 cellspacing=0 cellpadding=0><tr><td height=5> </td></tr></table>"
			end if
			if i>=6 then exit do
			rs.movenext
			loop
			end if
			rs.close
			set rs=nothing
			%>
    </td>
  </tr>
  <tr>
    <td height="24" align="right"><a href="class.asp?id=sale"><font color="#FF3300">更多>>></font></a> 
    </td>
  </tr>
</table>