C_C++技巧集

				作者：sailer
				email: csharp@sy163.net
				日期：6/22/2001 8:48:49 PM
				
				　　在本文中，我想进一步的介绍如何利用ASP开发动态的WML网页，及其应用。其实细想一下，可以使用服务器端编程（例如ASP）开发很多很多应用程序用在WAP手机上，只要把它们直接生成WAP手机能识别的WML网页就可以了。比如说在本文中要介绍的，如何为WAP等无线设备开发一个循环式的旗帜广告系统。
				　　使用这种方法，你就可以在你的网站上加入循环式的旗帜广告，就能给那些使用无线上网冲浪的用户一个机会，让他们了解到更快的广告信息，只需他们轻轻一按电话左边的按钮就可以了，不但能够方便用户而且能够增加网站的收入。
				　　假设我们想要创建一个循环旗帜广告，并把它放在任何页面的顶部，使用ASP和WML来创建这个页面。为了使这个系统更加具有可伸缩性，并更加贴近现实，我想把将要显示的广告信息存入数据库中，然后从数据库中抽取出所有相关的信息，从而使产生的内容保持动态变化的。然后将随机从数据库选择一个广告和它所指向的链接，这样才能做到使广告不断的循环出现。每次载入一个页面的时候，就将会出现一个新的广告。
				
				　　好下面我先说一下，建立广告数据库。为了简化，我使用了Microsoft Access 数据库，表名为ADbase，其中有主键bannerid（用来说明旗帜广告名），bannertext（显示于手机上的广告词，也就是旗帜广告的实际的正文消息） 和 bannerURL（连接广告的链接）当然了，你也可以在网页中加入一些图形，不过为了简化，我将省掉这些图形。建好的库。
				
				
				
				＜%@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)
				
				' 显示WML内容
				%＞
				＜?xml version="1.0"?＞
				＜!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
				"http://www.wapforum.org/DTD/wml_1.1.xml"＞
				＜wml＞
				＜card id="bannerad" title="广告"＞
				＜p＞
				＜a href="＜%=rsAd("bannerURL")%＞"＞ ＜%=rsAd("bannertext")%＞
				＜/p＞
				＜/wml＞
				 
				
				　　好，这样就构成了一个旗帜广告的雏形，下面就是完善它了，只要在任何你想要添加广告的页面，加入一条
				
				　　＜!-- #include file="bannerad.asp" --＞就可以了。