新客网WWW.XKER.COM:致力做中国最专业的网络学院!
学院: 操作系统 - 网络应用 - 服务器 - 网络安全 - 工具软件 - 办公软件 - Web开发 - 数据库 - 网页设计 - 图形图像 - 媒体动画 - 硬件学堂 - 存储频道 - QQ专区
您的位置:首页 > 网络学院 > 网页设计 > Dreamweaver > 正文:DW MX实例:动态广告管理

DW MX实例:动态广告管理

新客网 XKER.COM 2006-05-10 来源: 收藏本文


  
Dreamweaver


  ( 11 )切换到代码视图,找到【预览】按钮,在“ OnClick ”属性中添加如图 95-17 中圆角方框所示的代码。

  
Dreamweaver


  ( 12 )保存“ admin.aspx ”。“ preview.aspx ”页面是素材直接提供的,页面中只是添加了一个图像及一个数据集“ ADData ”,并绑定数据集“ ADData ”下的“ ADAddr ”字段到图像的“ src ”属性中。
  步骤四 动态广告随机显示

  ( 1 )在开始这一步操作之前,先介绍动态广告的运作原理。广告图片的显示是根据广告图片录入时输入的“显示机率”随机显示的,如果当时设置某个图片的“显示机率”为高,则该图片在总的广告图片中显示的概率就高了。但有一点就是其“显示次数”不能超过“最大显示次数”。打开“ show.aspx ”页面,该页面也是原来素材提供的,如图 95-18 所示。

  
Dreamweaver


  ( 2 )添加数据集“ ADData ”和“ showData ”。在【服务器行为】页面中添加数据集“ ADData ”,具体设置如图 95-19 所示。然后再添加数据集“ showData ”,具体设置如图 95-20 所示。

  
Dreamweaver


  
Dreamweaver


  ( 3 )添加文本框与服务器行为。在页面中添加一个“ asp :文本框”,保持默认设置。然后在【服务器行为】面板中添加一个【更新记录】服务器行为,具体设置如图 95-21 所示。

  提示:这里添加的文本框是临时的,是为了添加【更新记录】服务器行为而添加的,所以该文本框的设置对程序没有影响。而添加【更新记录】服务器行为则是用来添加文本框的,其设置也是临时的。简单地说,上面所做的都只是为了能够在页面中添加一个【更新记录】服务器行为。

  ( 4 )调整【更新记录】服务器行为的源代码。切换到代码视图,找到该【更新记录】服务器行为的源代码,设置其 ID 为“ Upgree ”,如图 95-22 中圆角方框①所示。删除图 95-22 中圆角方框②、③所示的代码,然后将图 95-22 中圆角方框④的值由“ true ”改为“ false ”。

  
Dreamweaver


  
Dreamweaver


  ( 5 )参照图 95-11 添加“ Page_Load ”过程,并对该过程的代码做如下所述的修改。

  Sub Page_Load(Src As Object, E As EventArgs)

  Dim i, j, k, TotalNum, theId, theNum, Arrl(),Degreein,mostgreein As Integer

  TotalNum = 0

  For i = 0 To ADDataSet.RecordCount -1

  theId = ADDataSet.FieldValueAtIndex(i, "id", Nothing)

  If ADDataSet.FieldValueAtIndex(i, "Probaly", Nothing) = 0 Then

  theNum = 1

  Else

  theNum = ADDataSet.FieldValueAtIndex(i, "Probaly", Nothing)

  End If

  Degreein=ADDataSet.FieldValueAtIndex(i, "Degree", Nothing)

  mostgreein=ADDataSet.FieldValueAtIndex(i, "mostgree", Nothing)

  If mostgreein> Degreein Then

  TotalNum = TotalNum + theNum

  ReDim Preserve Arrl(TotalNum)

  For k=1 To theNum

  Arrl(j) = theId

  j = j + 1

  Next

  End If

  Next

  If TotalNum <> 0 Then

  i = CInt(TotalNum * Rnd())

  Session("showID") = Arrl(i)

  Upgree.CommandText = "UPDATE Ad SET Degree="+cstr(showData. FieldValue ("Degree", Nothing) +1) +" WHERE ID="+cstr(Session("showID"))

  Upgree.Debug = True

  End If

  End Sub

  程序说明:

  程序中通过两个“ For ”循环所完成的操作是,统计“ AD ”表里字段“ Probaly ”中所有记录的总和,即统计所有广告图片的总机率;将广告图片的 ID 按“ Probaly ”值存储到数组“ Arrl ”中,例如“ Probaly ”为 10 ,则分别把广告图片的 ID 号存储到 10 个数组“ Arrl ”中,使显示次数大于最大显示次数的广告图片不在以上统计中。接着通过随机操作获取数组“ Arrl ”的数组号,将该数组号的值传递给“ Session("showID") ”,以建立数据集“ showData ”,并将“ AD ”表中该广告图片的显示次数增加“ 1 ”。

共4页: 上一页 [1] [2] [3] [4] 下一页
收藏】 【评论】 【推荐】 【投稿】 【打印】 【关闭
发表评论
要记得去论坛讨论,点击注册新会员匿名评论
评论内容:不能超过250字,需审核后才会公布,请自觉遵守互联网相关政策法规。
阅读排行
随机推荐
实用信息推荐