diary.asp

WAP类

<!--#include file="inc/wapclass.asp"-->
<%
Dim wap
set wap = New wapclass 
wap.cache = false
wap.wmlhead()
wap.wmlcard "main","站长日志",0,"","left","wrap"
Response.Write(wap.unicode("站长日志"))

wap.wmlline(2)

Response.Write(wap.unicode("2008-09-10<br/>"&_
                           "完成WAPCLASS教程第一程的视频录制，也就是这个测试小站的生日，HOHO！<br/> <br/> "&_
                            "2008-09-9<br/>"&_
                           "完成WAPCLASS Ver1.0的编写，筹备第一课程的制作！"))

wap.wmlline(2)

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

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