WAP中实现文字滚动

WAP中实现文字滚动,标签：移动WAP开发教程,wap网站开发,http://www.xuehuiba.com
            <br/><br/><br/>
            XXXXXXXXXXXXXXXXXX
            ------------------
            第二个卡片显示内容
            ------------------

            XXXXXXXXXXXXXXXXXX
            ------------------
            代码为：
            ------------------
            <br/><br/>
            XXXXXXXXXXXXXXXXXX
            ------------------
            这样配合ONTIMER事件就能实现文字向上移一行的效果
            完整代码如下：
            <%@ Language=VBScript %>
            <% Response.ContentType="text/vnd.wap.wml" %>
            <?xml version="1.0" encoding="gb2312"?>
            <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
            "http://www.wapforum.org/DTD/ wml_1.1.xml">
            <wml>
            <%
            dim mystr
            mystr="文字文字文字文字文字"
            'mystr 可由数据库中读出
            const mheight=6
            '定义滚动高度
            const speed=30
            '定义滚动速度，快慢自己决定，不过太快小心关不掉^-^
            for i= 1 to mheight
            if i=mheight then
            ii=1
            else
            ii=i+1
            end if
            '判断是不是最后一张卡片
            response.write ("<card id='c"&i&"' title='c"&i&"'
            ontimer='#c"&ii&"'>"&vbcrlf)
            response.write ("<timer value='"&speed&"'/>"&vbcrlf)
            brcount=mheight-i
            for j1=0 to brcount-1
            response.write ( "<br/>"&vbcrlf)
            next
            response.write ( mystr&vbcrlf)
            response.write ("</card>"&vbcrlf)
            next
            '写出全部卡片
            %>
            </wml>

上一页  [1] [2]