<SPAN id=icefable1>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select top 9 bookid,bookname,liulancount from shop_books where info=0 order by liulancount desc",conn,1,1%> <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" > 
<tr> <td valign="top" ><table width="100%" border="0" cellspacing="0" cellpadding="0" align="center"> 
<tr> <td align="center"> <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center"> 
<tr> <td align="center"> <%set rs=server.CreateObject("adodb.recordset")
		rs.open "select Top 9 * from shop_books where  info=0 order by bookid desc",conn,1,1
		if rs.eof and rs.bof then
		response.write "<center><br><font color=red size=2>对不起，暂无新品！</font></font>"
		'response.End
		else
		%> <table cellspacing=0 cellpadding=0 border=0 width="100%" ALIGN="CENTER" height="117"> 
<%
		dim i_1,i_count
		i_1=int((rs.recordcount+1)/1)
		if i_1>3 then 
		i_1=3
		end if
		'response.write i_1
		for i_count=1 to i_1%> <tr> <td width="34%" valign=top height="117"><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0"> 
<TR> <TD WIDTH="34%"><TABLE WIDTH="95%" HEIGHT="120" BORDER="0" CELLPADDING=0 CELLSPACING=0 ALIGN="CENTER" > 
<TR> <TD WIDTH="100%" HEIGHT="99" ALIGN="center" VALIGN="TOP"><TABLE HEIGHT=99 CELLSPACING=0 CELLPADDING=0 WIDTH=99 BORDER=0 ALIGN="center"> 
<TBODY> <TR> <TD  ALIGN=center VALIGN="MIDDLE"> <%if rs("bookpic")="" then 
response.write "<div align=center><a href=list.asp?id="&rs("bookid")&" target=_blank><img src=images/emptybook.gif width=75 height=75 border=0></a></div>"
else%> <A HREF=list.asp?id=<%=rs("bookid")%> TARGET=_blank><IMG SRC="<%=trim(rs("bookpic"))%>"  WIDTH=150 BORDER=0 HEIGHT="150"></A> 
<%end if%> </TD></TR> </TBODY> </TABLE></TD></TR><TR><TD WIDTH="100%" ALIGN="center" VALIGN="MIDDLE"><FONT COLOR="#999999">  
<%response.write "<a class=a4 href=list.asp?id="&rs("bookid")&" target=_blank><font color=#000000>"
				if len(trim(rs("bookname")))>22 then
				response.write left(trim(rs("bookname")),20)&"..."
				else
				response.write trim(rs("bookname"))
				end if
				response.write "</font></a>"
				%></FONT>    <DIV ALIGN="CENTER"></DIV></TD>
</TR> 
</TABLE>
<%rs.movenext%></TD></TR> </TABLE></td><td width="33%" valign="top" height="117" > 
<%if rs.eof then%> <%else%> <table width="100%" border="0" cellspacing="0" cellpadding="0"> 
<tr> <td><table width="95%" height="72" cellpadding=0 cellspacing=0  ALIGN="CENTER"> 
<td width="100%" align="center" HEIGHT="99" VALIGN="TOP"><TABLE HEIGHT=99 CELLSPACING=0 CELLPADDING=0 WIDTH=99 BORDER=0 ALIGN="center"> 
<TBODY> <TR> <TD  ALIGN=center VALIGN="MIDDLE"> <%if rs("bookpic")="" then 
response.write "<div align=center><a href=list.asp?id="&rs("bookid")&" target=_blank><img src=images/emptybook.gif width=75 height=75 border=0></a></div>"
else%> <A HREF=list.asp?id=<%=rs("bookid")%> TARGET=_blank><IMG SRC="<%=trim(rs("bookpic"))%>"  WIDTH=150 BORDER=0 HEIGHT="150"></A> 
<%end if%> </TD></TR> </TBODY> </TABLE></td><TR><td width="100%" height="1" align="center" VALIGN="MIDDLE"><FONT COLOR="#999999">  
<%response.write "<a class=a4 href=list.asp?id="&rs("bookid")&" target=_blank><font color=#000000>"
				if len(trim(rs("bookname")))>22 then
				response.write left(trim(rs("bookname")),20)&"..."
				else
				response.write trim(rs("bookname"))
				end if
				response.write "</font></a>"
				%></FONT></td>
</tr> 
</table></td></tr> </table><%rs.movenext%> <%end if%> </td><td width="33%" valign="top" height="117" ><%if rs.eof then%> 
<%else%> <TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0"> <TR> 
<TD><TABLE WIDTH="95%" HEIGHT="120" CELLPADDING=0 CELLSPACING=0  ALIGN="CENTER"> 
<TD WIDTH="100%" ALIGN="center" HEIGHT="99" VALIGN="TOP"><TABLE HEIGHT=99 CELLSPACING=0 CELLPADDING=0 WIDTH=99 BORDER=0 ALIGN="center"> 
<TBODY> <TR> <TD  ALIGN=center VALIGN="MIDDLE"> <%if rs("bookpic")="" then 
response.write "<div align=center><a href=list.asp?id="&rs("bookid")&" target=_blank><img src=images/emptybook.gif width=75 height=75 border=0></a></div>"
else%> <A HREF=list.asp?id=<%=rs("bookid")%> TARGET=_blank><IMG SRC="<%=trim(rs("bookpic"))%>"  WIDTH=150 BORDER=0 HEIGHT="150"></A> 
<%end if%> </TD></TR> </TBODY> </TABLE></TD><TR><TD WIDTH="100%" ALIGN="center" VALIGN="MIDDLE"><FONT COLOR="#999999"> 
<%response.write "<a class=a4 href=list.asp?id="&rs("bookid")&" target=_blank><font color=#000000>"
				if len(trim(rs("bookname")))>22 then
				response.write left(trim(rs("bookname")),20)&"..."
				else
				response.write trim(rs("bookname"))
				end if
				response.write "</font></a>"
				%></FONT></TD>
</TR> 
</TABLE></TD></TR> </TABLE><%rs.movenext%> <%end if%> </td></tr> <%next%> <%
rs.close
set rs=nothing%> </table><%end if%> </td></tr> </table></td></tr> </table></td></tr> 
</table>
</span>
                        <SCRIPT>
marqueesHeight=172;
stopscroll=false;
with(icefable1){
	  style.width=580;
	  style.height=marqueesHeight;
	  style.overflowX="visible";
	  style.overflowY="hidden";
	  noWrap=true;
	  onmouseover=new Function("stopscroll=true");
	  onmouseout=new Function("stopscroll=false");
  }
  preTop=0; currentTop=172; stoptime=0;
  icefable1.innerHTML+=icefable1.innerHTML;
  

function init_srolltext(){
  icefable1.scrollTop=0;
  setInterval("scrollUp()",10);
}
init_srolltext();

function scrollUp(){
  if(stopscroll==true) return;
  currentTop+=1;
  if(currentTop==174)
  {
  	stoptime+=1;
  	currentTop-=1;
  	if(stoptime==600) 
  	{
  		currentTop=0;
  		stoptime=0;  		
  	}
  }
  else {  	
	  preTop=icefable1.scrollTop;
	  icefable1.scrollTop+=1;
	  if(preTop==icefable1.scrollTop){
	    icefable1.scrollTop=172;
	    icefable1.scrollTop+=1;
	    
	  }
  }

}
</SCRIPT> 
