WAP中实现文字滚动

标签：移动WAP开发教程,wap网站开发,wap开发教程, WAP中实现文字滚动,
            <%
            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] 

，WAP中实现文字滚动