一个更简洁的左侧连续友链 for 1.2-友情链接

直接插入index.asp即可,无须调用

<div id=demo style=overflow:hidden;height:200;width:92>
<div id=demo1>
<table cellspacing=0 cellpadding=0 border=0 width='100%'>
<%
dim nname,url,pic
sql="select * from links where hidden=1 and sort='fir' order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
    id=rs("id")
    nname=rs("nname")
    url=rs("url")
    pic=rs("pic")
%>
<tr><td align=center><a href='<%response.write url%>'><img src='<%response.write pic%>' border=0 width=88 height=31 alt='<%response.write nname%>'></a></td></tr>
<tr><td height=3></td></tr>
<%
rs.movenext
loop
rs.close
%></table></div>
<div id=demo2></div>
</div>
<script>
var speed=30
demo2.innerHTML=demo1.innerHTML
function Marquee(){
if(demo2.offsetTop-demo.scrollTop<=0)
demo.scrollTop-=demo1.offsetHeight
else{
demo.scrollTop++
}
}
var MyMar=setInterval(Marquee,speed)
demo.onmouseover=function() {clearInterval(MyMar)}
demo.onmouseout=function() {MyMar=setInterval(Marquee,speed)}
</script>

文章来自: Original
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: