代码如下：
＜%@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.vscodes.com/WAP/wml_1.1.xml;＞
＜wml＞
＜card id="bannerad" title="开源盛世-源代码下载网"＞

’ 显示WML内容
＜p＞
＜a href="＜%=rsAd("bannerURL")%＞"＞ ＜%=rsAd("bannertext")%＞
＜/p＞
＜/wml＞