Dreamweaver+ASP.net开发动态广告管理

来源：人民邮电出版社作者：4u2v工作室出处：巧巧读书 2006-06-25 进入讨论组

　　（ 5 ）添加【插入记录】服务器行为。在【服务器行为】面板中添加【插入记录】服务器行为，设置【连接】为“ ADconn ”，【插入到表格】为“ AD ”，其他选项保持默认设置，如图 95-12 所示。

　　（ 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 中圆角方框所示。