index.asp

WAP类

<!--#include file="inc/wapclass.asp"-->
<%
Dim wap  
set wap = New wapclass 
wap.cache = false 
wap.wmlhead()   

wap.wmlcard "main","sss",0,"","left","wrap"
Response.Write(wap.wmlimg("","http://download.wapcn.net/images/mp/698.gif","网站LOGO") & "<br/>" &_
                wap.unicode("欢迎光临我的网站"))

wap.wmlline(2)   

Response.Write(wap.wmlimg("","images/diary.gif","1") & wap.wmllink("diary.asp","站长日志") &"<br/>"&_
                wap.wmlimg("","images/bbs.gif","2") & wap.wmllink("bbs.asp","论坛灌水") &"<br/>"&_
                wap.wmlimg("","images/links.gif","3") & wap.wmllink("links.asp","友情链接"))
                

wap.wmlline(2)

Response.Write(wap.wmlimg("","images/contact.gif",".") & wap.unicode("站长：不够惨")&"<br/>"&_
                wap.unicode("QQ:*******(保密)")&"<br/>"&_
               "Email:[e-mail]")

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