网站首页  汉语字词  英语词汇  考试资料  写作素材  旧版资料

请输入您要查询的范文：

　

标题 js打印机滚动字
范文
    <%dim adstr_word,adstr_link,adnum
    sql="select * from ad_news where C_flag=0 order by tim desc"
    set rs=server.CreateObject("adodb.recordset")
    rs.open sql,conn,1,1
    if rs.eof or rs.bof then
    adstr_word[0]="暂时没有"
    adstr_link[0]="http://www.366golf.com"
    adnum=0
    else
    adnum=rs.recordcount
    Redim adstr_word(adnum+1)
    Redim adstr_link(adnum+1)
    k=0
    do while not rs.eof
    adstr_word(k)=rs("word")
    adstr_link(k)=rs("link")
    k=k+1
    rs.movenext
    loop
    rs.close
    end if
    %>
    var NewsTime = 3500;
    var TextTime = 40;
    var newsi = 0;
    var txti = 0;
    var txttimer;
    var newstimer;
    var newstitle = new Array();
    var newshref = new Array();
    <%for k=0 to adnum%>
    newstitle[<%=k%>]="<%=adstr_word(k)%>";
    newshref[<%=k%>]="<%=adstr_link(k)%>";
    <%next%>
    function shownews()
    {
    var endstr = "_"
    hwnewstr = newstitle[newsi];
    newslink = newshref[newsi];
    if(txti==(hwnewstr.length-1)){endstr="";}
    if(txti>=hwnewstr.length){
    clearInterval(txttimer);
    clearInterval(newstimer);
    newsi++;
    if(newsi>=newstitle.length){
    newsi = 0
    }
    newstimer = setInterval("shownews()",NewsTime);
    txti = 0;
    return;
    }
    clearInterval(txttimer);
    document.getElementById("printWord").href=newslink;
    document.getElementById("printWord").target="_blank";
    document.getElementById("printWord").innerHTML = hwnewstr.substring(0,txti+1)+endstr;
    txti++;
    txttimer = setInterval("shownews()",TextTime);
    }
    shownews();
随便看

　

在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板，是学习及工作的有利工具。

　

Copyright © 2002-2024 cuapp.net All Rights Reserved
更新时间：2025/5/24 3:22:33