asp如何制作一个WAP手机的WML网页？

如何制作一个WAP手机的WML网页？

代码如下：

＜％@Language=VBScript
MaxNoAds = 10
' 定义用于产生随机数的最大值
Response.ContentType = "text/vnd.wap.wml"
' 设置文档类型
Randomize(Cbyte(Left(Right(Time(),5),2)))
AdID=(Int((MaxNoAds-1+1) * Rnd + 1))
' 从数据库中随机选择一个广告

set objConn = Server.CreateObject("adodb.connection")
objConn.Open "dsn=adserver;uid=adserver"
sql = "SELECT * from ADbase where bannerid = '" & AdID & "'"
set rsAd = objConn.Execute(sql)
' 从数据库中把这条广告取出
％＞
＜?xml version="1.0"?＞
＜!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
"http://www.intels.net/WAP/wml_1.1.xml"＞
＜wml＞
＜card id="bannerad" title="精彩春风的广告播不停"＞
' 显示WML内容
＜p＞
＜a href="＜％=rsAd("bannerURL")％＞"＞ ＜％=rsAd("bannertext")％＞
＜/p＞
＜/wml＞

　　当然，我们还可以在数据库中插入图片。