bbs.asp

WAP类

<!--#include file="inc/wapclass.asp"-->
<%
Dim wap
set wap = New wapclass 
wap.cache = false
wap.wmlhead()
wap.wmlcard "main","正在进入...",50,"http://wap.wapforum.cn","left","wrap"
Response.Write(wap.unicode("正在进入WAP站长论坛，大家一起去灌灌水吧..."))

wap.wmlline(2)
Response.Write(wap.unicode("这是一个页面自动跳转的示例！页面等待大约5秒后，跳转到WAP站长论坛！"))
wap.wmlline(2)

Response.Write(wap.wmllink("index.asp","返回网站首页"))

wap.wmlend(0)
set wap=nothing
 %>