基于IIS和ASP的标题广告管理系统（三）

核心提示：三、显示广告 这部分程序主要有如下四个目的：第一，参考各个广告的显示等级，基于IIS和ASP的标题广告管理系统（三），随机选择本次显示的广告；第二，更新数据库中该广告的显示次数；第三，记录已读取记录的weight值总和nWeightCount ，当nWeightCount 等于或大于前面生成的随机数nRandomNu

三、显示广告

　　 这部分程序主要有如下四个目的：第一，参考各个广告的显示等级，随机选择本次显示的广告；第二，更新数据库中该广告的显示次数；第三，输出标题广告的HTML代码；第四，在数据库历史表中保存显示和点击历史纪录。

　　 实现上述功能的脚本主要有两个：

ShowBanner.asp：确定本次调用要显示的广告，更新显示次数记录，生成标题广告的HTML代码。
Redirect.asp：重定向页面。ShowBanner.asp生成的广告HTML代码将调用该脚本，由该脚本记录点击历史数据、重定向到广告客户指定的页面。
　　 本文下载包中的ShowBanner.asp同时也是一个广告显示示例页面，每次刷新该页面可以显示出不同的广告。下面我们按照ShowBanner.asp的执行过程，介绍其中的关键步骤。

　　 ㈠　计算显示等级总和

　　 本系统采用的广告选择算法是：首先计算出当前所有可用广告的显示等级总和，然后根据这个和值生成一个随机数，再根据这个随机数来确定本次显示的广告。下面的代码用于计算可用广告的显示等级总和：

　nTotalWeight = 0
　strSql = "SELECT SUM( Weight ) As SumWeight FROM " + _
　　　"Advertisement WHERE Status=1"
　rs.Open strSql, cn
　If not rs.EOF and not rs.BOF Then
　　　nTotalWeight = rs.Fields( "SumWeight" )
　　　' nTotalWeight有可能为空值
　　　If IsNull( nTotalWeight ) Then
　　　　　nTotalWeight = 1
　　　End If
　End If
　　 在计算出nTotalWeight之后，我们可以根据该值生成一个随机数，如下所示：

　Randomize
　nRandomNumber = Int( Rnd * nTotalWeight ) + 1
　　 程序将从数据库读取可用广告记录（参见下面的代码），累计已读取记录的weight总和，当这个新的总和超过这里生成的随机数时，就将当前记录作为本次显示的广告。

　　 ㈡　分析可用广告记录

　　 接下来的任务是执行一个查询，提取所有可用广告记录。如前所述，在遍历这些可用广告记录时，记录已读取记录的weight值总和nWeightCount ，当nWeightCount 等于或大于前面生成的随机数nRandomNumber时，程序就认为找到了本次要显示的广告。具体如下：

　strSql = "SELECT * FROM Advertisement WHERE Status=1"
　rs.Close
　rs.Open strSql, cn
　bDone = false
　' 已读取记录的Weight值总和
　nWeightCount = 0
　
　' 清除变量
　strImageURL = ""
　strAltText = ""
　strLink = ""
　nImageWidth = 0
　nImageHeight = 0
　nWeight = 0
　nAdID = 0
　nAdvertiserID = 0
　nViewLimit = 0
　nImpressions = 0
　　　
　While not rs.EOF and not rs.BOF and not bDone
　　　' 将数据库值赋给变量
　　　' 这种算法不利于效率,但简化了控制结构
　　　strImageURL = rs.Fields( "ImageURL" )
　　　strAltText = rs.Fields( "AltText" )
　　　strLink = rs.Fields( "Link" )
　　　nImageWidth = rs.Fields( "ImageWidth" )
　　　nImageHeight = rs.Fields( "ImageHeight" )
　　　nWeight = rs.Fields( "Weight" )
　　　nAdID = rs.Fields( "AdID" )
　　　nAdvertiserID = rs.Fields( "AdvertiserID" )
　　　nViewLimit = rs.Fields( "ViewLimit" )
　　　nImpressions = rs.Fields( "Impressions" )
　　　nWeightCount = nWeightCount + nWeight