links.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.wmlimg("","images/logo.gif","网站LOGO") & "<br/>" &_
                wap.unicode("友情链接：") &"<br/>"&_
                wap.wmllink("http://wap.wapforum.cn","1)WAP站长论坛") &"<br/>"&_
                wap.wmllink("links.asp","2)激情网视导航") &"<br/>"&_
                ".......")

wap.wmlline(2)

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

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