info_buxianliang.asp

asp商城之王

<table width="590" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td align="center" valign="top"> 
      <table width="590" height="0%" border="0" cellpadding="3" cellspacing="0">
        <%set rs=server.createobject("adodb.recordset")
			rs.open "select Top 20 * from sh_chanpin where kuncun<100 order by bookid,bookname desc",conn,1,1
			if rs.recordcount=0 then 
			response.write "<tr><td>　暂无不限量商品</td></tr>"
			else
		%>
   <tr> 
   <%while not rs.eof%>
          <td width="590" height="156" align=center><table width="109" border="0" cellpadding="0" cellspacing="0">
            <tr>
              <td width="109"><a href=list.asp?id=<%=rs("bookid")%> target="_blank">
                <%if rs("bookpic")="" then 
			response.write "<a href=list.asp?id="&rs("bookid")&"><img src=images/emptybook.gif width=90 height=90 border=0></a>"
			else%>
                <img src="<%=trim(rs("bookpic"))%>" alt="<%=trim(rs("bookname"))%>" width="75" height="75" border=0></a>
                <%end if%></td>
            </tr>
            <tr>
              <td>&nbsp;<a href=list.asp?id=<%=rs("bookid")%> target="_blank">
              <%if len(trim(rs("bookname")))>7 then
					response.write left(trim(rs("bookname")),7)&".."
					else
					response.write trim(rs("bookname"))
					end if
				%>
              </a><br>
                会员价：<%=trim(rs("huiyuanjia"))%>元<br>
&nbsp;VIP 价：<%=trim(rs("Vipjia"))%></td>
            </tr>
          </table>            </td>
       <%
			rs.movenext
			wend
		%>
    </tr>
      <%
		end if
		rs.close
		%>
    </table>
   </td>
 </tr>
</table>