ASP實(shí)用大全-實(shí)戰(zhàn)ASP(5)

　在我前面那篇文章《如何結(jié)合使用WML和ASP技術(shù)編寫動(dòng)態(tài)手機(jī)頁(yè)面》，我介紹了如何使用ASP產(chǎn)生動(dòng)態(tài)的WML網(wǎng)頁(yè)。在本文中，我想進(jìn)一步的介紹如何利用ASP開發(fā)動(dòng)態(tài)的WML網(wǎng)頁(yè)，及其應(yīng)用。其實(shí)細(xì)想一下，可以使用服務(wù)器端編程（例如ASP）開發(fā)很多很多應(yīng)用程序用在WAP手機(jī)上，只要把它們直接生成WAP手機(jī)能識(shí)別的WML網(wǎng)頁(yè)就可以了。比如說在本文中要介紹的，如何為WAP等無線設(shè)備開發(fā)一個(gè)循環(huán)式的旗幟廣告系統(tǒng)。

　　圖一顯示了一個(gè)旗幟廣告的示意圖，這是在一個(gè) WAP 站點(diǎn)上顯示旗幟廣告的一個(gè)可能的方法。

　　使用這種方法，你就可以在你的網(wǎng)站上加入循環(huán)式的旗幟廣告，就能給那些使用無線上網(wǎng)沖浪的用戶一個(gè)機(jī)會(huì)，讓他們了解到更快的廣告信息，只需他們輕輕一按電話左邊的按鈕就可以了，不但能夠方便用戶而且能夠增加網(wǎng)站的收入。

　　假設(shè)我們想要?jiǎng)?chuàng)建一個(gè)循環(huán)旗幟廣告，并把它放在任何頁(yè)面的頂部，使用ASP和WML來創(chuàng)建這個(gè)頁(yè)面。為了使這個(gè)系統(tǒng)更加具有可伸縮性，并更加貼近現(xiàn)實(shí)，我想把將要顯示的廣告信息存入數(shù)據(jù)庫(kù)中，然后從數(shù)據(jù)庫(kù)中抽取出所有相關(guān)的信息，從而使產(chǎn)生的內(nèi)容保持動(dòng)態(tài)變化的。然后將隨機(jī)從數(shù)據(jù)庫(kù)選擇一個(gè)廣告和它所指向的鏈接，這樣才能做到使廣告不斷的循環(huán)出現(xiàn)。每次載入一個(gè)頁(yè)面的時(shí)候，就將會(huì)出現(xiàn)一個(gè)新的廣告。

　　好下面我先說一下，建立廣告數(shù)據(jù)庫(kù)。為了簡(jiǎn)化，我使用了Microsoft Access 數(shù)據(jù)庫(kù)，表名為ADbase，其中有主鍵bannerid（用來說明旗幟廣告名），bannertext（顯示于手機(jī)上的廣告詞，也就是旗幟廣告的實(shí)際的正文消息） 和 bannerURL（連接廣告的鏈接）當(dāng)然了，你也可以在網(wǎng)頁(yè)中加入一些圖形，不過為了簡(jiǎn)化，我將省掉這些圖形。建好的庫(kù)如下顯示。

＜%@Language=VBScript

' 定義用于產(chǎn)生隨機(jī)數(shù)的最大值
MaxNoAds = 10

' 設(shè)置文檔類型
Response.ContentType = "text/vnd.wap.wml"

' 從數(shù)據(jù)庫(kù)中隨機(jī)選擇一個(gè)廣告
Randomize(Cbyte(Left(Right(Time(),5),2)))
AdID=(Int((MaxNoAds-1+1) * Rnd + 1))

' 從數(shù)據(jù)庫(kù)中把這條廣告取出

set objConn = Server.CreateObject("adodb.connection")
objConn.Open "dsn=adserver;uid=adserver"
sql = "SELECT * from ADbase where bannerid = '" & AdID & "'"
set rsAd = objConn.Execute(sql)

' 顯示W(wǎng)ML內(nèi)容
%＞
＜?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＞