info_order.asp

来自「这是一个很小的电子商务网站」· ASP 代码 · 共 46 行

<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 sh_books.bookname,sh_books.bookid  from sh_action,sh_books where sh_books.bookid=sh_action.bookid order by sh_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>