link.asp

二手书籍系统

<DIV id=demo onmouseout=ii=0 onmouseover=ii=1 style="HEIGHT: 32px; OVERFLOW: hidden; width:780px">
<DIV id=demo1 style="width: 780px; height: 32px"><table width="760" cellspacing="0" cellpadding="0" style="border-left: 1px solid #CCCCCC; border-right: 1px solid #CCCCCC; border-top-width: 1px; border-bottom-width: 1px">
<%  
dim f                                               
Set rs_new = Server.CreateObject("ADODB.Recordset")    
sqlwto="select top 80 * from link where yanz=1 order by logo desc,jrsj desc "
'response.write sqltext
'response.end                                                             
rs_new.open sqlwto,conn,3,2
while not rs_new.eof
%>
<tr>
<%for f=0 to 7                                      
if rs_new.eof then                                      
exit for                                      
end if                                      
%>          
<td>
<p align="center"><span style="font-size: 9pt">
<%if rs_new("logo")<>"" and rs_new("logo")<>"http://" then %> 
<a target="_blank" title="<%=rs_new("web")%>-<%=rs_new("webabout")%>" href="<% =rs_new("url") %>">
<img src="<%=rs_new("logo")%>" width='88' height='31' style="border: 0px solid #C0C0C0; padding: 0" ></a><a target="_blank" title="<%=rs_new("webabout")%>" href="<% =rs_new("url") %>"></a>
<%else%>
<a target="_blank" title="<%=rs_new("web")%>-<%=rs_new("webabout")%>"  href="<% =rs_new("url") %>" target="_blank"><% =rs_new("web") %></a>
<%end if%></span></td>
<%rs_new.movenext                                                                             
next                                                        
%>            
</tr>
<%
wend
rs_new.close
%>
</table>
</DIV>
<DIV id=demo2></DIV>
<SCRIPT>
var ii=0;t=demo.scrollTop
demo2.innerHTML=demo1.innerHTML
function qswhMarquee(){
if (ii==1)return
if(demo2.offsetTop-demo.scrollTop<=0)
demo.scrollTop-=demo1.offsetHeight
else
demo.scrollTop++
}
setInterval(qswhMarquee,60)
</SCRIPT>
</DIV>