今天发一篇有关如何在WAP中实现文字滚动动画的教材,虽说没有很大的实际意义，在WAP中没有多少用武之处，但通过这次练习可以了解到ontimer事件的作用.

    首先说说动画，学FLASH的人就马上会想到帧，在单位时间内播放多少帧就能实现动画的效果（不过文字滚动在HTML网页中也能用marquee实现效果）

    WAP中实现文字滚动的效果就只能利用动画的原理实现，因为WML中没有marquee，但是有CARD 的ontimer事件
ontimer类似<meta http-equiv="refresh" content="300;url=main.asp">和JAVASCRIPT中的setTimeout方法,用于    指定一个事件。当<timer/> 标签指定的时间到期后，浏览器就执行ontimer所指定的这个事件。

    ontimer可以是一个URL地址，一个卡片组，一个WML网页，一幅图像或其他符合URL定位的规则的文件。
<timer/>标签指定的时间为正整数，单位大小为1/10秒。

    ontimer时间只能包含在card元素或template元素的标签中进行定义，其语法形式如下：
<card id="name" title="label" newcontext="boolean" ordered="true" onenterforward="href" onenterbackward="href" ontimer="href">
内容（content）
</card>
或：
<template onenterforward="href" onenterbackward="href" ontimer="href">
内容（content）
</template>

    ontimer事件只有一个属性，即ontimer。

    它用于指定一个超链（href）的URL地址，指定时间timer过期的时候，用户浏览器就会按照超链（href）的URL打开相应的卡片或者文件。

先测试一个例子
<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>