WEB开发网
开发学院WEB开发ASP 基于IIS和ASP的标题广告管理系统(三) 阅读

基于IIS和ASP的标题广告管理系统(三)

 2007-12-18 13:15:34 来源:WEB开发网   
核心提示:三、显示广告 这部分程序主要有如下四个目的:第一,参考各个广告的显示等级,基于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

1 2 3  下一页

Tags:基于 IIS ASP

编辑录入:coldstar [复制链接] [打 印]
赞助商链接