管理博客 ┆ 搜索 ┆ 帮助
WAP中实现文字滚动(下)
作者:老师 2008-04-28 09:53:21
标签:
 
 成都游戏学院 http://www.cdgamecollege.org 电话:028-85586115 
先测试一个例子
            <card id="c1" title="c1" ontimer="#c2">
            <timer value="20"/>
            X1
            </card>
            <card id="c2" title="c2" ontimer="#c1">
            X2
            <timer value="50"/> 
            </card>
            效果为:打开页面后显示X1 2秒后跳到第二个名为C2的CARD 显示X2 5秒后跳回第一个卡片
            一般HTML页面中文字滚动效果都是自下而上
            可以做这样的设计
            第一个卡片显示内容
            ------------------
            XXXXXXXXXXXXXXXXXX
            ------------------

            代码为:
            ------------------
            <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>


本文仅为提供更多信息,不代表新浪BLOG同意其观点或描述。如需转载请注明出处。