友情链接无缝滚动代码

'------------------- 滚动链接调用 开始 -------------------------------
sub links_up(lt,nummer)
dim temp1,nname
temp1="<table cellspacing=1 cellpadding=4 class=table>" & _
vbcrlf&"<tr><td class=td0> 合作站点</td></tr>" & _
vbcrlf&"<tr class=bg_td><td align=center><marquee scrollamount=2 direction=up width='100%' height='120' onMouseOver=this.stop() onMouseOut=this.start()><table border=0 width='100%' cellspacing=0 cellpadding=0>"
sql="select * from links where sort='"<&"' and hidden=1 order by orders"
set rs=conn.execute(sql,1)
do while not rs.eof
temp1=temp1&vbcrlf&"<tr align=center height=40>"
for i=1 to nummer
if rs.eof then exit for
temp1=temp1&vbcrlf&"<td width='16%'><a href='"&rs("url")&"' target=_blank>"
if lt="txt" then
temp1=temp1&joekoe_cms.code_html(rs("nname"),1,0)
else
temp1=temp1&"<img src='"&rs("pic")&"' border=0 width=88 height=31 title='"&joekoe_cms.code_html(rs("nname"),1,0)&"'>"
end if
temp1=temp1&"</a></td>"
rs.movenext
next
temp1=temp1&vbcrlf&"</tr>"
loop
temp1=temp1&"</table></marquee></td></tr></table>"
response.write temp1
end sub
'------------------- 滚动链接调用 结束 -------------------------------

首页调用

call links_up("fir",1)

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