⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 textads.asp

📁 本源代码为 网雷弹窗联盟程序的源代码,欢迎大家的下载,学习与交流
💻 ASP
字号:
<!--#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();

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -