文章插图
文章插图
三、显示广告
这部分程序主要有如下四个目的：第一，参考各个广告的显示等级，随机选择本次显示的广告；第二，更新数据库中该广告的显示次数；第三，输出标题广告的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总和，当这个新的总和超过这里生成的随机数时，就将当前记录作为本次显示的广告 。
【3 一个基于ASP的标题广告管理系统】 ㈡ 分析可用广告记录
接下来的任务是执行一个查询，提取所有可用广告记录 。如前所述，在遍历这些可用广告记录时，记录已读取记录的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 = nWeightCountnWeight
rs.MoveNext
nWeightCount是否等于或大于随机变量值
If nWeightCount >= nRandomNumber or rs.EOF Then
bDone= true
End If
Wend
㈢ 更新当前广告的显示次数
在确定本次要显示的广告之后，程序就可以更新该广告记录的Impressions字段 。如果新的Impressions值超过了显示次数限制（nViewLimit），还必需设置Status字段为0（即本广告不可再显示） 。实现代码如下：
nStatus = 1
nImpressions = nImpressions1
推荐阅读
- 微信跳一跳怎么退出游戏 退出按键在哪
- 迷你世界威震天怎么换
- 微信跳一跳怎么刷分快 全加分彩蛋一览
- 信用卡明细可以打印吗
- 机动车保险有哪些种类
- 微信跳一跳怎么拿高分 跳一跳分数超不过别人怎么办
- ofo小黄蜂怎么使用？ofo小黄蜂的使用方法
- 骁龙8plus和8gen1对比
- 怎么没有微信跳一跳 跳一跳找不到怎么办