info_order.asp

一个ASP做的购物车

<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 wq_books.bookname,wq_books.bookid  from wq_action,wq_books where wq_books.bookid=wq_action.bookid order by wq_action.bookid desc",conn,1,1
 %>
<table width="22%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td background="images/bj_x.gif" height="1"></td>
  </tr>
  <tr> 
	<td width=104><img src="images/main/khdd.gif" width="178" height="34"></td>
  </tr>
  <tr> 
    <td height="1" background="images/bj_x.gif"></td>
  </tr>
          <%if not rs.bof then
		idfirst=rs("bookid")
		do while not rs.eof
		if idfirst<>idnext then
		%>
  <tr> 
    <td height="24" background="images/main/dp_bg.gif"> 
     <%
		response.write "　　<a href=list.asp?id="&rs("bookid")&" target=_blank >"
		if len(trim(rs("bookname")))>12 then
		response.write left(trim(rs("bookname")),10)&"..."
		else
		response.write trim(rs("bookname"))
		end if
		response.write "</a>"
		idnext=rs("bookid")
	%>
    </td>
  </tr>
  <%
end if
rs.movenext
if not rs.eof then
idfirst=rs("bookid")
end if
loop
end if
rs.close
set rs=nothing
 %>
</table>