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

( 12 )保存“ admin.aspx ”。“ preview.aspx ”页面是素材直接提供的,页面中只是添加了一个图像及一个数据集“ ADData ”,并绑定数据集“ ADData ”下的“ ADAddr ”字段到图像的“ src ”属性中。
步骤四 动态广告随机显示
( 1 )在开始这一步操作之前,先介绍动态广告的运作原理。广告
图片的显示是根据广告
图片录入时输入的“显示机率”随机显示的,如果当时设置某个
图片的“显示机率”为高,则该
图片在总的广告
图片中显示的概率就高了。但有一点就是其“显示次数”不能超过“最大显示次数”。打开“ show.aspx ”页面,该页面也是原来素材提供的,如图 95-18 所示。

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

( 3 )添加文本框与服务器行为。在页面中添加一个“ asp :文本框”,保持默认设置。然后在【服务器行为】面板中添加一个【更新记录】服务器行为,具体设置如图 95-21 所示。
提示:这里添加的文本框是临时的,是为了添加【更新记录】服务器行为而添加的,所以该文本框的设置对程序没有影响。而添加【更新记录】服务器行为则是用来添加文本框的,其设置也是临时的。简单地说,上面所做的都只是为了能够在页面中添加一个【更新记录】服务器行为。
( 4 )调整【更新记录】服务器行为的源代码。切换到代码视图,找到该【更新记录】服务器行为的源代码,设置其 ID 为“ Upgree ”,如图 95-22 中圆角方框①所示。删除图 95-22 中圆角方框②、③所示的代码,然后将图 95-22 中圆角方框④的值由“ true ”改为“ false ”。

( 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 ”。