左侧纵向不间断滚动友链for CMS1.0/1.2-友情链接

功能 横向的友链太占地方了,而且满足不了多个链接的需求,所以做了这个左侧纵向不间断滚动友链,可以在后台自动生成js

一.添加JS生成
打开admin_links.asp,一步步修改

找到<td><a href='?action=js'>JS 生成</a></td>在下插入
<td width=10></td><td><a href='?action=gdjs'>滚动友链 JS 生成</a></td>

找到call joekoe_chk_js()
在下插入
case "gdjs"
call joekoe_chk_gdjs()

找到sub joekoe_chk_js
在这一段的end sub下面加上

sub joekoe_chk_gdjs()
  dim filetype,file_name
  file_name="style/data_link_gundong.js"
  filetype=gdlinks_fso("fir",20)
  call create_file(file_name,filetype)
  
  call admin_msg("生成 JS 成功！","?",1)
end sub

function gdlinks_fso(lt,nummer)
  dim temp1,nname,topic
  temp1="document.write (""<table>"");"
  sql="select * from links where sort='"& l t &"' and hidden=1 order by orders"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    for i=1 to nummer
      if rs.eof then exit for
      temp1=temp1&vbcrlf&"document.write (""<tr><td><a href='"&rs("url")&"' target=_blank>"
      if lt="txt" then
        temp1=temp1&joekoe_cms.code_js(joekoe_cms.code_html(rs("nname"),1,0),1)
      else
        temp1=temp1&"<img src='"&rs("pic")&"' border=0 width=88 height=31 alt='"&joekoe_cms.code_js(rs("nname"),1)&"'>"
      end if
      temp1=temp1&"</a><br></td></tr>"");"
      rs.movenext
    next
    temp1=temp1&vbcrlf&"document.write (""</table>"");"
  loop
  rs.close

  gdlinks_fso=temp1
end function
注意:把代码中加粗字段中的空格去掉

二.做完上面几步后,执行 后台-系统管理-友情链接-滚动友链 JS 生成

三.最后是首页调用
<div id=demo style=overflow:hidden;height:180;width:173>
<div id=demo1>
<script language=javascript src='style/data_link_gundong.js'></script>
</div>
<div id=demo2></div>
</div>
<script>
var t=demo.scrollTop
demo2.innerHTML=demo1.innerHTML
function qswhMarquee(){
if(demo2.offsetTop-demo.scrollTop<=0)
demo.scrollTop-=demo1.offsetHeight
else
demo.scrollTop++
}
setInterval(qswhMarquee,20)
</script>

备注
你也可以手动在style文件夹里添加一个名为data_link_gundong.js的文件,格式为
document.write ("<table>");
document.write ("<tr><td>xxx</td></tr>");
document.write ("<tr><td>xxx</td></tr>");
document.write ("<tr><td>xxx</td></tr>");
document.write ("</table>");

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