textads.asp

来自「本源代码为 网雷弹窗联盟程序的源代码,欢迎大家的下载,学习与交流」· ASP 代码 · 共 44 行

<!--#include file="conn.asp"-->

document.write('<span id="mtxt" style="position:relative;font-size:12px;"></span>');
var newslist=new Array();
var cnt=0;
var curr = "";
var i=-1;
<%
sql="select * from Ads order by Id"
set rs=conn.execute (sql)

i=0
do while not rs.eof
 %>
newslist[<%=i%>]=new Array("<%=rs(2)%>","red","<%=rs(1)%>")
<%
i=i+1
rs.movenext
loop
%>
	
function newsticker()
{
  if (i < newslist[cnt][0].length - 1)
  {
    i++;
    temp1 = newslist[cnt][0];
    temp1 = temp1.split('');
    curr = curr+temp1[i];
    temp2 = newslist[cnt][1];
    temp3 = newslist[cnt][2];
    mtxt.innerHTML = "<a href='"+temp3+"' target='_blank'><font color="+temp2+"><b>"+curr+"</b></font></a>";
    setTimeout('newsticker()',100)
    return;
  }
  i = -1; curr = "";
  if (cnt<newslist.length-1)
    cnt++;
  else
    cnt=0;
  setTimeout('newsticker()',1000)
}
newsticker();