jingpininfo.asp

来自「采用asp+fso技术 傻瓜式的程序安装和调试 用户无需考虑系统的安装维护 」· ASP 代码 · 共 41 行

<%set rs=server.CreateObject("adodb.recordset")
rs.open "select top 10 bookid,bookname,huiyuanjia from shop_books where bestbook=1 order by adddate desc",conn,1,1
dim icount
icount=rs.recordcount
if rs.eof and rs.bof then
response.write " "
else%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="24" bgcolor="#f1f1f1">精品推荐</td>
</tr>
<tr> 
<td> 
<table width="92%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr> 
<td> 
            <%
		  i=0
		  do while not rs.eof
		  response.write "·<a href=book.asp?id="&rs("bookid")&" >"
		  if len(trim(rs("bookname")))>18 then
		  response.write left(trim(rs("bookname")),18)&"..."
		  else
		  response.write trim(rs("bookname"))
		  end if
		  response.write "</a>&nbsp;&nbsp;<font color=#FF6600>"&formatnumber(rs("huiyuanjia"),2)&"元</font><br>"
		  i=i+1
		  if i>=5 then exit do
		  rs.movenext
		  loop
		  		  %>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
end if
rs.close
set rs=nothing%>