gglist.asp

二手书籍系统

<DIV id=icefable1 style="WIDTH: 210px; height:25px">
<table width="210" border="0" style="border-collapse: collapse"  cellpadding="0" height="60">
<%
dim znrs
set znrs=server.createobject("adodb.recordset")
sql = "select top 15 * from gonggao order by id desc"
znrs.open sql,conn,1,1
do while not znrs.eof
%>
<tr>
<td width="210" height="18"><p style="margin-bottom: 0; margin-top:0"><font style="font-size: 9pt">·</font><A href="javascript:win=open('gonggao.asp?id=<%=znrs("id")%>','offer','width=560,height=450,status=no,menubar=yes,scrollbars=yes,top=0,left=0'); win.focus()" style="text-decoration: none"><font style="font-size: 9pt"><%=left(znrs("biaoti"),16)%></font></a></td>
</tr>
<%
znrs.movenext
loop
%></table>
</DIV>
<DIV id=icefable2 style="Z-INDEX: 1; VISIBILITY: hidden; POSITION: absolute"></DIV>
<SCRIPT>marqueesHeight=60;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==350){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>