topnew.asp

二手书籍系统

<DIV id=icefable1 style="WIDTH: 330px; height:211px">
<table width="330" border="0" style="border-collapse: collapse"  cellpadding="0" height="211">
<tr>
<td width="330">
<%
dim rsnew
set rsnew=server.createobject("adodb.recordset")
sqlnew = "select top 40 * from xinxi where yz=1 order by fbsj desc"
rsnew.open sqlnew,conn,1,1
do while not rsnew.eof
sj=DateDiff("d",""&rsnew("fbsj")&"",now())
if sj<1 then                   
fsj="<FONT color=red>"&month(rsnew("fbsj"))&"/"&day(rsnew("fbsj"))&"</FONT >"                   
else                   
fsj="<FONT color=#999999>"&month(rsnew("fbsj"))&"/"&day(rsnew("fbsj"))&"</FONT >"                   
end if 
%>
<a target="_blank" href="search.asp?keyword=<%=rsnew("diqu")%>">[<%=rsnew("diqu")%>]</a><font style="font-size: 9pt">·</font><A target="_blank" href="xinximemo.asp?cnmai=<%=rsnew("id")%>"><font style="font-size: 9pt"><%=left(rsnew("biaoti"),15)%></font></a> ￥<%=rsnew("jiage")%> 
<font color="#808080">[<%=fsj%>]</font><br>
<%
rsnew.movenext
loop
rsnew.close
set rsnew=nothing
%></td>
</tr></table>
</DIV>
<DIV id=icefable2 style="Z-INDEX: 1; VISIBILITY: hidden; POSITION: absolute"></DIV>
<SCRIPT>marqueesHeight=211;stopscroll=false;icefable1.scrollTop=0;with(icefable1){style.width=0;style.height=marqueesHeight;style.overflowX='visible';style.overflowY='hidden';noWrap=true;onmouseover=new Function('stopscroll=true');onmouseout=new Function('stopscroll=false');}preTop=0; currentTop=0;stoptime=0;function init_srolltext(){icefable2.innerHTML='';icefable2.innerHTML+=icefable1.innerHTML;icefable1.innerHTML=icefable2.innerHTML+icefable2.innerHTML;setInterval('scrollUp()',6);}function scrollUp(){if(stopscroll==true) return;currentTop+=1;if(currentTop==58){stoptime+=1;currentTop-=1;if(stoptime==330){currentTop=0;stoptime=0;}}else{preTop=icefable1.scrollTop;icefable1.scrollTop+=1;if(preTop==icefable1.scrollTop){ icefable1.scrollTop=icefable2.offsetHeight-marqueesHeight;icefable1.scrollTop+=1;}}}init_srolltext();</SCRIPT>