网络编程
位置:首页>> 网络编程>> Asp编程>> asp如何制作一个WAP手机的WML网页?

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

  发布时间:2010-06-29 21:21:00 

标签:wap,wml,asp

如何制作一个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>

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

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com