<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
set rs=server.createobject("adodb.recordset")
rs.open "select Top 4 * from shop_books where newsbook=1 order by bookid desc",conn,1,1
if rs.recordcount=0 then 
response.Write"暂时还没有发布新产品1!<table><tr><td></td></tr>"
else
%>
<table width="100%" border="0" align="center"  cellspacing="0" cellPadding="0" bgColor="#efefef">
<%
dim b_1,b_count
b_1=int((rs.recordcount+3)/4)
if b_1>2 then 
b_1=2
end if
for b_count=1 to b_1
%>
<tr> 
<td width="132" bgcolor="#FFFFFF" align="center">
  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr><td bgcolor="#CCCCCC"></td></tr>
  <tr>
    <td align="center"><%if len(trim(rs("bookname")))>10 then
				response.write left(trim(rs("bookname")),8)&".."
				else
				response.write trim(rs("bookname"))
				end if%></td>
  </tr>
  <tr><td bgcolor="#CCCCCC"></td></tr>
  <tr>
    <td align="center" height="140"><table width="100" bgColor=#CCCCCC onmouseover="this.style.backgroundColor='#BA596F'" onmouseout="this.style.backgroundColor='CCCCCC'" cellspacing="1" cellPadding="0" align="center"><tr><td bgcolor="#FFFFFF" align="center"><%if rs("bookpic")="" then%><div align=center><a href=list.asp?id="&rs("bookid")&" target=_blank><img src=images/emptybook.gif width=100 height=80 border=0></a></div><%else%><a href=list.asp?id=<%=rs("bookid")%> target=_blank><img src=<%=rs("bookpic")%> border="0" width="100" height="80"></a><%end if%></td></tr></table></td>
  </tr>
  <tr><td bgcolor="#CCCCCC"></td></tr>
  <tr>
    <td  height="19" background="images/003.gif" align="center">VIP价格：<font color="#0066CC"><%=rs("vipjia")%></font></td>
  </tr>
  <tr><td bgcolor="#CCCCCC"></td></tr>
  </table>
<%
rs.movenext%>
</td>
<td width="1" bgcolor="#CCCCCC"></td>
<td width="131" bgcolor="#FFFFFF" align="center">
<%if rs.eof then%>
<%else%>
  <table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr><td bgcolor="#CCCCCC"></td></tr>
  <tr>
    <td align="center"><%if len(trim(rs("bookname")))>10 then
				response.write left(trim(rs("bookname")),8)&".."
				else
				response.write trim(rs("bookname"))
				end if%></td>
  </tr>
  <tr><td bgcolor="#CCCCCC"></td></tr>
  <tr>
    <td align="center" height="140"><table width="100" bgColor=#CCCCCC onmouseover="this.style.backgroundColor='#BA596F'" onmouseout="this.style.backgroundColor='CCCCCC'" cellspacing="1" cellPadding="0" align="center"><tr><td bgcolor="#FFFFFF" align="center"><%if rs("bookpic")="" then%><div align=center><a href=list.asp?id="&rs("bookid")&" target=_blank><img src=images/emptybook.gif width=100 height=80 border=0></a></div><%else%><a href=list.asp?id=<%=rs("bookid")%> target=_blank><img src=<%=rs("bookpic")%> border="0" width="100" height="80"></a><%end if%></td></tr></table></td>
  </tr>
  <tr><td bgcolor="#CCCCCC"></td></tr>
  <tr>
    <td  height="19" background="images/003.gif" align="center">VIP价格：<font color="#0066CC"><%=rs("vipjia")%></font></td>
  </tr>
  <tr><td bgcolor="#CCCCCC"></td></tr>
  </table>
<%
rs.movenext%>
<%end if%>
</td>
<td width="1" bgcolor="#CCCCCC"></td>
<td width="131" bgcolor="#FFFFFF" align="center">
<%if rs.eof then%>
<%else%>
  <table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr><td bgcolor="#CCCCCC"></td></tr>
  <tr>
    <td align="center"><%if len(trim(rs("bookname")))>10 then
				response.write left(trim(rs("bookname")),8)&".."
				else
				response.write trim(rs("bookname"))
				end if%></td>
  </tr>
  <tr><td bgcolor="#CCCCCC"></td></tr>
  <tr>
    <td align="center" height="140"><table width="100" bgColor=#CCCCCC onmouseover="this.style.backgroundColor='#BA596F'" onmouseout="this.style.backgroundColor='CCCCCC'" cellspacing="1" cellPadding="0" align="center"><tr><td bgcolor="#FFFFFF" align="center"><%if rs("bookpic")="" then%><div align=center><a href=list.asp?id="&rs("bookid")&" target=_blank><img src=images/emptybook.gif width=100 height=80 border=0></a></div><%else%><a href=list.asp?id=<%=rs("bookid")%> target=_blank><img src=<%=rs("bookpic")%> border="0" width="100" height="80"></a><%end if%></td></tr></table></td>
  </tr>
  <tr><td bgcolor="#CCCCCC"></td></tr>
  <tr>
    <td  height="19" background="images/003.gif" align="center">VIP价格：<font color="#0066CC"><%=rs("vipjia")%></font></td>
  </tr>
  <tr><td bgcolor="#CCCCCC"></td></tr>
  </table>
<%
rs.movenext%>
<%end if%>
</td>
<td width="1" bgcolor="#CCCCCC"></td>
<td width="131" bgcolor="#FFFFFF" align="center">
<%if rs.eof then%>
<%else%>
  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr><td bgcolor="#CCCCCC"></td></tr>
  <tr>
    <td align="center"><%if len(trim(rs("bookname")))>10 then
				response.write left(trim(rs("bookname")),8)&".."
				else
				response.write trim(rs("bookname"))
				end if%></td>
  </tr>
  <tr><td bgcolor="#CCCCCC"></td></tr>
  <tr>
    <td align="center" height="140"><table width="100" bgColor=#CCCCCC onmouseover="this.style.backgroundColor='#BA596F'" onmouseout="this.style.backgroundColor='CCCCCC'" cellspacing="1" cellPadding="0" align="center"><tr><td bgcolor="#FFFFFF" align="center"><%if rs("bookpic")="" then%><div align=center><a href=list.asp?id="&rs("bookid")&" target=_blank><img src=images/emptybook.gif width=100 height=80 border=0></a></div><%else%><a href=list.asp?id=<%=rs("bookid")%> target=_blank><img src=<%=rs("bookpic")%> border="0" width="100" height="80"></a><%end if%></td></tr></table></td>
  </tr>
  <tr><td bgcolor="#CCCCCC"></td></tr>
  <tr>
    <td  height="19" background="images/003.gif" align="center">VIP价格：<font color="#0066CC"><%=rs("vipjia")%></font></td>
  </tr>
  <tr><td bgcolor="#CCCCCC"></td></tr>
  </table>
<%
rs.movenext
%>
</td>
</tr>
<%
end if
next
rs.close
set rs=nothing
end if%>
</table>
