DW网页设计100例95：动态广告管理

（ 6 ）添加数据集“ ADData ”。在【服务器行为】面板中添加数据集“ ADData ”，该数据集的设置如图 95-13 所示。

（ 7 ）调整 【插入记录】服务器行为的源代码。 切换到代码视图，找到该【插入记录】服务器行为的源代码，设置其 ID 为“ ADinsert ”，如图 95-14 中圆角方框①所示。删除图 95-14 中圆角方框②、③所示的代码，将图 95-14 中圆角方框④所示的值由“ true ”改为“ false ”。

（ 8 ）修改“ Page_Load ”过程，修改后该过程的源代码如下所述。

Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)

If Session("strFilename") <> Nothing Then

Dim strADAddr As string

strADAddr="adimages/" + Session("strFilename")

Session("strFilename")=Nothing

ADinsert.CommandText = "INSERT INTO Ad (ADLinkr, ADName, mostgree, Probaly,ADAddr) VALUES ('" + Request.Form("ADLinkr") + "' ,'" + Request.Form("ADName") + "'," + Request.Form("mostgree") + ", " + Request.Form("Probaly") + ",'" + strADAddr+ "')"

ADinsert.SuccessURL = "admin.aspx?ADAddr="+strADAddr

ADinsert.Debug = True

End If

End Sub

（读者可打开【光盘】｜【源文件】｜【实例 95 】｜【 95.3.txt 】文件，直接复制）

程序说明：

该过程主要是重新定义“ ADinsert ”插入记录服务器行为的“ SQL ”命令，执行成功后再次打开“ "admin.aspx ”页面，并将广告图片上传到网站上的地址“ strADAddr ”传递给 URL 参数“ ADAddr ”。

（ 9 ）找到【预览】按钮的源代码，设置其“ disable ”属性（设置按钮是否有效），在其代码中插入代码 <% =iif((ADData.RecordCount>0),"","disabled='disabled'") %> ，结果如图 95-15 中圆角方框所示。